Grille de tarif

Bonjour tout le monde... 🙂

De manière à calculer le coût de fabrication d’un meuble je colle sur une feuille Excel la fiche de débit des objets nécessaire à sa fabrication (en jaune dans mon exemple…) et j’ai sur la même feuille un tarif prédéfini de chaque pièce selon le décor ou le matériau… (en bleu ici…)

Je m’apprête à écrire ce qui suit ( déjà commencé sur bouton calcul )mais je pense qu’il doit y avoir plus simple. Non ?

Private Sub CommandButton1_Click()
L = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Feuil1").Range("A1:A" & L)

Dim c As Range
For Each c In Plage
c.Select
If c.Value = "BandeauHaut" And Cells(ActiveCell.Row, 5) = "Blanc" Then
Sheets("1").Cells(ActiveCell.Row, 7) = (Cells(ActiveCell.Row, 3) * Cells(ActiveCell.Row, 4) * Sheets("Feuil1").Range("N2")) / 1000000
'Pour convertir en M²
ElseIf c.Value = "BandeauHaut" And Cells(ActiveCell.Row, 5) = "Decor" Then
Sheets("Feuil1").Cells(ActiveCell.Row, 7) = (Cells(ActiveCell.Row, 3) * Cells(ActiveCell.Row, 4) * Sheets("Feuil1").Range("O2")) / 1000000
ElseIf c.Value = "BandeauHaut" And Cells(ActiveCell.Row, 5) = "Decor2" Then
Sheets("Feuil1").Cells(ActiveCell.Row, 7) = (Cells(ActiveCell.Row, 3) * Cells(ActiveCell.Row, 4) * Sheets("Feuil1").Range("P2")) / 1000000
' et ainsi de suite .........

End If
Next
End Sub

Merci pour votre contribution…

Et bon Jeudi à vous tous ;-)

Pierre