VBA: colorer une cellule si condition vérifée
Brooke
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
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 !
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 !
A voir également:
- Colorer cellule vba
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
- Excel compter cellule couleur sans vba - Guide
- Comment colorer une cellule excel avec une formule si - Guide
- Changer la couleur d'une cellule en fonction d'une autre cellule - Forum Bureautique
- Proteger cellule excel - Guide
4 réponses
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.
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.
Brooke
je te remercie!! ta commande m'a beaucoup aidé ! :)