VBA: colorer une cellule si condition vérifée

Fermé
Brooke - 17 avril 2012 à 18:20
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 18 avril 2012 à 12:06
Bonjour,

je veux créer un code en VBA pour comparer deux cellules et si la condition est vérifée colorer une cellule en rouge. Je suis débutante en VBA et ce code ne marche pas.
Par ailleurs je voudrais savoir comment on peut faire pour créer une alerte par mail par exemple si la condition est vérifiée.

Sub Alerte_prix()
'
' Alerte_prix Macro
'

Sheets("toto").Select

Dim I As Integer
Dim n As Double
Dim M As Double
Dim nb As Double


I = 6
nb = 61

For I = 6 To I = nb
n = Sheets("toto").Cells(I, 10).Value
M = (5 / 100 * n)

If Sheets("toto").Cells(I, 8).Value > M Then Sheets("toto").Cells(I, 30).interior.color = 255

Next I

End Sub

Merci d'avance !

4 réponses

soulsy Messages postés 2738 Date d'inscription dimanche 1 mai 2011 Statut Membre Dernière intervention 21 juillet 2017 363
17 avril 2012 à 22:17
Bonjour,

Tel que c'est dans l'aide, la commande serait plutôt la suivante :
Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 3

Mais comme dit lermite222, si t'as un nombre limité de mise en forme conditionnelle à faire (3 maxi), fait le via l'outil dans le menu Format.
Et ça t'empêche pas de faire le calcul avec ta boucle For via la macro.
1
je te remercie!! ta commande m'a beaucoup aidé ! :)
0