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