Remontée des données vers un form

Bonjour tout le monde et bonne année à tous:lahola:

Dites moi
sur ma feuille excel j'ai de données sur deux lignes :

1ere ligne de AA6 à BE6
2eme ligne de AA7 à BE7

sur mon formulaire ( form1) jai reproduis des textbox sur de lignes
1ere ligne textbox1_1 à textbox1_31
2eme ligne textbox2_1 à textbox2_31

comment puis-je par le code à l'ouverture de mon formulaire faire remonter les données de ma feuille dans les textbox de mon form

merci a tous

Bonsoir UDSP, bonsoir le forum,

Peut-être comme ça :

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Dim I As Byte   For I = 1 To 31 Me.Controls("TextBox1_" & I).Value = Cells(6, 26 + I).Value Me.Controls("TextBox2_" & I).Value = Cells(7, 26 + I).Value Next I End Sub

---

Merci j'ai adapté comme suit mais ça marche super merci

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Dim I As Byte For I = 1 To 31 Me.Controls("TextBox1_" & I).Value = Feuil1.Cells(6, 26 + I).Value Me.Controls("TextBox2_" & I).Value = Feuil1.Cells(7, 26 + I).Value Next I End Sub

---

Alors la c'est à n'y rien comprendre

le code fourni par Thautheme fonctionne bien

le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize() Dim I As Byte For I = 1 To 31 Me.Controls("TextBox1_" & I).Value = Feuil1.Cells(6, 26 + I).Value Me.Controls("TextBox2_" & I).Value = Feuil1.Cells(7, 26 + I).Value Next I End Sub

---

le truc que je pige pas c'est que sur mon Form j'ai posé un Frame2 avec le même type de Textbox
ici Textbox3_1 à Textbox3_31

rien de très nouveau

du coup j'ai adapté le code comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

For I = 1 To 31 Me.Controls("TextBox1_" & I).Value = Feuil1.Cells(6, 26 + I).Value Me.Controls("TextBox2_" & I).Value = Feuil1.Cells(7, 26 + I).Value Me.Controls("TextBox3_" & I).Value = Feuil1.Cells(8, 26 + I).Value Next I End Sub

---

le truc c'est que ca marche bien pour les deux premières lignes hors Frame2 par contre ma ligne de textbox dans le Frame2 rien ne s'affiche

j'ai essayé ceci et cela me créé une erreur

Code:

---

1 2 3 4 5 6 7 8 9 10

For I = 1 To 31 Me.Controls("TextBox1_" & I).Value = Feuil1.Cells(6, 26 + I).Value Me.Controls("TextBox2_" & I).Value = Feuil1.Cells(7, 26 + I).Value Frame2.Controls("TextBox3_" & I).Value = Feuil1.Cells(8, 26 + I).Value Next I End Sub

---

Comment cela se fait-il

Merci

c'est bon ca marche en fait c'etait un probleme de frame j'avais superposé des textbox sur ceux d'origine du coup je voyais pas le resultat

merci