Réaliser une boucle sur commandbutton

Bonjour à toutes et à tous,

Je vais essayer d'expliquer simplement mon problème :
J'ai un userform contenant beaucoup de commandbutton (entre 50 et 100)
Je n'ai pas renommé mes boutons (caption = commandbutton1 : copie du même bouton) (name = commandbutton1, commandbutton2 ...)

Je voudrais faire un code simple et le plus court possible pour :
(je sais que le bout de code que je propose ne fonctionne pas mais c'est la "meilleure image" pour expliquer ce que je veux faire)

Code:

---

1 2 3 4 5 6 7

For i = 1 to 100   Private Sub CommandButton "i"_Click() sheets("Feuil2").cells(lfin,1) = sheets("Feuil1").cells(i,1).value   Next

---

J'ai vu des choses sur le forum par "collection" pour par exemple changer la couleur de tous les commandbutton (ou autre type controle) mais je n'ai rien trouvé sur un code qui boucle sur tous les commandbutton et qui récupère l'indice du commandbutton et le stocke dans une variable.

Si besoin je peux fournir un bout de code et un fichier associé pour expliquer / détailler ma demande.

Merci d'avance

Mick

Pour boucler sur les controles => http://silkyroad.developpez.com/VBA/...UserForm/#LI-B

Citation:

---

.....qui récupère l'indice du commandbutton et le stocke dans une variable.

---

, qu'est-ce que l'indice ?

Bonne soirée, perso, je pars pour 10 jours mais j'espère que tu auras d'autres réponses

Merci pour la réponse, je vais voir ce que je peux en faire, mais je ne suis pas sur de pouvoir l'exploiter pour mon problème.
Quand je veux dire "récupérer" l'indice du commandbutton, en fait si je clique sur commandbutton1 je voudrais stocker en variable 1, si je clique sur commandbutton2, je veux récupérer 2 en variable.

En code il s'agirait d'optimiser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() Dim lfin As Integer   'Sélection de la dernière cellule vide lfin = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row   Cells(lfin, 1) = Sheets("Feuill2").Cells(1, 1).Value End Sub   Private Sub CommandButton2_Click() Dim lfin As Integer   'Sélection de la dernière cellule vide lfin = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row   Cells(lfin, 1) = Sheets("Feuill2").Cells(2, 1).Value End Sub

---

... et si j'ai 50 boutons il faut recopier 50 fois le code.
De manière plus général, si je clique sur le bouton"i" (s'ils sont tous écrit avec la même syntaxe) pouvoir récupérer cette valeur et la stocker.

J'espère avoir été assez explicite.

Merci de votre aide

un exemple à adapter, à toi de mettre dans le module de classe ce que tu veux obtenir

Dans le code de l'usf

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Commandfermer_Click() 'ceci est mon code fermant l'usf Unload Me End Sub   Private Sub UserForm_Initialize() Dim Ctrl As Control Dim Cl As bouton   Set Collect = New Collection   'boucle sur les objets de la Feuil1 For Each Ctrl In Me.Controls 'verifie s'il s'agit d'un CommandButton If TypeOf Ctrl Is MSForms.CommandButton Then If Ctrl.Name <> "Commandfermer" Then 'bouton nommé pour fermeture USF Set Cl = New bouton Set Cl.groupebouton = Ctrl Collect.Add Cl End If End If Next Ctrl   End Sub

---

dans un module de classe nommé "bouton", par exemple

Code:

---

1 2 3 4 5 6 7

Option Explicit   Public WithEvents groupebouton As MSForms.CommandButton   Private Sub groupebouton_Click() Sheets("Feuil1").Range("A1") = groupebouton.Name 'à remplacer par ce que tu veux faire End Sub

---

et dans un module standard

Code:

---

1 2	Option Explicit Public Collect As Collection

---

Merci, grâce au conseil et à un peu de recherche 'plus' poussée j'ai trouvé la solution en m'aidant du code sur les modules de classe trouvé sur :
http://excel.developpez.com/faq/?pag...sseControleUSF

Je clique donc sur résolu

Mick

Héhé, ta réponse est arrivée pendant que je testais un bout de code et que je te répondais !

Encore merci

sauf que dans mon module de classe, il subsiste un "End if" en trop