couleur des onglets automatique

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Février 2009

• #2

Re : couleur des onglets automatique

Bonjour Chico64

essaie avec ce code

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #3

Re : couleur des onglets automatique

bonjour chico, laurent

une autre solution :

Code:

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Février 2009

• #4

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"

 

Vote positif 0 Vote négatif

C

Chico64

Guest

• 26 Février 2009

• #5

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 :

Code:

ActiveWorkbook.Sheets("Feuil" & i)

Par contre pour le code de Pierrot93

Code:

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Février 2009

• #6

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"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #7

Re : couleur des onglets automatique

re

tu peux également modifier mon code comme ceci :

Code:

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

 

Vote positif 0 Vote négatif

C

Chico64

Guest

• 26 Février 2009

• #8

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 🙂)

Code:

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:

Code:

If ws.Index Mod 2 = 0

Code:

ws.Tab.ColorIndex = 5

Code:

ws.Tab.ColorIndex = xlNone

Je te remercie davance.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #9

Re : couleur des onglets automatique

Re

Code:

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

Code:

ws.Tab.ColorIndex = 5

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

Code:

ws.Tab.ColorIndex = xlNone

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

@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Février 2009

• #10

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

 

Vote positif 0 Vote négatif

C

Chico64

Guest

• 26 Février 2009

• #11

Re : couleur des onglets automatique

Encore Merci 🙂 à vous deux et à ce site
Chico

 

Vote positif 0 Vote négatif