Couleur onglets

[aubelix]

Bonjour à Tout le Forum.

Mon problème est le suivant :
J'ai un carnet d'adresses, une feuille pour chaque lettre de l'alphabet.
Comment colorer l'onglet en vert s'il y'a au moins un nom dans la feuille
de la lettre correspondante.
Toutes les feuilles sont construites de la même façon.
Les saisies de données débutent en cellule "C2".

Par avance, merci pour votre aide.
Cordialement.

 

[jeanpierre]

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

 

[Pierrot93]

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 :

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
@+

 

[aubelix]

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.

 

[BOISGONTIER]

Re : Couleur onglets

Bonjour,

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

 

[aubelix]

Re : Couleur onglets

Bonjour Jacques.

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

Cordialement.