Bonjour,
Je travail sur un fichier de plus de 20 000 lignes, et à partir de la ligne 9563, je sors de la boucle.
Je ne sais pas du tout pourquoi...
For Ligne = 0 To DerniereLigne
For i = 0 To UBound(ListePaysN)
If ListePaysN(i) = Workbooks(FichierUtilise).Sheets(OngletCA).Cells(Ligne, ColonnePays) Then
TonnageN(i) = TonnageN(i) + Workbooks(FichierUtilise).Sheets(OngletCA).Cells(Ligne, ColonnePoids)
CAN(i) = CAN(i) + Workbooks(FichierUtilise).Sheets(OngletCA).Cells(Ligne, ColonneCA)
NbContratN(i) = NbContratN(i) + 1
GoTo LigneSuivante
End If
Next i
LigneSuivante:
Next Ligne
DerniereLigne = 20 932
Si quelqu'un a une idée (nimporte laquelle), je suis preneur.
