Macro Calcul de marge avec conditions

Bonsoir,

Michel Gaboly m'a fourni la macro suivante le 8/01 que
j'ai légèrement modifié. Dans cette macro, le calcul est
le suivant : J'ai un prix de revient aux 100 m², et un
prix de vente dans une autre unité ( mm x m ). Soit je
rentre un prix de vente pour définir ma marge, soit je
rentre une marge en % et cela deduit mon prix de vente.
Cela fonctionne très bien. Je souhaite aller plus loin :
j'ai un prix de revient qui peut être aux 100 m² ou au
kilo et un prix de vente qui peut être dans plusieurs
unité également ( environ 10 ). Bref, comment monter des
conditions ? Si A2 ( prix de vente = 100 m² et A3 ( prix
de vente = kilo alorsetc

Merci d'avance pour vos pistes.


Private Sub WORKSHEET_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "A2"
Target.Offset(1).Formula = "=((R[-1]C /
mm / m * 100000) - R[-2]C) / (R[-1]C / mm / m *
100000 )"
Target.Offset(1).NumberFormat = "0.00%"
Case "A3"
Target.Offset(-1).FormulaR1C1 = "=((R[-1]
C / 100000 * mm * m) / (1 - R[1]C))"
End Select
Application.EnableEvents = True
End Sub