boucle sur des commandbutton

[mariobross]

bonsoir le forum, je voudrai réaliser en boucle une opération sur des commandbutton :

Private Sub UserForm_Initialize()

With UserForm4.CommandButton1
.Caption = Feuil5.RANGE("B100").Value
End With
With UserForm4.CommandButton2
.Caption = Feuil5.RANGE("B101").Value
End Withbutton :
'a faire du commandbutton 1 AU 90
'et de la cellule b100 à B190

pour l'instant j'ai écris tout le code mais c'est long , quelqu'un aurai au moins une piste ? merci.

 

[excalibur]

Re : boucle sur des commandbutton

bonjour mariobross le forum un ex:a adapter
Option Explicit
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 90
With Controls("commandbutton" & i)
.Caption = Cells(i, 1)
End With
Next i
End Sub'salutations

 

[JYLL]

Re : boucle sur des commandbutton

Bonjour Mariobross et Excalibur,

Grand merci à Excalibur qui m'a fait retrouver le ( Controls ) je l'avais complétement perdu.

@+

 

[mariobross]

Re : boucle sur des commandbutton

bonsoir ,excalibur , jyll ,le forum merci pour le code c'est sur ça simplifie l'écriture.