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

Résolu/Fermé

cococamo - 30 nov. 2012 à 13:58
cococamo - 3 déc. 2012 à 10:10

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

A voir également:

Demande d'une macro pour cellule choisi passe onglet en couleur
Excel cellule couleur si condition texte - Guide
Piratage facebook changer mot de passe - Guide
Aller à la ligne dans une cellule excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Somme si couleur - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
30 nov. 2012 à 15:08

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

Réponse 2 / 2

cococamo
3 déc. 2012 à 10:10

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.

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?

Si couleur, alors...

Excel si cellule contient texte alors...

Discussions similaires

Newsletters