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

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

1 réponse

  1.
    via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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
    0
    1. didjay
       
      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.
      0
      1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > didjay
         
        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
        0
      2. didjay > via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention  
         
        Merci pour ton aide et ta connaissance. Je vais adapté cela.
        0

Discussions similaires

Bouton ON/OFF : O ou I, quel côté est allumé
Stargirlfr -
kaparzo23 -

12 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses