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)
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.
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
Si besoin je peux fournir un bout de code et un fichier associé pour expliquer / détailler ma demande.
Merci d'avance
Mick
Partager