copier le nom de mes buttons Résolu/Fermé

Question

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

gbinforme · Answer

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.

VDB.57 · Answer

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

VDB.57 · Answer

Bonjour et merci pour ton implication gbinform

Comme demandé

http://www.cjoint.com/c/FFulAKReom2

gbinforme · Answer

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.

VDB.57 · Answer

Bonjour gbinform,

Il m'est impossible d'ouvrir le fichier.

Que je clic sur document joint, ou sur le bouton rouge accéder au fichier, j'ai une page pleine de losanges avec ? et de carrés qui s'ouvre.

VDB.57 · Answer

Bonsoir gbinform,

Je viens de réussir à ouvrir le fichier, j'ai copier la feuille illisible avec les hiéroglyphes dans excel.

Je ne sais comment te remercier, ton aide et ton efficacité m'ont été précieuses.

Encore mille fois merci.

Copier le nom de mes buttons

6 réponses

Discussions similaires