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

Help me please -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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.
A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
Help me please
 
En suivant le lien, voila ce que j'ai donc écrit en bouclant sur les optionbutton:

Dim ctrl As Control
Dim j As Integer
j = 1
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.OptionButton Then
If "OptionButton" & j = True Then
MsgBox "OptionButton" & j
End If
j = j + 1
End If
Next ctrl


Et j'ai un message d'erreur "Incompatibilité de type" sur le If "OptionButton" & j = True

Merci de votre aide
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0

Discussions similaires

Comment télécharger un torrent ?
Gotdann2003 -
ROSSi -

2 réponses