Masquer en masse

RMYX · 6 Juin 2005

Bonjour le forum,

je retrouve de plus en plus avec des tas de combobox et autre dans mes userform et je souhaiterais savoir si il est possible de les masquer tous d'un coup.
Je m'explique: j'ai 12 combobox et textbox que je veux masquer à l'ouverture du userform. Je n'arrive pas à trouver un code du style:

for i=1 to 12

me.combox(i).visible=false

next i

Et comme ça 3 ligne au lieu de 12

Merci d'avance 😉

JCA06 · 6 Juin 2005

Bonsoir RMYX, et bonsoir le forum !

ça fait longtemps que je ne suis pas venu mais c'est parce que je suis dans mes macros, et que gràce à vous j'ai progressé !
Du coup, je vous pose moins de questions.

Pour ta question, il doit y avoir moyen d'utiliser ceci :

For Each MyControl In Controls
For i = 1 to 12
If MyControl.name = 'Combobox' & i Then MyControl.Visible = False
Next i
Next

Enfin, bon, quelque chose comme ça !

Bonne soirée.

_Thierry · 6 Juin 2005

Bonjour Jean Charles, RMYX, le Forum

En plus simple, Jean Charles, sur une Seule Boucle en partant de ta base mais permettant deux différentes méthode bien distintes :

Private Sub CommandButton1_Click()
Dim CTRL As Control
    For Each CTRL In Me.Controls
        If Left(CTRL.Name, 5) = 'Combo' Then CTRL.Visible = False
    Next CTRL
End Sub

Private Sub CommandButton2_Click()
Dim i As Byte
    For i = 1 To 5
        Controls('Combobox' & i).Visible = False
    Next i
End Sub

Bonne Soirée
@+Thierry

PS on se fait une bouffe un de ces 4 ?

RMYX · 7 Juin 2005

Salut tout le monde,

un grand merci à vous deux pour vos réponses et en effet it's working !

A bientot. :woohoo:

Masquer en masse

RMYX

Guest

JCA06

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

RMYX

Guest

Discussions similaires

Masquer en masse

RMYX

Guest

JCA06

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

RMYX

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency