Couleur onglets

jeanpierre

Nous a quitté

Repose en paix

• 26 Décembre 2008

• #2

Re : Couleur onglets

Bonjour aubelix,

Précise ta version d'Excel dans ton pseudo, ainsi, et sur une telle question, on pourra te répondre OUI ou NON immédiatement.

Si tu as 2003, voire même XP, c'est possible mais par macro, sinon pour les versions antérieures cela ne l'est pas.

Merci de la MAJ de ton Pseudo.

Bonne journée.

Jean-Pierre

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Décembre 2008

• #3

Re : Couleur onglets

Bonjour Aubelix, Re Jean-Pierre🙂

si j'ai bien compris, code ci-dessous à placer dans le module "thisworkbook, se déclenche à l'ouverture du classeur :

Code:

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Tab.ColorIndex = IIf(IsEmpty(ws.Range("C2").Value), -4142, 4)
Next ws
End Sub

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 26 Décembre 2008

• #4

Re : Couleur onglets

Bonjour JeanPierre et Pierrot93.

Merci pour vos réponses.
Ta macro fonctionne Pierrot93.

Cordialement.

Bonnes Fêtes de Fin d'année à Tous.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Décembre 2008

• #5

Re : Couleur onglets

Bonjour,

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Sh.Tab.ColorIndex = IIf(Sh.[C2] = "", xlNone, 4)
End Sub

JB
Formation Excel VBA JB

 

Pièces jointes

• COULEUR_ONGLETS(1).zip

  12.7 KB · Affichages: 36

Dernière édition: 26 Décembre 2008

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 26 Décembre 2008

• #6

Re : Couleur onglets

Bonjour Jacques.

Merci pour ta réponse.
Un plus pour cette solution :
La mise à jour en "Temps réel".

Cordialement.

 

Vote positif 0 Vote négatif