Bonjour,
 
Sur une feuille excel je voudrai calculer un prix (colonne D) selon le produits (3 produits différents, colonneA) et la quantité achetée (colonne B). La colonne C indique le prix unitaire à appliquer. Exemple si j'achète 20 produits B le prix unitaitre appliqué sera 170 et le prix total 3400 (colonne D)
 
ColA       ColB       ColC           ColD
produit  quantité prix/Un       Prix
 
produit A    10    50
produit A    20    45
produit A    30    30
   
produit B    10    180
produit B    20    170
produit B    30    160
   
produit C    10    230
produit C    20    220
produit C    30    210
 
J'ai essayé avec Function et If  Then...
J'arrive à le faire pour un produit mais pas les trois en même temps.
 
Je suis débutant
Merci d'avance

Dans la colone D1 tu mets :
=B1*C1
ainsi de suite....
D2=B2*C2.....

Dans un fonction :
 
Private Sub Workbook_Open()
 
Dim i As Integer        ' Indice de selection de ligne
Dim j As Integer        ' Nombre de ligne à passer
Dim MyLen As Integer    ' Longeur de i pour l'incrément de cellule
Dim Cell1, Cell2, Cell3 As String   ' Cellule A B C avec l'indice i
 
i = 1
j = 20
 
 
 
For i = 1 To j      ' De la cellule 1 à la cellule max
    If i > 9 Then   ' Si i > 9 fonction Right sur 2 caractères
        MyLen = 2
    Else
        MyLen = 1   ' Si i < 9 fonction Right sur 1 caractères
    End If
    Cell1 = "B" & Right(Str(i), MyLen)  ' Concaténation Right pour éviter un blanc entre B et i
    Cell2 = "C" & Right(Str(i), MyLen)  ' Concaténation Right pour éviter un blanc entre C et i
    Cell3 = "D" & Right(Str(i), MyLen)  ' Concaténation Right pour éviter un blanc entre D et i
    Range(Cell1).Select
     
    ' Si B n'est pas vide ou > à 0
    If Range(Cell1).Value <> "" And Range(Cell1).Value <> 0 Then
        ' on fait le calcule D=B*C
        Range(Cell3).Value = Range(Cell1).Value * Range(Cell2).Value
    End If
Next
End Sub
 
Voilà ! j'espère que ça t'ira !
 
@+
 

merci
je fais le test et je te dirai
A+

Plus "propre":