Bonjour,
Une liste range("A1:A10") avec des noms....
Comment initialiser un usf avec des des OptionButton qui auraient comme caption les noms ?
Merci d'avance,
Claudy
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
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
Re bonjour Robert...
en cherchant ailleurs j'ai trouvé ceci:
Private Sub UserForm_Initialize()
b = 1
t = 10
For Each cel In Range("A1:A10")
retour = Me.Controls.Add("Forms.OptionButton.1", "Opt" & b, True)
Me("Opt" & b).Top = t
Me("Opt" & b).Left = 10 ' + (b - 1) * 15
Me("Opt" & b).Caption = cel.Value
b = b + 1
t = t + 20
Next
Me.Height = t + 30
End Sub
Et ça me donne ce que je voulais....
Mais après j'ai essayé ceci, et là rien ne va!
Private Sub Opt1_Click()
Range("F1") = 65435
End Sub
Private Sub Opt2_Click()
Range("F2") = 85426