Creer des optionbouton dans un USF

Claudy

XLDnaute Impliqué
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
 

Robert

XLDnaute Barbatruc
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
 

Claudy

XLDnaute Impliqué
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
 

Claudy

XLDnaute Impliqué
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

End Sub

A+
Claudy
 

job75

XLDnaute Barbatruc
Bonjour Claudy, Robert,

Le message d'erreur apparaît bien sûr dans 2 cas :

- soit les noms des OptionButtons ont été modifiés

- soit les OptionButtons n'existent pas et il faut alors les créer.

Mais pour cela il faudrait nous montrer l'UserForm et dire où les placer.

A+
 

Discussions similaires


Haut Bas