bonjour voila une macro trouvee sur le site de Bernard SIGONNEAU
JE n'ai pas essaye
Attribute VB_Name = "PlusDeTroisFormatsConditionnels"
'dépasser les 3 conditions d'un format conditionnel
'avec la fonction Switch qui est, me semble-t-il, quasiment inconnue et
'pourtant pratique (code réduit) mais qui à un gros défaut : sa lenteur !
' Benoît Marchand, mpfe
Sub FormatConditionnel()
Dim wCell As Range, v As Variant, Nbre As Boolean
For Each wCell In ActiveSheet.UsedRange
v = wCell.Value
If IsNumeric(wCell.Value) Then
wCell.Interior.ColorIndex = _
Switch( _
v = 2000, 1, _
v = 1999, 2, _
v = 450, 3, _
v = 350, 4, _
v = 200, 5, _
v = 150, 6, _
v = 100, 7)
Else
wCell.Interior.ColorIndex = 0
End If
Next wCell
End Sub