Creer des optionbouton dans un USF

Robert

XLDnaute Barbatruc

Repose en paix

• 14 Mars 2017

• #2

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

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 14 Mars 2017

• #3

Bonjour et merci....
Objet spécifié introuvable 😳

A+

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 14 Mars 2017

• #4

Robert à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 14 Mars 2017

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2017

• #6

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2017

• #7

Re,

Ok, j'ai vu le dernier code, donc il faut bien créer les boutons.

Les macros pré-écrites comme Private Sub Opt1_Click() ne peuvent pas se déclencher.

Il faut alors utiliser un Module de classe qui prendra en charge les OptionButtons créés.

Il y a des exemples sur le forum, en particulier le post #6 de ce fil :

https://www.excel-downloads.com/thr...on-dans-un-userform-en-vba-ou-autre.20008320/

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2017

• #8

Re,

Voyez l'utilisation du Module de classe dans le fichier joint.

A+

 

Pièces jointes

• Création de contrôles(1).xlsm

  26.7 KB · Affichages: 52

Vote positif 0 Vote négatif