Optimiser le code pour utiliser les commandbutton
Résolu
gilbert
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 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)
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
A voir également:
- Optimiser le code pour utiliser les commandbutton
- Code ascii - Guide
- Optimiser son pc - Accueil - Utilitaires
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Utiliser chromecast - Guide
- Code puk bloqué - Guide
3 réponses
Bonjour
Plutôt que des boutons, un double-clic devrait être plus simple à gérer
https://www.cjoint.com/c/KIhjexiXPaB
Cdlmnt
Plutôt que des boutons, un double-clic devrait être plus simple à gérer
https://www.cjoint.com/c/KIhjexiXPaB
Cdlmnt
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 :
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