OVH Cloud OVH Cloud

Erreur 424 - Objet requis

3 réponses
Avatar
Yvan.Treuvey
Bonjour =E0 tous !!!!!
Apr=E8s 6 mois d'abscence, je reprends uin peu de service et surtout
retour sur ce cher forum.

Question : Erreur 424 - Objet Requis

Lors de l'initialisation de mon userform, je souhaite ne pas afficher
certains controls (visible=3Dfalse)
Deux m=E9thodes :

Premi=E8re methode: Affecter pour chaque control la propri=E9t=E9 false
Exemple :
Textbox1.visible=3Dfalse
Textbox2.visible=3Dfalse
Textbox3.visible=3Dfalse
Textbox4.visible=3Dfalse
Textbox5.visible=3Dfalse etc etc etc

Deuxi=E8me methode: Faire une boucle
Exemple :
For F=3D1 to 5
xToto=3D"Textbox" & F
xToto.visible=3Dfalse 'C'est ici que =E7a bug !!!
next F
Dans mon exemple, j'ai plus d'une cinquantaine de controls et je
souhaiterais utiliser la boucle.

Y-a t-il un moyen d'y parvenir ????
Merci =E0 tous ceux qui oseront se pencher sur mon probl=E8me.
@+ Lolote

3 réponses

Avatar
Garette
Bonjour,

Essaye qq chsoe comme :
For F=1 to 5
xToto="Textbox" & F
Controls(xToto).visibleúlse
next F



a écrit dans le message de news:

Bonjour à tous !!!!!
Après 6 mois d'abscence, je reprends uin peu de service et surtout
retour sur ce cher forum.

Question : Erreur 424 - Objet Requis

Lors de l'initialisation de mon userform, je souhaite ne pas afficher
certains controls (visibleúlse)
Deux méthodes :

Première methode: Affecter pour chaque control la propriété false
Exemple :
Textbox1.visibleúlse
Textbox2.visibleúlse
Textbox3.visibleúlse
Textbox4.visibleúlse
Textbox5.visibleúlse etc etc etc

Deuxième methode: Faire une boucle
Exemple :
For F=1 to 5
xToto="Textbox" & F
xToto.visibleúlse 'C'est ici que ça bug !!!
next F
Dans mon exemple, j'ai plus d'une cinquantaine de controls et je
souhaiterais utiliser la boucle.

Y-a t-il un moyen d'y parvenir ????
Merci à tous ceux qui oseront se pencher sur mon problème.
@+ Lolote
Avatar
anonymousA
Bonjour,

autre possibilité si on veut cacher tous les Textboxes et qu'on n'en
connait pas le nombre. A mettre dans le userform_initialize

For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then ctrl.visibleúlse
Next

A+


Bonjour à tous !!!!!
Après 6 mois d'abscence, je reprends uin peu de service et surtout
retour sur ce cher forum.

Question : Erreur 424 - Objet Requis

Lors de l'initialisation de mon userform, je souhaite ne pas afficher
certains controls (visibleúlse)
Deux méthodes :

Première methode: Affecter pour chaque control la propriété false
Exemple :
Textbox1.visibleúlse
Textbox2.visibleúlse
Textbox3.visibleúlse
Textbox4.visibleúlse
Textbox5.visibleúlse etc etc etc

Deuxième methode: Faire une boucle
Exemple :
For F=1 to 5
xToto="Textbox" & F
xToto.visibleúlse 'C'est ici que ça bug !!!
next F
Dans mon exemple, j'ai plus d'une cinquantaine de controls et je
souhaiterais utiliser la boucle.

Y-a t-il un moyen d'y parvenir ????
Merci à tous ceux qui oseront se pencher sur mon problème.
@+ Lolote



Avatar
Yvan.Treuvey
On 22 fév, 20:41, anonymousA wrote:
Bonjour,

autre possibilité si on veut cacher tous les Textboxes et qu'on n'en
connait pas le nombre. A mettre dans le userform_initialize

For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then ctrl.visibleúlse
Next

A+


Bonjour à tous !!!!!
Après 6 mois d'abscence, je reprends uin peu de service et surtout
retour sur ce cher forum.

Question : Erreur 424 - Objet Requis

Lors de l'initialisation de mon userform, je souhaite ne pas afficher
certains controls (visibleúlse)
Deux méthodes :

Première methode: Affecter pour chaque control la propriété false
Exemple :
Textbox1.visibleúlse
Textbox2.visibleúlse
Textbox3.visibleúlse
Textbox4.visibleúlse
Textbox5.visibleúlse etc etc etc

Deuxième methode: Faire une boucle
Exemple :
For F=1 to 5
xToto="Textbox" & F
xToto.visibleúlse 'C'est ici que ça bug !!!
next F
Dans mon exemple, j'ai plus d'une cinquantaine de controls et je
souhaiterais utiliser la boucle.

Y-a t-il un moyen d'y parvenir ????
Merci à tous ceux qui oseront se pencher sur mon problème.
@+ Lolote





Merci à tous les deux pour vos réponses qui me conviennent très bien.
Bonne continuation sur le forum et à bientôt
@+ Lolote