Concatenation sur un label, une combobox et une textbox

Bonjour, j'utilise un Userform ou je dois récupérer la civilité , le nom , le prénom et la date de naissance.

Je vous mets la partie que j'aimerai améliorer, j'ai cacher des labels , combobox et des textbox

j'ai écris le code suivant et il marche:

Private Sub VNbF_Change()

VNbF.MaxLength = 2                                         'nb caractères maxi autorisé dans le textbox pour le nb de personne à incrémenter

Dim j As Integer
Dim NbF As Integer

    If VNbF = "" Then
        NbF = 1
    Else
        NbF = VNbF
    End If

    If NbF = 1 Then
        LabelVC1.Visible = True
        LabelVN1.Visible = True
        LabelVP1.Visible = True
        LabelVD1.Visible = True
        VCivilite1.Visible = True
        VNom1.Visible = True
        VPrenom1.Visible = True
        VDateDeNaissance1.Visible = True
        Else
    End If

End Sub

Mon exemple comprend une personne et je dois allez jusqu'à 12 en utilisant la fonction IF cela ne va pas être beau et encore moins optimisé

Dim j As Integer

For j to  NbF
       ("LabelVC" & j).Visible = True
       ("LabelVN" & j).Visible = True
       ("LabelVP" & j).Visible = True
       ("LabelVD" & j).Visible = True
       ("VCivilite" & j).Visible = True
       ("VNom" & j).Visible = True
       ("VPrenom" & j).Visible = True
       ("VDateDeNaissance" & j).Visible = True
 Next

Cela ne fonctionne pas, j'ai un code erreur, j'ai essayer avec des variable c'est ok mais la concaténation avec les labels Textbox et Combobox je ne connais pas assez bien et j'ai besoin d'aide.

Merci d'avance

Bonsoir Aurel,

Une boucle s'écrit par exemple:

For J = 1 to 12 ou For J = 1 to Variable

Ensuite comme tu utilises des contrôles, il faut le préciser.

Controls("LabelVC" & j).Visible=true

Idem pour le reste de ton code.

Salut X_Cellus,

Merci de ta réponse ,je vais tester cette solution, j'ai jamais utilisé la commande control

je vous tiens au jus si cela fonctionne bien

Sa marche un grand merci