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
Merci d'avance pour votre aide
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
Partager