VBA Calculer le prix de vente unitaire

[Arpette]

Bonsoir à toutes et à tous,
je souhaites calculer le prix de ventes unitaires d'articles (P.V.U). Au début, je devais calculer ce prix en fonction du prix d'achat(P.A.U). Donc dans ma macro (P.A.U*Coefficient)+(M.O*Prix de l'heure).
Maintenant je dois recalculer si Coef ou MO ou prix de l'heure change. Là je n'y arrive pas😛
Je joints un fichier
Merci de votre aide
@+

 

[ERIC S]

Re : VBA Calculer le prix de vente unitaire

Bonsoir

pourquoi utiliser une macro au lieu de fonctions?

 

[Arpette]

Re : VBA Calculer le prix de vente unitaire

Bonsoir Eric, j'utilise une macro car ce projet sert à faire des devis et j'ai supprimé toutes les fonctions pour mettre tout en code (c'est plus sûr et moins lourd). Cette partie est une toute petite partie du projet et c'est la dernière.
Merci de ton aide.
@+

 

[ERIC S]

Re : VBA Calculer le prix de vente unitaire

A essayer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
'si la modification a lieu en D3:D65536
If Not Intersect(Target, Range("D3:D65536")) Is Nothing Then
    Target.Offset(0, 1).Value = Application.WorksheetFunction.Sum(Target.Value * Range("G2") + Target.Offset(0, 2) * Range("H2"))
    'si D est effacée, E est également effacées, sort de la procédure
    If Target.Value = "" Then Target.Offset(0, 1).Value = ""
End If
'Si l amodification a lieu en G2 ou H2
If Not Intersect(Target, Range("G2:H2")) Is Nothing Then
    For i = 3 To Range("D65536").End(xlUp).Row
    Cells(i, 5).Value = Application.WorksheetFunction.Sum(Cells(i, 4).Value * Range("G2") + Cells(i, 6).Value * Range("H2"))
    Next
End If
End Sub

 

[ERIC S]

Re : VBA Calculer le prix de vente unitaire

re

et si tu changes le coût de MO, il faudrait recalculer la ligne aussi non?

 

[Arpette]

Re : VBA Calculer le prix de vente unitaire

Re, merci Eric, reactif, efficace que du bonheur🙂
Merci pour ton aide et à bientôt.
Bonne soirée.

 

[Arpette]

Re : VBA Calculer le prix de vente unitaire

Oui, tu as raison, mais avec ton code j'ai déjà modifié.
Merci encore c'est nickel.
@+