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 : Sélectionner tout - Visualiser dans une fenêtre à part
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