Fanfois92
Messages postés4Date d'inscriptionjeudi 10 mars 2011StatutMembreDernière intervention13 mars 2011
-
11 mars 2011 à 16:44
Fanfois92
Messages postés4Date d'inscriptionjeudi 10 mars 2011StatutMembreDernière intervention13 mars 2011
-
13 mars 2011 à 22:46
Bonsoir,
J'ai la macro suivante qui me permet de faire de la mise en forme conditionnelle comme l'option standard d'Excel, sauf que je ne suis pas limité à trois couleurs.
Elle fonctionne parfaitement si je saisis les informations dans la plage de données spécifiées. Par contre, elle ne se met pas à jour si la donnée est modifiée par un recherchev. UNe idée qqlun ? Merci.
François
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C5:L28")) Is Nothing Then: Exit Sub 'Supprimer pour toute la page
With Target
Select Case Target.Value
Case Is = "A"
.Interior.ColorIndex = 4
Case Is = "B"
.Interior.ColorIndex = 22
Case Is = "C"
.Interior.ColorIndex = 3
Case Is = "D"
.Interior.ColorIndex = 24
Case Is = "E"
.Interior.ColorIndex = 6
Case Is = "F"
.Interior.ColorIndex = 5
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End Sub