Problème dans macre

MARIEG58 -  
Bonjour,
J'ai une macro qui traite environ 40000 lignes et qui doit calculer le prix moyen d'un article.
Ce prix moyen se calcule bien sur les 29000 premières lignes mais pas les suivantes.
Voici le code utilisé :
Calcul prix moyen

LIG = 2
While Cells(LIG, 2) <> ""
ca = Cells(LIG, 6)
qte = Cells(LIG, 5)
If qte <> 0 Then resultat = ca / qte Else resultat = 0
Cells(LIG, 7) = resultat
LIG = LIG + 1
Wend
ActiveCell.Offset(0, 6).Columns("A:A").EntireColumn.Select
Selection.NumberFormat = "#,##0.00"

Pouvez vous me dire où est l'erreur
Merci de votre aide

1 réponse

  1.  f894009
    Bonjour, 
    While Cells(LIG, 2) <> ""

    votre code arrete le calcul des que Cells(LIG, 2) est vide
    0