demande d'une macro pour cellule choisi passe onglet en couleur Résolu

Question

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

Configuration: Windows XP / Internet Explorer 7.0

eriiic · Answer

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

cococamo · Answer

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.

Demande d'une macro pour cellule choisi passe onglet en couleur

2 réponses

Discussions similaires

Newsletters