Incrémenter le nom d'un Textbox dans un USF

Bonjour,

J'ai une série de Textbox qui porte le même nom suivi d'un n° de 1 à 8 (Nom1,Nom2 etc..)

Pour les initialiser j'utilise une boucle For Next:

For i = 1 to 8

Saisie.Nom & i = Feuil1.range("A" & i +3)

next

Ca ne marche pas.

Comment faire, je patine.

Bonne journée.

Jean-Michel

Bonjour

Vous voulez donner le nom SAISIE au textbox ou Saisie est le nom de l'userform??

A quoi correspond Feuil1, le nom de l'onglet ?

Cordialement

Bonsoir,

Saisie est le nom de l'userform, Feuil1 est la feuille ou l'onglet ou sont stocké les données.

les noms des Textbox sont Nom1, Nom2 jusqu' a 11 maintenant.

.Nom1 = CLng(Feuil1.Range("F4").Value)

.Nom2 = CLng(Feuil1.Range("F5").Value)

.Nom3 = CLng(Feuil1.Range("F6").Value)

.Nom4 = CLng(Feuil1.Range("F7").Value)

.Nom5 = CLng(Feuil1.Range("F8").Value)

.Nom6 = CLng(Feuil1.Range("F9").Value)

.Nom7 = CLng(Feuil1.Range("F10").Value)

.Nom8 = CLng(Feuil1.Range("F11").Value)

.Nom9 = CLng(Feuil1.Range("F12").Value)

.Nom10 = CLng(Feuil1.Range("F13").Value)

.Nom11 = CLng(Feuil1.Range("F14").Value)

Je voudrais savoir si il est possible de faire autrement, car j'ai également une autre colonne de Textbox, une de zone de liste et une de cases à cocher.

Bonne soirée.

Bonjour

essayez ceci :

With Saisie
    For i = 1 To 11
        .Controls("Nom" & i) = CLng(Feuil1.Range("F" & i + 3).Value)
    Next i
End With

Etes-vous sur du Clng, je pense que ce n'est pas nécessaire.

car j'ai également une autre colonne de Textbox, une de zone de liste et une de cases à cocher.

Faudrait voir votre fichier

Cordialement