VBA format conditionnel suite

alexane

XLDnaute Occasionnel
Bonjour à tous
Hier j'ai fais un post pour savoir comment créer une mise en forme conditionnelle au dela de 3 conditions
J'ai eu une solution d'Hasco qui marche très bien. Merci pour l'aide apportée.
Mais j'ai encore une petite question.

Hasco me proposait de créer une macro évenementielle Workbook_SheetChange et me préciser d'écrire ma macro de mise en forme conditionnelle après vérification de l'adresse de Target

A vrai dire, je comprends pas bien ce que ça veut dire. J'ai bien compris que Target représente la cellule qui vient d'étre modifiée mais je ne sais pas si je peux, et comment utiliser le mot Target dans le code
En désespoir voila ce que j'ai écrit (ça marche, mais il doit y avoir plus simple) :
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.Name Like "sem. *" Then
  'c'est à partir d'ici que je ne sais pas si on peux utiliser le mot Target
    For j = 2 To 6
        With Cells(2, j)
        If .Value = "maladie" Then
            .Interior.ColorIndex = 46
        ElseIf .Value = "autoformation" Then
            .Interior.ColorIndex = 37
        ElseIf .Value = "ferie" Then
            .Interior.ColorIndex = 15
        ElseIf .Value = "divers" Then
            .Interior.ColorIndex = 35
        ElseIf .Value = "rtt" Then
            .Interior.ColorIndex = 36
        ElseIf .Value = "conges" Then
            .Interior.ColorIndex = 6
        End If
        End With
    Next j
 End If
End Sub
Je joins mon fichier exemple
Merci
 

Pièces jointes

  • modèle_planning.zip
    36.9 KB · Affichages: 39
  • modèle_planning.zip
    36.9 KB · Affichages: 38
  • modèle_planning.zip
    36.9 KB · Affichages: 38

Statistiques des forums

Discussions
314 048
Messages
2 105 008
Membres
109 234
dernier inscrit
marieath