reduire code vba

[dIDIER 2]

bonjour le forum

je cherche a réduire des code vba pour gagner de la place mémoire.
voila une partie de mon code qui se repete souvant dans un sens ou dans l'autre au niveau de la visibilité.

ComboBox2.Visible = False
ComboBox3.Visible = False
ComboBox4.Visible = False
ComboBox5.Visible = False
Label3.Visible = False 'mag
Label4.Visible = False 'perso
Label5.Visible = False 'siege
Label6.Visible = False 'dr

TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
TextBox7.Visible = False
TextBox8.Visible = False
TextBox9.Visible = False
TextBox10.Visible = False
TextBox11.Visible = False
TextBox12.Visible = False
TextBox13.Visible = False
TextBox14.Visible = False
TextBox15.Visible = False
TextBox16.Visible = False
TextBox17.Visible = False
TextBox18.Visible = True
et il y en a d'autre visible ou invisible.

si vous avez un moyen plus simple qui permet de gagner de la place ou d'éviter un peu de frappe sur le clavier, je suis preneur.

merci
Didier2

 

[jacquesderyes]

Bonsoir Didier et les amis du forum
Tu peux raccourcir ton code de cette manière:


With UserForm1
For i = 2 To 5
.Controls("ComboBox" & i).Visible= False
Next


For i = 13 To 16

.Controls("Label" & i).Visible= False
Next
For i = 1 To 18

.Controls("TextBox" & i).Visible= False
Next

End With

Bien amicalement

Jacques de ryes

 

[dIDIER 2]

merci Jacques

cela corespond a ce que je chercher.

a bientôt
Didier2