Masquer en masse

[RMYX]

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]

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]

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]

Salut tout le monde,

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

A bientot. :woohoo: