Boucle toute simple

Bonjour à tous,

Je n'arrive pas à faire de boucle (au secours), pourriez-vous m'aider ?

J'ai 156 lignes dans mon tableau, alors je ne voudrai pas répéter ces paragraphes 156 fois. Pourriez-vous m'aider ?
Merci de votre aide

Kaboche

Voici mes codes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub CommandButton4_Click() If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 1).Value = MAJE0.TextBox1.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 2).Value = MAJE0.TextBox2.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 3).Value = MAJE0.TextBox3.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 4).Value = MAJE0.TextBox4.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 5).Value = MAJE0.TextBox5.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 6).Value = MAJE0.TextBox6.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 7).Value = MAJE0.TextBox7.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 8).Value = MAJE0.TextBox8.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 9).Value = MAJE0.TextBox9.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then Worksheets("bdouvrages").Cells(4, 10).Value = MAJE0.TextBox10.Value   If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 1).Value = MAJE0.TextBox1.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 2).Value = MAJE0.TextBox2.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 3).Value = MAJE0.TextBox3.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 4).Value = MAJE0.TextBox4.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 5).Value = MAJE0.TextBox4.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 6).Value = MAJE0.TextBox5.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 7).Value = MAJE0.TextBox6.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 8).Value = MAJE0.TextBox7.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 9).Value = MAJE0.TextBox9.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(5, 1).Value Then Worksheets("bdouvrages").Cells(5, 10).Value = MAJE0.TextBox10.Value If TextBox1.Value = Worksheets("bdouvrages").Cells(4, 1).Value Then   End Sub

---

Bonjour,

Une piste :

Code:

---

1 2 3 4 5 6

For i = 1 to 156 For j = 1 to 10 If TextBox1.Value = Worksheets("bdouvrages").Cells(i, 1).Value Then Worksheets("bdouvrages").Cells(i, j).Value = MAJE0.TextBox1.Value Next Next

---

merci beaucoup pour la réponse.
Cependant je souhaiterais de le code prenne en compte le changement de valeur de la textbox :

Code:

---

If TextBox1.Value = Worksheets("bdouvrages").Cells(i, 1).Value Then Worksheets("bdouvrages").Cells(i, j).Value = MAJE0.TextBox1.Value

---

En effet, le but serait que la textbox suive la valeur "J"

Merci pour ton aide

Re,

Tu veux dire que tu as 156 textbox (de TextBox1 à TextBox156) ?

Il serait alors plus judicieux de créer un tableau de TextBox. Tu pourras alors jouer sur l'indice de ces TextBox.

Oui j'ai bien un grand nombre de textbox. Je ne sais pas ce qu'est un tableau de textbox, mais je vais regarder.
J'ai trouver ce que je voulais faire grâce à toi.
Merci beaucoup de ton aide.

Kaboche