VBA: colorer une cellule si condition vérifée
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 !
4 réponses
-
ContributeurFait comme je dis dans mon 1er poste..
Une mise en forme conditionnelle.
Et ce sera automatique.
A+
Edit
Et M = (5 / 100 * n)
Serais plus simple par M = n * 0.02 pour avoir 2%
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.