Accéder à un objet crée sous condition ds un userform Fermé

Question

Bonjour

J'ai créé un UserForm dans lequel se place des OptionButton en fonction du remplissage d'une colonne dans Excel. J'arrive bien à afficher cet userform, mais j'aimerais bien effectuer un test pour savoir si une case à été cochée. Voilà donc mon code:
Dim i As Integer
For i = 1 To 7  '7=nbre optionButton
    If Me.Controls.["OptionButton"&i].Value=True Then
                 [...]
    End If
Next

Et lors du passage sur le test, il me mets "Propriété ou méthode non gérée par cet objet".
Donc si quelqu'un à la réponse, merci de m'aider.

cs_Le Pivert · Answer

Bonjour,

Voir ceci:

 https://silkyroad.developpez.com/VBA/ControlesUserForm/

Dim Ctrl As Control
    For Each Ctrl In UserForm1.Controls
   If Ctrl.Value = True Then
    MsgBox Ctrl.Name
     End If
    Next

cs_Le Pivert · Answer

Comme ceci:

Dim Ctrl As Control
    For Each Ctrl In UserForm1.Controls
   If TypeOf Ctrl Is MSForms.OptionButton Then
   If Ctrl.Value = True Then
    MsgBox Ctrl.Name
    End If
     End If
    Next

Accéder à un objet crée sous condition ds un userform

2 réponses

Discussions similaires