optimiser le code pour utiliser les commandbutton Résolu/Fermé

Question

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

ccm81 · Answer

Bonjour

Plutôt que des boutons, un double-clic devrait être plus simple à gérer
https://www.cjoint.com/c/KIhjexiXPaB

Cdlmnt

gilbert · Answer

merci beaucoup c'est parfait !

Le Pingou · Answer

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 IfEnd IfEnd Sub

Optimiser le code pour utiliser les commandbutton

3 réponses