recuperer la value de plusieurs commandbutton

mariobross

XLDnaute Occasionnel
Bonsoir le forum.
je voudrai récuperer dans des cellules les valeurs de 90 commandbutton , pour cela j'ai pensé à une boucle , mais je butte sur la mise en place :

le code est le suivant :

Private Sub Workbook_Open()
Dim i As Byte
For i = 1 To 90
Feuil4.Range("B" & i).Value = UserForm2.CommandButton & i .Caption
Next i
UserForm2.Show
End Sub

Si je remplace "CommandButton & i" par "CommandButton1" cela fonctionne.
je joins le fichier.
 

Pièces jointes

  • lister les noms de boutons.zip
    15.7 KB · Affichages: 18

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 499
Messages
2 110 250
Membres
110 711
dernier inscrit
chmessi