Problème dans macre

MARIEG58 -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 
While Cells(LIG, 2) <> ""

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