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

Brooke -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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 2739 Date d'inscription   Statut Membre Dernière intervention   366
 
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
Brooke
 
je te remercie!! ta commande m'a beaucoup aidé ! :)
0