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.
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.