Grille de tarif

[Demouret]

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

 

[Demouret]

Re : Grille de tarif

Ah ca serait pas mal ça ... Merci
Mais pkoi ca marche pas ??

Merci Tatiak

 

[Demouret]

Re : Grille de tarif

Sympa ce p'tit blues Tatiak ;-)

 

[Compte Supprimé 979]

Re : Grille de tarif

Salut Demouret, Tatiak

Pour ton problème de récupération du tarif, tu peux également faire ça sans macro 😉

Juste avec 2 fonctions imbriquées 😀

Voir ton fichier modifié.

 

[Demouret]

Re : Grille de tarif

Beau Boulot.... Ca l'fait

Merci Tatiak Merci Bruno 🙂

Bonne Soirée