Excel 2007 bouton Macro incrémenter la cellule A1 de 10

Fermé

didjay - 9 juil. 2015 à 10:41
didjay - 9 juil. 2015 à 15:32

Bonjour,

Je me casse les dents depuis quelques temps. Je ne suis pas expert en macro.
Je souhaiterai juste faire 2 boutons qui ont pour but d'incrémenter une cellule de +10 pour un bouton et -10 pour le second bouton.

Exemple, si ma cellule A1 contient 100
je clique sur le bouton "+10" et la valeur 110 s'affiche dans la cellule A1. et vice versa.

Merci pour votre aide

A voir également:

Excel 2007 bouton Macro incrémenter la cellule A1 de 10
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 2 703
9 juil. 2015 à 13:36

Bonjour

Il te faut 3 macros :
Une associée à chaque bouton + et - et une associée à tout changement de cellule qui récupère les coordonnées et la valeur de la cellule

1) Créer les 2 boutons

2) ALT+F11pour ouvrir l'éditeur, double-clic sur le nom de la feuille dans l'arborescence à gauche puis copier coller les macros :

Public x As Integer, y As Integer, v As Variant
Private Sub CommandButton1_Click()
v = v + 10
Cells(x, y) = v 
End Sub

Private Sub CommandButton2_Click()
v = v - 10
Cells(x, y) = v 
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Target.Row
y = Target.Column
v = Target.Value
End Sub

Cdlmnt
Via

didjay
9 juil. 2015 à 13:46

Ce n'est pas aussi simple que je l'imaginais.
Merci pour ta réponse.
En revanche en l'état ça ne fonctionne pas., comment je lui spécifie la valeur de la cellule qu'il récupère et la cellule dans laquelle il place la nouvelle valeur ? à savoir ma cellule A1 (ou autre)
De plus je vais reproduire ce schéma pour plusieurs cellules avec à chaque fois 2 boutons sur la même feuille.

via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 2 703 > didjay
Modifié par via55 le 9/07/2015 à 14:32

Plus simple

Un double-clic dans une cellule ouvre la boite de dialogue et selon la réponse + ou - incrémente la valeur de la cellule
Le code est à mettre dans l'éditeur VBA dans chaque feuille concernée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ch = InputBox("Plus 10 (+)  ou  Moins 10 (-)")
If ch = "+" Then Target.Value = Target.Value + 10
If ch = "-" Then Target.Value = Target.Value - 10
End Sub

Cdlmnt
Via

didjay > via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024
9 juil. 2015 à 15:32

Merci pour ton aide et ta connaissance. Je vais adapté cela.

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

Discussions similaires

Newsletters