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

Fermé

Help me please - 15 juin 2015 à 13:45
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 15 juin 2015 à 15:54

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:

Accéder à un objet crée sous condition ds un userform
Créer un compte gmail - Guide
Créer un compte google - Guide
Vente objet occasion entre particulier - Guide
Créer un groupe whatsapp - Guide
Créer un compte instagram - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 juin 2015 à 14:35

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

Help me please
15 juin 2015 à 15:45

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

Réponse 2 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 juin 2015 à 15:54

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

Discussions similaires

ma mere a oublié son mot de passe

créer une adresse gmail pour une autre personne

Discussions similaires

Newsletters