Excel 2007 bouton Macro incrémenter la cellule A1 de 10
didjay
-
didjay -
didjay -
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
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
1 réponse
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 :
Cdlmnt
Via
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
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.
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 SubCdlmnt
Via