couleur des onglets automatique

[Chico64]

Salut à Vous,

Dans mon classeur, j'ai de nombreuses feuilles, je souhaite que la couleur de de leur onglet soit intercalé c'est à dire la premiere feuille en bleu la seconde en blanc, la troisiéme à nouveau en bleu, la quatriéme à nouveau en blanc, ....

J'ai peut etre une petite idée: je crée une nouvelle feuille le programme regarde la couleur de la précédente et si c'est bleu il mais alors blanc ou inversement.

Peut etre que ma logique n'est pas la bonne?

Dites moi, je vous remercie par avance.
Chico

 

[phlaurent55]

Re : couleur des onglets automatique

Bonjour Chico64

essaie avec ce code

For i = 1 To ActiveWorkbook.Sheets.Count Step 2

    ActiveWorkbook.Sheets("Feuil" & i).Tab.ColorIndex = 5

    ActiveWorkbook.Sheets("Feuil" & i + 1).Tab.ColorIndex = 2
Next i

 

[Pierrot93]

Re : couleur des onglets automatique

bonjour chico, laurent

une autre solution :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
        If ws.Index Mod 2 = 0 Then ws.Tab.ColorIndex = 5 Else ws.Tab.ColorIndex = xlNone
Next ws
End Sub

bonne fin d'après midi
@+

 

[phlaurent55]

Re : couleur des onglets automatique

Re,

@ Pierrot

je préfère ta réponse car pour ma solution, il faut nécessairement que toutes les feuilles se nomment "Feuilxx"

 

[Chico64]

Re : couleur des onglets automatique

Re,

Merci pour vos réponses qui ont été très rapides.

Je pense que la solution de Pierrot93 est peut etre mieux car mes feuilles ne se nomment pas feuille1, feuille2,feuille3,.... (elles ont leur propre nom et son différent pour chaque feuille) donc je ne pense pas pouvoir faire :

ActiveWorkbook.Sheets("Feuil" & i)

Par contre pour le code de Pierrot93

Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
        If ws.Index Mod 2 = 0 Then ws.Tab.ColorIndex = 5 Else ws.Tab.ColorIndex = xlNone
Next ws
End Sub

Comment puis-je faire si je veux que ce jeu de couleur blanc ou bleu commence qu'à la troisiéme feuille ?

Merci davance.
Chico

 

[phlaurent55]

Re : couleur des onglets automatique

Re,

pour faire cela, il faut le faire par une boucle
For i = 3 to...................

comme dans mon exemple mais en tenant compte de la méthode "Pierrot"

 

[Pierrot93]

Re : couleur des onglets automatique

re

tu peux également modifier mon code comme ceci :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Index > 2 Then If ws.Index Mod 2 = 0 Then ws.Tab.ColorIndex = 5 _
        Else ws.Tab.ColorIndex = xlNone
Next ws
End Sub

bonne soirée
@+

 

[Chico64]

Re : couleur des onglets automatique

Merci Pierrot,

Pourrais-tu m'expliquer ces quatres lignes de dessous (car je ne suis pas la pour copier bétement 🙂)

For Each ws In Worksheets
    If ws.Index > 2 Then If ws.Index Mod 2 = 0 Then ws.Tab.ColorIndex = 5 _
        Else ws.Tab.ColorIndex = xlNone
Next ws

Je ne comprends pas tout:

If ws.Index Mod 2 = 0

ws.Tab.ColorIndex = 5

ws.Tab.ColorIndex = xlNone

Je te remercie davance.

 

[Pierrot93]

Re : couleur des onglets automatique

Re

If ws.Index Mod 2 = 0

pour tester si le numéro d'index est pair. l'opérateur "mod" renvoie le reste de la division par 2 (nombre après mod dans le code) du numéro d'index, si égal à 0 alors c'est pair, j'applique la couleur bleu à l'onglet ... cf code ci dessous

ws.Tab.ColorIndex = 5

sinon aucune couleur n'est appliquée à l'onglet :

ws.Tab.ColorIndex = xlNone

en espérant avoir été clair...

@+

 

[phlaurent55]

Re : couleur des onglets automatique

Re à tous

If ws.Index Mod 2 = 0 Teste si numéro de feuille est pair
ws.Tab.ColorIndex = 5 Met l'onglet en couleur bleue
ws.Tab.ColorIndex = xlNone Pas de couleur d'onglet

 

[Chico64]

Re : couleur des onglets automatique

Encore Merci 🙂 à vous deux et à ce site
Chico