XL 2016 Affichage de textbox conditionné par une variable

[NicoMrs]

Bonjour les Exceliens !

J'ai une requête à vous soumettre.
J'utilise un UF pour saisir les âges des enfants d'une personne. L'utilisateur doit d'abord saisir le nombre d'enfants, le but étant d'afficher autant de textbox que le nombre d'enfants saisis, puis de récupérer les valeurs saisies dans une feuille

Voilà mon code (et une copie du fichier source en PJ) :

Private Sub UserForm_Initialize()
With UserForm2
        .Left = 10
        .Top = 200
End With

For i = 1 To 10
    Controls("TextBox" & i).Value = 0
Next i

End Sub

Private Sub NombreEnfants_AfterUpdate()
Dim nombre As Byte
Dim i As Byte

nombre = NombreEnfants.Value

For i = 1 To nombre
    Controls("LabelEnfant" & nombre).Visible = True
    Controls("TextBox" & nombre).Visible = True
Next i

End Sub

Private Sub BoutonValider_Click()
Dim i As Byte
    With Sheets("Enfants")
        For i = 1 To 10
            .Range("B" & i) = Controls("TextBox" & i).Value
        Next i
  End With

    Unload UserForm2

End Sub

J'ai surement fait une erreur, quand je teste seul le textbox correspondant au nombre saisi s'affiche... Alors que j'en veux autant que le nombre saisi !

Si vous avez des idées pour que ce code fonctionne, vous aurez ma gratitude éternelle ! Je précise que je suis néophyte et autodidacte en vba, svp merci d'avance pour votre indulgence...

Dans l'attente de vos retours
Nicolas

 

[Chris24]

Bonjour

Comme ceci

For i = 1 To nombre
    Controls("LabelEnfant" & i).Visible = True
    Controls("TextBox" & i).Visible = True
Next i

Cdt

 

[NicoMrs]

Evidemment, j'ai inversé les deux variables mdr ! Ca marche ! Merci beaucoup Chris pour ta réponse rapide et efficace !