VBA format conditionnel suite

alexane · 26 Août 2010

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

VBA format conditionnel suite

alexane

XLDnaute Occasionnel

Pièces jointes

Discussions similaires