Nombre de TextBox à afficher.

Bonjour le Forum

J'aimerai faire apparaitre sous un USF une série de TextBox suivant un nombre voulu (valeur = TextBox1). Un paramètre important doit être pris en compte le "choix" des OptionButton1 et OptionButton2. L'articulation de ses choix sont indiqués sous le code VBA (bouton Valider).

Ci-dessous un aperçu:

'Les champs "TextBox3" et suivant sont saisies à la volée jusqu'au nombre demandé avec une alerte du nombre saisie en TextBox2 incrémentation, au dernier TextBox:
'Soit validation automatique c'est à dire transcription des valeurs aux cellules choix 1 ou choix 2 de la feuil1 et fermeture de USF.
'Soit une alarme qui prévient que le dernier TextBox est rempli et un setfocus sur le bouton "Valider".

La boucle

If OptionButton1 = True Then 'Choix 1
'Si textbox1 = 1 alors afficher textbox3 à textbox4
'Si textbox1 = 2 alors afficher textbox3 à textbox6
'Si textbox1 = 3 alors afficher textbox3 à textbox8 etc...
For n = 1 To 15
Me.Controls("TextBox" & n).Visible = True 'Affiche le nombre de textbox suivant textbox1
If n > TextBox1 Then
Me.Controls("TextBox" & n).Visible = False 'Cache le restant des textbox
End If
Next n
Else 'Choix 2
'Si textbox1 = 1 alors afficher textbox3 à textbox5
'Si textbox1 = 2 alors afficher textbox3 à textbox8
'Si textbox1 = 3 alors afficher textbox3 à textbox11 etc...
For n = 1 To 15
Me.Controls("TextBox" & n).Visible = True 'Affiche le nombre de textbox suivant textbox1
If n > TextBox1 Then
Me.Controls("TextBox" & n).Visible = False 'Cache le restant des textbox
End If
Next n
End If

Le petit plus serait de montrer USF au dimensions suivant le nombre de textbox demandé.

Dans l'attente

Merci d'avance Roby