macro pour codification par rapport à 3 critères

bonjour Marchepied,

voici un exemple,

Sub Macro1()
For Each c In Range("A2:A10")
rapport = (c - c.Offset(0, 1)) / c.Offset(0, 1)
Select Case rapport
Case Is >= 1
c.Offset(0, 2) = c.Offset(0, 2) + 10
Case Is >= 0.5
c.Offset(0, 2) = c.Offset(0, 2) + 5
Case Is >= 0.2
c.Offset(0, 2) = c.Offset(0, 2) + 2
End Select
Next
End Sub

isabelle

Bonjour,
J'ai les 3 colonnes suivantes:
A (montant 1) B (montant 2) C (codification)
Je recherche une macro qui mettrai à jour la colonne C par
rapport aux critères suivants:
si A 100% > que B faire +10 dans C (puis, exit macro)
si A 50% > que B faire +5 dans C (puis, exit macro)
si A 20% > que B faire +2 dans C (puis, exit macro)
Merci de votre aide.
Marchepied,

Salut,
danger d'exécuter plusieurs fois la macro sur les mêmes données !!!
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"marchepied" <marchepied@NOSPAMhotmail.com> a écrit dans le message de news:
b4fe01c43762$60f81410$a601280a@phx.gbl...
Bonjour,
J'ai les 3 colonnes suivantes:
A (montant 1) B (montant 2) C (codification)
Je recherche une macro qui mettrai à jour la colonne C par
rapport aux critères suivants:
si A 100% > que B faire +10 dans C (puis, exit macro)
si A 50% > que B faire +5 dans C (puis, exit macro)
si A 20% > que B faire +2 dans C (puis, exit macro)
Merci de votre aide.
Marchepied,