Bonjour Toutou, bonjour le forum,
tu ne définis par coul dans ta macro. Dans l'exemple qui suit, j'ai considéré que la dernière colonne éditée de chaque ligne était F (tu adapteras...) :
Citation:
Sub Macro1()
Dim coul As Range
For Each coul In Range('F1:F' & Range('F65536').End(xlUp).Row) 'colonne à adapter
If coul.Value = 'accepté' Then
coul.EntireRow.Font.ColorIndex = 43
ElseIf coul.Value = 'refusé' Then
coul.EntireRow.Font.ColorIndex = 5
ElseIf coul.Value = 'en attente' Then
coul.EntireRow.Font.ColorIndex = 3
End If
Next coul
End Sub
|
Édition
Bonjour Anuki on s'est croisés...
Message édité par: Robert, à: 25/10/2005 16:28