Calcul du Prix de revient

184pva13.xlsm (83.47 Ko)

Bonjour,

Comment insérer dans la macro la colonne Fourniture dans le prix de revient.

Actuellement la macro ne prend en compte que le taux horaire * par le Nombre d'heures.

Je vous en remercie

Bonjour,

La colonne fourniture se trouve où dans ton fichier ? G, H, I ??

A te relire

Fourniture dans la colonne F.

Ok mais G,H te servent à quoi ?

donne un exemple du résultat attendu sur le ligne 18 par exemple et où tu le veux

G = Prix de revient = ( Nbheures*Taux Horaire+ Fourniture) * 1,305 (Frais généraux)

H = Prix de Vente = Prix de revient * 1,111 (Bénéfice)


113pv20.xlsm (44.29 Ko)

Ci-joint exemple, j'ai mal regardé.

re,

essaie comme ceci :

Sub hausse()
Dim Cel As Range
Dim DerLigne As Integer
Dim Mahausse1 As Double, Mahausse2 As Double, Mahausse3 As Double
Mahausse1 = 27.06
Mahausse2 = 1.305
Mahausse3 = 1.111

Application.ScreenUpdating = False
On Error Resume Next
DerLigne = Range("D65535").End(xlUp).Row
For Each Cel In Range("E9:E" & DerLigne)
      Cel = IIf(Cel.Offset(0, -1) <> "", WorksheetFunction.Round((Cel.Offset(0, -1) * Mahausse1), 2), "")
Next

For Each Cel In Range("G9:G" & DerLigne)
      Cel = IIf(Cel.Offset(0, -1) <> "", WorksheetFunction.Round((Cel.Offset(0, -2) * Mahausse2), 2) + Cel.Offset(0, -1) * Mahausse2, "")
Next

For Each Cel In Range("H9:H" & DerLigne)
      Cel = IIf(Cel.Offset(0, -1) <> "", WorksheetFunction.Round((Cel.Offset(0, -1) * Mahausse3), 2), "")
Next
Range("D8").Select
End Sub

Si ok, lors de ta réponse merco de cloture le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Je te remercie et bonnes fêtes.

Rechercher des sujets similaires à "calcul prix revient"