Private Sub UserForm_Initialize()
Dim I As Byte
Dim O As Worksheet
Set O = Worksheets("Feuil1") 'à adapter
For I = 1 To 10
Me.Controls("OptionButton" & I).Caption = O.Cells(I, 1).Value
Next I
End Sub
Bonjour Claudy, bonjour le forum,
Si tu as conservé le nom par défaut des OptionButtons, le code ci-dessous devrait convenir :
VB:Private Sub UserForm_Initialize() Dim I As Byte Dim O As Worksheet Set O = Worksheets("Feuil1") 'à adapter For I = 1 To 10 Me.Controls("OptionButton" & I).Caption = O.Cells(I, 1).Value Next I End Sub