Demande d'une macro pour cellule choisi passe onglet en couleur [Résolu/Fermé]

Signaler
-
 cococamo -
Bonjour,

J'ai un tableau que vous trouverez en pièce jointe.
Je voudrais une macro ou autre afin de lui dire que sur toutes les SF02 en bas dans la colonne E44 si je mets le mot levée que l'onglet passe en vert, si je mets le mot non levée que l'onglet passe en rouge, et sije mets déclassée que l'onglet passe en jaune. merci de bien vouloir m'aider car je ne sais pas comment on fait pour les couleurs avec une macro.

Bien cordialement


http://cjoint.com/?0KEn06R3X6z

2 réponses

Messages postés
23564
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2020
6 407
Bonjour,

à mettre dans Thisworkbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Left(Sh.Name, 4) = "SF02" And Target = [E44] Then
        Select Case LCase([E44])
        Case "levée"
            Sh.Tab.ColorIndex = 4
        Case "non levée"
            Sh.Tab.ColorIndex = 3
        Case "déclassée"
            Sh.Tab.ColorIndex = 6
        Case Else
            Sh.Tab.ColorIndex = xlNone
        End Select
    End If
End Sub

Le changement de couleur a lieu lors de la modification de E44.
https://www.cjoint.com/?BKEpivDVpno
eric
Merci beuacoup cela fonctionne et je vais m'inspirer de votre macro si j'en ai besoin pour autre fichier.

merci encore de votre aide qui m'est très préciseuse.