Userform format avec conditions

Bonjour à toutes et à tous,

J'avance petit à petit, mais je rencontre de nouveaux obstacles (normal me direz-vous), dont le dernier que je n'arrive pas à résoudre.

Mon code lance le userform suivant :

Mais je souhaiterai que si l'on inscrit le chiffre "5", que cela n'affiche pas les textbox app6, app7, app8 etc.... dans le userform suivant

J'ai déjà renommé les textbox ainsi que les box donnant le "€" à côté pour faire propre, mais je ne sais si le code qui affiche sous conditions ces textbox doit être dans un module à part ou bien sur le userform n°2 ou ailleurs.

J'ai commencé ce code dans le userform N°2 mais qui ne donne rien (nb_lots étant la valeur rentrée dans la textbox du premier userform) ( et LHC1,2,3,4 ou bien PV1,2,3,4 étant les textbox que je souhaite voir dans le userform 2) :

Sub nb_lots()

nb_lots = ajout_actif.TextBox1.Value

For i = 1 To nb_lots

appi.Visible = True
LHCi.Visible = True
PVi.Visible = True
LBHCi.Visible = True
LBPVi.Visible = True

Next

End Sub

Merci d'avance pour vos retours ! :)

Bonjour Bassbynight, bonjour le forum,

Peut-être comme ça (Bouton OK de ajout_actif) :

Private Sub CommandButton1_Click()
Dim I As Byte

Unload ajout_actif
If OptionButton1.Value = True Then
    With ajout_actif_imm
        For I = CByte(Me.TextBox1.Value) + 1 To 10
            .Controls("app" & I).Visible = False
            .Controls("LHC" & I).Visible = False
            .Controls("LBHC" & I).Visible = False
            .Controls("PV" & I).Visible = False
            .Controls("LBPV" & I).Visible = False
        Next I
        .Show
    End With
End If
End Sub

ThauThème vous êtes un génie, tout simplement. Merci

Re,

Arf ! Mort de rire... J'dirai ça à ma copine ça va aussi beaucoup la faire rire...