Userform automatique

Bonjour le forum,

J'ai une userform :

Comme vous le voyez, j'ai une toupie dont le nombre à côté change lorsqu'on l'augmente ou on le diminue, ce que j'aimerais, c'est lorsque le numéro à côté de la toupie vos 6, et bien j'ai simplement 6 TextBox qui s'affichent, si j'ai le numéro 9, il faut que 9 TextBox s'affichent.

Tout cela en tenant compte de la taille de la hauteur de l'userform qui doit s'adapter au contenu.

J'ai donc fait ceci :

Private Sub SpinButton1_Change()
NombreTechnicien = SpinButton1.Value
For i = 1 To NombreTechnicien
Choose(i, TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, ...).Visible = True
Next i
End Sub

Et donc mes TextBox apparaissent lorsque j'augemente le SpinButton, mais lorsque je le diminue rien ne se passe !

Pouvez-vous m'aider ?

Fichier joint

Merci

EDIT : En fait j'ai le problème de la disparition des TextBox, quelqu'un peut m'aider s'il vous plait ?

Merci

Bonjour,

essaie avec ce code, à adapter en fonction du nombre de textbox :

Private Sub SpinButton1_Change()
For i = 1 To 5
Me.Controls("TextBox" & i).Visible = False
Next i
NombreTechnicien = IIf(Me.SpinButton1 > 6, 5, Me.SpinButton1 - 1)
For i = 1 To NombreTechnicien
Choose(i, TextBox1, TextBox2, TextBox3, TextBox4, TextBox5).Visible = True
Next i
End Sub

Private Sub UserForm_Initialize()
For i = 1 To 5
Me.Controls("TextBox" & i).Visible = False
Next i
End Sub

Ça fonctionne parfaitement !!

Merci