Discussion :

[julienlepage]

Bonjour les gens !

Voilà, j'ai un petit soucis...
J'ai des cadres (matérialisés par des
OptionGroups), et j'aimerai les lister.

J'ai donc fait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim Cadre As OptionGroup
For Each Cadre In Forms!Accueil
    MsgBox Cadre.Name
Next

Et ça me renvoie un message d'erreur :
"Icompatibilité de type"

Avez-vous une solution pour résoudre
mon problème ? :-)

[NLozo]

Tu dois rechercher l'objet dans sa collection d'objets. Par exemple un contrôle parmi tous les contrôles.

J'espère t'avoir mis sur la piste !

Nath

[julienlepage]

Hum... Euh... C'est-à-dire ?

En fait, je crois que j'ai pas été assez explicite.
J'ai un formulaire, qui contient un certain nombre
de groupes d'options (OptionGroup), ayant tous
des noms de la forme "Cadre_X", X étant un
nombre.

Ce que je veux, c'est faire une bloucle For pour
leur appliquer une propriété.
Par exemple .visible = False.

Mais je ne sais pas comment les récupérer...
Donc je pensais avoir leurs noms via un
For Each Cadre In ...

Mais je ne sais pas comment fonctionne cette
instruction !

[NLozo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each ctl In Me.Controls
               If Left(ctl.Properties("Name"), 5) = "Cadre" Then
                    ctl.Properties("Visible") = True
                 End If
          Next

[julienlepage]

Ok, mais ton ctl, tu le définis comment ?

Moi j'avais fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim ctl As OptionGroup

mais il me met une incompatibilité de
type dès le For Each...in.

[NLozo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim ctl as Control