Optimiser le code pour utiliser les commandbutton

Résolu
gilbert -  
Bonjour, Bonsoir,

Je suis entrain de réaliser une gestion de stock par excel qui se présente sous cette angle

https://gyazo.com/276b89bc3b957f142e5b5404a3791ac3

Mon objectif est de faire en sorte de chaque bouton en dessous de la colonne AJOUTER rajoute la valeur +1 dans la colonne QUANTITE EN STOCK et inversement pour la colonne REDUIRE.

J'utilise pour cela le code suivant :

Private Sub CommandButton1_Click()
Range("B2").Value = Range("B2").Value + 1
End Sub

Et je pourrais effectivement faire cela pour les 136 autres boutons qui suivent mais je suis persuadé qu'il y a un moyen plus efficace que de copier coller bêtement tout ça et de changer les valeurs des cellules.

(je suis un novice dans ce monde soyez indulgent)

Configuration: Windows / Chrome 93.0.4577.58

3 réponses

  2. gilbert
    merci beaucoup c'est parfait !
    0
    1. Le Pingou
      Bonjour,
      Une solution avec événement sur double clic (en colonne [C] pour + 1 et [D] pour -1)
      Le code à placer dans module de la feuille : 
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Target.Row > 1 Then
          If Target.Column = 3 Then
              Cells(Target.Row, 2) = Cells(Target.Row, 2) + 1
          ElseIf Target.Column = 4 Then
              Cells(Target.Row, 2) = Cells(Target.Row, 2) - 1
          End If
      End If
      End Sub


      1