+ de 3 mise en forme conditionnelle

Bonjour Maryola,

la MEFC propose effectivement 3 conditions possibles, si tu ajoutes à cela
un format de cellule personnalisé, le total fait 4 !
Si tu en souhaites d'avantage, il faudra passer par macro...
Deux exemples (sur une plage de données nommée ici Zn):

Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case "p1": c.Font.ColorIndex = 3
Case "b2": c.Font.ColorIndex = 2
Case "c3": c.Font.ColorIndex = 4
Case "f4": c.Font.ColorIndex = 23
Case "g5": c.Font.ColorIndex = 13
Case "k6": c.Font.ColorIndex = 9
Case "m9": c.Font.ColorIndex = 5
Case Else: c.Font.ColorIndex = xlAutomatic
End Select
Next
End If
End Sub

ou encore...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case 1 To 3: c.Interior.ColorIndex = 38
Case 4 To 6: c.Interior.ColorIndex = 40
Case 7 To 9: c.Interior.ColorIndex = 36
Case 10 To 12: c.Interior.ColorIndex = 35
Case 13 To 15: c.Interior.ColorIndex = 34
Case 16 To 18: c.Interior.ColorIndex = 37
Case Is >= 19: c.Interior.ColorIndex = 3
Case Else: c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub


ChrisV


"maryola" <maryola@discussions.microsoft.com> a écrit dans le message de
news: A586F5D4-6F06-4E14-8A2C-7C22A5C2B1A1@microsoft.com...

Bonjour à tous,
peut être que la question a déjà été posée...
Je voudrais faire 4 mises en formes conditionnelles. J'ai essayé pas mal
de
trucs, mais là, je n'ai plus d'idées. Qq 'un peut m'aider ?
Merci à tous et bonne journée.
Mary