Comment puis-je ajouter dynamiquement un bouton radio dans un formulaire à l'aide de VBA

Je veux ajouter dynamiquement un bouton radio dans un formulaire, à l'aide de VBA.

J'ai essayé l'écriture de ce code, mais il se bloque avec "Incompatibilité de Type"

Dim optionBtn As OptionButton
Set optionBtn = UserForm1.Controls.Add("Forms.OptionButton.1", "name", True)

optionBtn.Left = 10
optionBtn.Top = 10
optionBtn.Width = 30
optionBtn.Group = "q1"

J'ai aussi essayé de faire ceci:

Dim optionBtn As Control
Set optionBtn = UserForm1.Controls.Add("Forms.OptionButton.1", "name", True)

optionBtn.Left = 10
optionBtn.Top = 10
optionBtn.Width = 30
optionBtn.Group = "q1"

mais j'ai un Contrôle, pas un OptionButton - comment puis-je convertir un OptionButton ? (désolé, je suis nouveau sur VB)

InformationsquelleAutor melculetz | 2010-01-12

2

J'ai été en mesure de le faire fonctionner avec ce (Excel 2003):
```
Dim lbl As Variant

Set lbl = UserForm1.Controls.Add("Forms.Label.1", "lblFoo", True)
lbl.Caption = "bar"
```
Mise à jour pour refléter vos modifications à partir d'un Label à un contrôle OptionButton

Encore une fois, la clé est d'utiliser une Variante du type de la variable que vous attribuez le retourné de contrôle pour:
```
Dim opt As Variant

Set opt = UserForm1.Controls.Add("Forms.OptionButton.1", "radioFoo", True)
opt.Caption = "Bar"
```
Gardez à l'esprit que la saisie semi-automatique ne fonctionne pas sur les variables qui sont définies comme des Variantes. Cependant vous pouvez toujours faire référence aux propriétés et méthodes de ces variables par les taper manuellement.

InformationsquelleAutor Mark Biek

En fait, je crois que le problème réside dans le fait que vous nommez optionBtn comme un objet bouton. Il doit être nommé comme l'un des MSForms Bouton d'Option. Depuis une Variante peut être un objet, cela fonctionnera à l'aide d'une variante.

J'ai utilisé la commande suivante et il fonctionne très bien.

Dim TempForm As Object
Dim newOptionButton as MSForms.OptionButton
Dim sUserformName as string
Dim i as integer
Dim x as integer
Dim y as integer
' other junk removed for example sake...


sUserformName = sheet1.cells(1,1)

' create form
Set TempForm = ThisWorkbook.VBProject.VBComponents.Add(3)
With TempForm
    .Properties("Caption") = sUserformName
    .Properties("Width") = 450
    .Properties("Height") = 300
End With

for i = 3 to sheet1.range("A65536").End(XlUp).Row
sDefault = sheet1.cells(i,5)
iGN = sheet1.cells(i,6)


' additional code removed... for sake of example... the code would add labels, text boxes, etc...

    Set newOptionButton = TempForm.designer.Controls.Add("Forms.optionbutton.1")
    With newOptionButton
        .Caption = sDefault
        .GroupName = "Group" & iGN
        .Top = 20 + (20 * x)
        .Left = y
        .Height = 16
        .Font.Size = 8
        .Font.Name = "Ariel"
    End With

' ici les modifications de code x et y selon l'endroit où l'utilisateur (modèle excel), dirige le contrôle suivant.

ensuite, j'ai

Bonne chance....

InformationsquelleAutor Joshua Matisoff

0

marque code devrait fonctionner, mais souvent je préfère créer l'élément manuellement, puis afficher/masquer fondé sur la nécessité.
- Tout dépend de ce que vous essayez de faire. J'ai connu des situations où la forme affichée modifiée en fonction de l'information dans la feuille de calcul. Dans ce cas, le contrôle dynamique de création est à peu près la seule façon de le gérer.
- Je suis d'accord. Je détesterais avoir à créer tout le temps si j'avais seulement besoin de l'afficher... C'était difficile à dire à partir de la question de l'endroit où l'OP a été vient de. Tant que nous sommes en jetant options là-bas... je vais aussi utiliser Multi-page outils et de masquer les onglets de formulaire de contrôle de flux.
InformationsquelleAutor guitarthrower

Vous devez définir l'objet comme un optionbutton de la msforms bibliothèque.

Dim optionBtn As MSForms.OptionButton
Set optionBtn = UserForm1.Controls.Add("Forms.OptionButton.1", "name", True)

InformationsquelleAutor Andy Pope

Vous devez vous connecter pour publier un commentaire.