Boucle toute simple [Résolu]

[kaboche]

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

[pc75]

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

[kaboche]

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

[pc75]

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.

[kaboche]

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