Remplir TextBox par Button

Bonjour Forums
Bonjour tout le monde
S'il vous plait gentelman .. si vous pouvez m'aider a resoudre ce probleme
DataGridView1 sera remplit par 1 ligne ou 2 lignes ou 3 lignes .. au maximum 5 lignes.. et j'ai 3 colonnes
Je veux lorsque je click sur Button1 alors les TextBox de 1 jusqu'a 15 seront remplis par les donnees affichees sur DataGridView1
Les TextBox de 1 a 3 seront remplis par la premiere ligne
Les TextBox de 4 a 6 seront remplis par la deuxieme ligne
Les TextBox de 7 a 9 seront remplis par la troisieme ligne
Les TextBox de 10 a 12 seront remplis par la quatrieme ligne
Les TextBox de 13 a 15 seront remplis par la cinquieme ligne
Par exemple .. si j'ai sur DataGridView1 uniquement 3 lignes alors dans ce cas les TextBox de 10 a 15 seront biensur vides ..
j'ai essaye avec ce code que je l'ai trouve simplement au NET mais la malheur si j'ai sur DataGridView1 seulement 3 lignes .. ca ne fonctionne pas .. il fonctionne tres bien si j'ai sur DataGridView 4 ou 5 lignes mais 1 ou 2 ou 3 lignes ca ne fonctionne pas et les TextBox restent vides ..

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 26 27 28 29 30 31 32 33 34 35 36 37

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click     Dim i As New List(Of Integer) For Each r As DataGridViewRow In DataGridView1.Rows i.Add(r.Index) If i.Count = 5 Then   Dim r1 As DataGridViewRow = DataGridView1.Rows(i(0)) TextBox1.Text = r1.Cells(0).Value TextBox2.Text = r1.Cells(1).Value TextBox3.Text = r1.Cells(2).Value   Dim r2 As DataGridViewRow = DataGridView1.Rows(i(1)) TextBox4.Text = r2.Cells(0).Value TextBox5.Text = r2.Cells(1).Value TextBox6.Text = r2.Cells(2).Value   Dim r3 As DataGridViewRow = DataGridView1.Rows(i(2)) TextBox7.Text = r3.Cells(0).Value TextBox8.Text = r3.Cells(1).Value TextBox9.Text = r3.Cells(2).Value   Dim r4 As DataGridViewRow = DataGridView1.Rows(i(3)) TextBox10.Text = r4.Cells(0).Value TextBox11.Text = r4.Cells(1).Value TextBox12.Text = r4.Cells(2).Value   Dim r5 As DataGridViewRow = DataGridView1.Rows(i(4)) TextBox13.Text = r5.Cells(0).Value TextBox14.Text = r5.Cells(1).Value TextBox15.Text = r5.Cells(2).Value   Exit For End If Next End Sub

---

Je ne sais pourquoi ??
Merci beaucoup d'avance pour l'aide
Amicalement
MADA

Bonjour Mada,

Normal (je crois) que ça ne marche pas car tu as placé un test "grâce" auquel les TextBox ne sont remplies que lorsqu’il y a 5 lignes, donc s'il y en a moins ...

Dim i As New List(Of Integer)
For Each r As DataGridViewRow In DataGridView1.Rows
i.Add(r.Index)
If i.Count = 5 Then
' ... ... ...

J'espère que ceci t'indiquera une bonne piste ...

Bonjour Phil Rob
Tres gentil de votre part
J'ai pas fais attention a cet (if) .. je vais essayer des que je rentre chez moi
Cordialement
MADA

Phil Rob
Cher gentelman
Vraiment un cauchemar ..
Lorsque j'ai efface cette ligne : If i.Count = 5 Then aussi j'ai efface End if au dessous du code
J'ai essaye d'executer le code alors j'ai obtenu cet erreur ( L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.) au niveau de cette ligne

Code:

---

Dim r2 As DataGridViewRow = DGV_CANDIDATE.Rows(i(1))

---

Amicalement
MADA

Re,

Je te propose d'essayer ceci (c'est plus court):

Code:

---

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

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click   Dim IndexLigne As Integer Dim IndexTextBox As Integer   Dim TB(15) As TextBox   For Each Obj As Object In Me.Controls If Obj.GetType.Name = "TextBox" Then IndexTextBox = Obj.Name.Substring(7) TB(IndexTextBox) = Obj End If Next   IndexTextBox = 1 For IndexLigne = 0 To DataGridView1.Rows.Count - 1 If Not DataGridView1.Item(0, IndexLigne).Value Is Nothing Then TB(IndexTextBox).Text = DataGridView1.Item(0, IndexLigne).Value If Not DataGridView1.Item(0, IndexLigne).Value Is Nothing Then TB(IndexTextBox + 1).Text = DataGridView1.Item(1, IndexLigne).Value If Not DataGridView1.Item(0, IndexLigne).Value Is Nothing Then TB(IndexTextBox + 2).Text = DataGridView1.Item(2, IndexLigne).Value IndexTextBox += 3 Next End Sub

---

Merci beaucoup Phil Rob pour l'aide
Malheureusement j'ai obtenu cet erreur ..
Pièce jointe 459796
Amicalement
MADA

Merci Beucoup maitre Phil Rob
C'etait ma faute .. votre code ca fonctionne tres tres bien
Merci pour l'aide et pour cet impeccable et court et efficace code
Parfaitement resolu
Amicalement
MADA