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+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas