VBA format conditionnel suite

  • Initiateur de la discussion Initiateur de la discussion alexane
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
712
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
374
Réponses
4
Affichages
592
Réponses
4
Affichages
408
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
809
Réponses
3
Affichages
355
Retour