Salut à tous,
désolé apparemment je pose une question de bêtise mais je n'ai pas trouvé ou est le problème J'ai une boucle qui remplit un fichier excel à partir d'un datagrid. Je fait une lecture de nombre de ligne de la datagrid puis je fais la boucle de remplissage jusqu'à la fin. Le problème est que la boucle s'arrête sans compléter sa tâche. J'ai vérifier le nbre de ligne avant d'entrer dans la boucle et c bon. Merci de voir quel bêtise j'ai fait malgré que j'ai essayé deux méthodes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
      Dim cont As String
            For i = 2 To lngRowCount + 1
 
                For j = 1 To 10
 
                    cont = DataGridView2.Rows(i - 1).Cells(j - 1).Value
                    If j = 1 Or j = 6 Or j = 8 Or j = 9 Or j = 10 Then
                        Excel.ActiveWorkbook.ActiveSheet.Cells(i, j).value = "'" + cont
                    Else
                        Excel.ActiveWorkbook.ActiveSheet.Cells(i, j).value = cont
 
                    End If
 
                Next
 
            Next

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  Dim j As Integer
            Dim i As Integer
            i = 0
            For Each myRow2 In DataGridView2.Rows
                j = 0
                For Each myColumn2 In DataGridView2.Columns
                    Dim cont As String
                    cont = DataGridView2.Rows(i).Cells(j).Value
                    If j = 1 Or j = 6 Or j = 8 Or j = 9 Or j = 10 Then
                        Excel.ActiveWorkbook.ActiveSheet.Cells(i + 2, j + 1).value = "'" + cont
                    Else
                        Excel.ActiveWorkbook.ActiveSheet.Cells(i + 2, j + 1).value = cont
                    End If
                    j = j + 1
                Next
                i = i + 1
            Next
Merci d'avance pour votre aide