Optimiser le code pour utiliser les commandbutton

Résolu
gilbert -  
Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   -
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.
    Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    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