[VBA] Problème d'incrémentation Résolu

Question

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.

Cordialement,

MG

Configuration: Windows XP / Internet Explorer 6.0

MG · Answer

Un petit up pour la route

MG · Answer

Mon problème venait de plus haut dans mon code.
Donc tout est résolu !

[VBA] Problème d'incrémentation

2 réponses

Votre réponse

Discussions similaires