Mise en forme conditionnelle

Signaler
Messages postés
4
Date d'inscription
jeudi 10 mars 2011
Statut
Membre
Dernière intervention
13 mars 2011
-
Messages postés
4
Date d'inscription
jeudi 10 mars 2011
Statut
Membre
Dernière intervention
13 mars 2011
-
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

2 réponses

Messages postés
95
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
28 novembre 2017

salut,

lors d'un recalcul de feuille, l'évènement Workbook_SheetCalculate est déclenché, si ça peut t'aider.

bonne continuation


AlKa
Messages postés
4
Date d'inscription
jeudi 10 mars 2011
Statut
Membre
Dernière intervention
13 mars 2011

Bonsoir,

Merci pour ta réponse, j'ai essayé, mais ça ne marche pas. Je continue à chercher.