Copier le nom de mes buttons
Résolu
VDB.57
-
VDB.57 -
VDB.57 -
Bonjour,
Je reviens vers vous un peu honteux de vous solliciter encore. Mais sans votre aide je suis incapable de faire cette programmation VBA.
Actuellement j’ai 1 onglet « caisse » et un userform de 36 buttons.
Le nom de chaque button correspond à un produit.
Lorsque je clic sur un Button de mon userform2 il doit copier une seule fois son nom « produit » en AE5 de l’onglet « caisse » avec un maximum de 10 produits différents à la suite. Mon petit tableau sera AD5 :AE15.
AD5 étant la quantité.
Si je clic plusieurs fois sur le même produit (même Button) seule la cellule AD5 enregistre le nombre de clic qui correspondra à la quantité de ce produit.
Je vous adresse par avance mes plus sincères remerciements
Je reviens vers vous un peu honteux de vous solliciter encore. Mais sans votre aide je suis incapable de faire cette programmation VBA.
Actuellement j’ai 1 onglet « caisse » et un userform de 36 buttons.
Le nom de chaque button correspond à un produit.
Lorsque je clic sur un Button de mon userform2 il doit copier une seule fois son nom « produit » en AE5 de l’onglet « caisse » avec un maximum de 10 produits différents à la suite. Mon petit tableau sera AD5 :AE15.
AD5 étant la quantité.
Si je clic plusieurs fois sur le même produit (même Button) seule la cellule AD5 enregistre le nombre de clic qui correspondra à la quantité de ce produit.
Je vous adresse par avance mes plus sincères remerciements
A voir également:
- Copier le nom de mes buttons
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Nom de compte steam exemple - Forum Jeux vidéo
- Changer le nom de son iphone - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
6 réponses
Bonjour,
Tout cela est bien curieux :
- pourquoi 36 boutons avec seulement 10 cliquables ?
- enregistrer le nombre produits au clic c'est assez aléatoire.
Pour que cela fonctionne simplement il te faut mettre un module de classe mais sans connaitre ton userform c'est pas simple à mettre du code adapté à ton niveau de compréhension.
Tout cela est bien curieux :
- pourquoi 36 boutons avec seulement 10 cliquables ?
- enregistrer le nombre produits au clic c'est assez aléatoire.
Pour que cela fonctionne simplement il te faut mettre un module de classe mais sans connaitre ton userform c'est pas simple à mettre du code adapté à ton niveau de compréhension.
Bonjour gbinforme,
Merci de prendre en considération ma demande.
Pourquoi seulement 10 cliquables pour 36 buttons, je voulais limiter(par erreur) mon tableau AD:AE à 10 lignes.Ta remarque est pertinente "qui peut le plus, peut le moins".
La seule obligation que j'ai, c'est au premier clic de copier qu'une seule fois le produit correspondant au nom du button en colonne AE et en AD le chiffre 1.
Au deuxième clic sur ce même button le chiffre 1 passe à 2 et ainsi de suite. Dans ma liste il n'y aura jamais 2 fois le même produit.
Ci dessous mon userform de Buttons réalisé par Thautherm que je remercie.
"Rendons à César ce qui lui appartient"
Range("A1").Select
UserForm2.CommandButton20.Caption = "VALIDER" & Chr(10) & "SELECTION"
Dim BT As Byte
Dim LI As Byte
Dim COL As Byte
For BT = 1 To 36
Select Case BT
Case 1 To 24
LI = BT + 1: COL = 9
Case 25 To 30
LI = BT - 23: COL = 11
Case 31 To 36
LI = BT - 29: COL = 13
End Select
Me.Controls("CommandButton" & BT).Caption = Sheets("caisse").Cells(LI, COL).Value
Next BT
End Sub
Merci de prendre en considération ma demande.
Pourquoi seulement 10 cliquables pour 36 buttons, je voulais limiter(par erreur) mon tableau AD:AE à 10 lignes.Ta remarque est pertinente "qui peut le plus, peut le moins".
La seule obligation que j'ai, c'est au premier clic de copier qu'une seule fois le produit correspondant au nom du button en colonne AE et en AD le chiffre 1.
Au deuxième clic sur ce même button le chiffre 1 passe à 2 et ainsi de suite. Dans ma liste il n'y aura jamais 2 fois le même produit.
Ci dessous mon userform de Buttons réalisé par Thautherm que je remercie.
"Rendons à César ce qui lui appartient"
Range("A1").Select
UserForm2.CommandButton20.Caption = "VALIDER" & Chr(10) & "SELECTION"
Dim BT As Byte
Dim LI As Byte
Dim COL As Byte
For BT = 1 To 36
Select Case BT
Case 1 To 24
LI = BT + 1: COL = 9
Case 25 To 30
LI = BT - 23: COL = 11
Case 31 To 36
LI = BT - 29: COL = 13
End Select
Me.Controls("CommandButton" & BT).Caption = Sheets("caisse").Cells(LI, COL).Value
Next BT
End Sub
Bonsoir,
Un bout de code, sans plus de précision ne permet pas de corriger quoi que ce soit car ce n'est pas là que se situe ta demande.
Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, ce serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.
Un bout de code, sans plus de précision ne permet pas de corriger quoi que ce soit car ce n'est pas là que se situe ta demande.
Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, ce serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.
Bonjour,
Voici ton classeur avec la gestion de tes boutons selon ta demande :
https://www.cjoint.com/c/FFuoWHosaHl
Je t'ai modifié un peu le lancement et rajouté un module de classe qui permet de traiter tous les boutons simplement.
Voici ton classeur avec la gestion de tes boutons selon ta demande :
https://www.cjoint.com/c/FFuoWHosaHl
Je t'ai modifié un peu le lancement et rajouté un module de classe qui permet de traiter tous les boutons simplement.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question