Mise en forme conditionnelle

Bonjour Dom DIDIER,

Par exemple...
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 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


"Dom DIDIER" <Dom DIDIER@discussions.microsoft.com> a écrit dans le message
de news: 8969F4AF-F307-4C84-BBFC-A82A255CEC16@microsoft.com...

Il n'y a que 3 conditions possibles pour mettre en couleur une cellule.
Existe-t'il une possibilité d'augmenter ce nombre ? ou alors peut-on
écrire
une macro qui permettrait une mise en couleur pour un grand nombre d'items
différents ?

3 conditions >> 3 Couleurs possibles
Si on ne veut pas + de 3 couleurs, mais plus de condition on peut
utiliser une formule dans le test voire une formule utilisant une
fonction personnalié...
Si on veut + que 3 couleurs possibles il faudra passer par une macro
evenementielles
(Peut etre nous poster les conditions et le resultat à obtenir
PN
www.exefac.com