Mise en forme conditionnelle

Fermé
STRIKER - 21 juil. 2008 à 09:59
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 21 juil. 2008 à 11:15
Bonjour,
j'ai un petit probléme ,je travail sur excel 2007 mais au travail je dois utiliser excel 2003 et j'ai un probléme,je n'arrive pas a creer une macro de mise en forme conditionnelle avec 5 controles,je m'explique
je dois scanner la ligne 9 de casse k9 à la casse an9 pour déterminer si les casses contiennent les caractéres NP NP1 NP2 SP1 ou SP2 et appliquer une couleur a chaque case en fonction des caractéres
rose pour NP
orange pour NP1
vert pour NP2
bleu pour sp1
et gris pour sp2
voila si quelqu'un veut bien m'aider
merci d'avance

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 juil. 2008 à 11:15
Bonjour,

cette macro événementielle pourrait te convenir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K9:AN9")) Is Nothing Then: Exit Sub

Select Case Target.Value
    Case "NP"
        Target.Interior.ColorIndex = 38
    Case "NP1"
        Target.Interior.ColorIndex = 40
     Case "NP2"
        Target.Interior.ColorIndex = 35
     Case "sp1"
        Target.Interior.ColorIndex = 34
     Case "sp2"
        Target.Interior.ColorIndex = 15
End Select
End Sub



pour l'installer
tu copies le code ci dessus
ckic droit sur l'onglet de ta feuille
visualiser le code

Michel
coller
0