T
Tonio
Guest
Bonjour à tous !
Je voudrais mettre en place cette procédure :
Dim ws As Worksheet
Dim cell As range
For Each ws In Worksheets
cell("M126").Select
If cell.Interior.ColorIndex = 45 Then
MsgBox ("Alerte orange sur fiche de ...")
ElseIf cell.Interior.ColorIndex = 3 Then
MsgBox ("Alerte rouge sur fiche de ...")
ElseIf cell.Interior.ColorIndex = 30 Then
MsgBox ("Alerte marron sur fiche de ...")
End If
Next
J'explique : la cellule M126 est en mise en forme conditionnelle, et je voudrais que suivant la couleur de fond de cette cellule, le message change.
Voila ce que j'ai tenté de faire sans succès.
Merci à tous !!
Je voudrais mettre en place cette procédure :
Dim ws As Worksheet
Dim cell As range
For Each ws In Worksheets
cell("M126").Select
If cell.Interior.ColorIndex = 45 Then
MsgBox ("Alerte orange sur fiche de ...")
ElseIf cell.Interior.ColorIndex = 3 Then
MsgBox ("Alerte rouge sur fiche de ...")
ElseIf cell.Interior.ColorIndex = 30 Then
MsgBox ("Alerte marron sur fiche de ...")
End If
Next
J'explique : la cellule M126 est en mise en forme conditionnelle, et je voudrais que suivant la couleur de fond de cette cellule, le message change.
Voila ce que j'ai tenté de faire sans succès.
Merci à tous !!
