KTM
XLDnaute Impliqué
Bonjour chers tous
J'ai 50 boutons commande sur mon userform b1;b2;b3.............b50
Je voudrais leur attribuer leurs "Caption" selon les noms indiqués dans ma feuille "Sites"
j'ai l'intention de procéder comme suit:
Private Sub UserForm_Initialize()
b1.Caption = Sheets("Sites").Range("B3").Value
b2.Caption = Sheets("Sites").Range("B4").Value
b3.Caption = Sheets("Sites").Range("B5").Value
....
....
b50.caption=Sheets("Sites").Range("B52").Value
end sub
Ce qui sera long et fastidieux. Pouvez vous m'aider à abréger mes souffrances !!!! Merci
J'ai 50 boutons commande sur mon userform b1;b2;b3.............b50
Je voudrais leur attribuer leurs "Caption" selon les noms indiqués dans ma feuille "Sites"
j'ai l'intention de procéder comme suit:
Private Sub UserForm_Initialize()
b1.Caption = Sheets("Sites").Range("B3").Value
b2.Caption = Sheets("Sites").Range("B4").Value
b3.Caption = Sheets("Sites").Range("B5").Value
....
....
b50.caption=Sheets("Sites").Range("B52").Value
end sub
Ce qui sera long et fastidieux. Pouvez vous m'aider à abréger mes souffrances !!!! Merci