Demande d'une macro pour cellule choisi passe onglet en couleur
Résolu
cococamo
-
cococamo -
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
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Trousseau mot de passe iphone - Guide
- Mot de passe - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Bonjour,
à mettre dans Thisworkbook :
Le changement de couleur a lieu lors de la modification de E44.
https://www.cjoint.com/?BKEpivDVpno
eric
à 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
