Remplir des textBox automatiquement

Bonjour,

Je souhaite remplir des textBox d'un userForm avec des valeurs que j'ai sur une feuille à côté.

Voici mon code :

    Dim cpt As Integer

    For cpt = 1 To 21
        Uf_CFG1.Controls("TB_Cfg1_" & cpt).Text = Sheets("Export").Range("A" & cpt + 1).Value
    Next
Uf_CFG1.Show

Cependant cela ne marche pas et je ne comprends pas pourquoi.

Mes textBox sont bien nommées "TB_Cfg1_1", "TB_Cfg1_2", "TB_Cfg1_3" ... , "TB_Cfg1_21".

Merci d'avance,

Zapsalis

Bonjour

Sans fichier....

Dim cpt As Integer
Uf_CFG1.Show
For cpt = 1 To 21
   Uf_CFG1.Controls("TB_Cfg1_" & cpt) = Sheets("Export").Range("A" & cpt + 1).Value
Next

on peut voir le code complet ?

Bonjour Dan,

voici le fichier correspondant, je souhaites que dans les textBox s'affiche les valeurs de la 2ème ligne de la feuille "Export".

Zapsalis

Bonjour

Ok pour le fichier mais comment voulez vous que je comprenne votre feuille Export ? Vous ne mettez rien comme titres et données

Votre userform ne doit contenir que les données de la ligne 2 ?

Edit :

1. Important !! : Vous devez refaire toutes les textbox depuis Voltage jusque la dernière car il y a un souci dans votre Userform
2. Dans votre feuille 2, le code liés au bouton doit être ceci

Private Sub CommandButton1_Click()
Uf_CFG1.Show
End Sub

3. Allez dans votre Userform et mettez le code ci-dessous

Private Sub UserForm_Initialize()
Dim cpt As Byte
For cpt = 1 To 21
    Controls("TB_Cfg1_" & cpt - 1) = Sheets("Export").Cells(1, cpt).Value
Next cpt
End Sub

A ce stade, vu le peu d'informations que vous donnez le code ne copie que ce qui est en ligne 1.

Merci j'ai réussi à me débrouiller avec cela, et ça marche.

Zapsalis

Ok. Remplacez Dim i as byte par Dim cpt as byte

J'ai corrigé dans mon post précédent

Cordialement