Bonjour à tous,
J'ai le fichier suivant : référence, quantité et prix
J'aimerai bien créer une macro qui me permettra pour chaque référence qui se répète d'additionner la quantité et calculer le prix moyen pondéré par la quantité
Par exemple pour la référence 725105913 (colorée en jaune et qui se répète 3 fois) je veux avoir le résultat suivant: quantité= 0,7+1+0,055 et prix moyen pondéré =(0,7+1)*8,45 + (0,055*8,46) et éliminer après les lignes qui se répète
j'ai crée la macro suivante:
Dim Lg As Long
Dim p As Long
Dim Compteur As Integer
Application.ScreenUpdating = False
Lg = Range("A" & Rows.Count).End(xlUp).Row
For p = Lg To 3 Step -1
If Range("A" & p) = Range("A" & p - 1) Then
Compteur = Compteur + 1
Range("B" & p - 1).Value = Range("B" & p) + Range("&" p - 1)
Range("C" & p - 1).Value = Range("C" & p - 1) * Range("B" & p - 1)/ Range("B" & p - 1)
Range("A" & p & ":C" & p).Delete shift:=xlShiftUp
End If
Next p
End Sub
Seulement le problème réside dans le calcul du prix pondéré par la quantité
y'a t-il quelqu'un qui peut m'aider à résoudre ce problème à fin d'obtenir le résultat souhaité. Merci d'avance
J'ai le fichier suivant : référence, quantité et prix
J'aimerai bien créer une macro qui me permettra pour chaque référence qui se répète d'additionner la quantité et calculer le prix moyen pondéré par la quantité
Par exemple pour la référence 725105913 (colorée en jaune et qui se répète 3 fois) je veux avoir le résultat suivant: quantité= 0,7+1+0,055 et prix moyen pondéré =(0,7+1)*8,45 + (0,055*8,46) et éliminer après les lignes qui se répète
j'ai crée la macro suivante:
Dim Lg As Long
Dim p As Long
Dim Compteur As Integer
Application.ScreenUpdating = False
Lg = Range("A" & Rows.Count).End(xlUp).Row
For p = Lg To 3 Step -1
If Range("A" & p) = Range("A" & p - 1) Then
Compteur = Compteur + 1
Range("B" & p - 1).Value = Range("B" & p) + Range("&" p - 1)
Range("C" & p - 1).Value = Range("C" & p - 1) * Range("B" & p - 1)/ Range("B" & p - 1)
Range("A" & p & ":C" & p).Delete shift:=xlShiftUp
End If
Next p
End Sub
Seulement le problème réside dans le calcul du prix pondéré par la quantité
y'a t-il quelqu'un qui peut m'aider à résoudre ce problème à fin d'obtenir le résultat souhaité. Merci d'avance