Re : Mise en forme conditionnelle,automatique et avec des 8 conditions
Bonsoir,
un code du forum a adapter à ton fichier
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:C10]) Is Nothing Then Exit Sub
Select Case zz
Case "1": zz.Interior.ColorIndex = 4
Case "2": zz.Interior.ColorIndex = 33
Case "3": zz.Interior.ColorIndex = 35
'etc.......
Case Else: zz.Interior.ColorIndex = xlNone
End Select
End Sub
A +