Macro Couleur Onglet

[morgan44]

Bonjour à tous,

J'ai un fichier qui lorsque tous les onglets sont remplis, on change la couleur des onglets en vert, par exemple.

Pour l'année suivante on efface chaque lignes et on remet les onglets sans couleur ("aucune couleur").

Ma petite question est : existe-t-il une macro qui automatise cette dernière manip' ? mettre aucune couleur aux onglets de la feuil1 à feuil20 en un seul clic ?

Merci d'avance,

Morgan 44

 

[Pierrot93]

Re : Macro Couleur Onglet

Bonjour Morgan

essaye peut être le code ci-dessous :

Dim i As Byte
For i = 1 To 20
    Sheets("Feuil" & i).Tab.ColorIndex = -4142
Next i

bon après midi
@+

 

[morgan44]

Re : Macro Couleur Onglet

Merci pour cette réponse, mais en ça ne marche pas bien car mes feuilles elles ont un nom, CA, P&L etc...

Désolé j'aurais dû précisé davantage.

Cordialement,

morgan44

 

[Pierrot93]

Re : Macro Couleur Onglet

Re

pour les 20 premières feuilles ...

Dim i As Byte
For i = 1 To 20
    Sheets(i).Tab.ColorIndex = -4142
Next i

@+

 

[Pierrot93]

Re : Macro Couleur Onglet

Re,

tu peux également boucler sur certaines feuilles :

Dim ws As Worksheet
For Each ws In Worksheets(Array("aaa", "bbb", "ccc"))
    ws.Tab.ColorIndex = -4142
Next ws

ou bien sur toutes les feuilles et en écarter certaines :

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Feuil1" Then ws.Tab.ColorIndex = -4142
Next ws

@+

 

[morgan44]

Re : Macro Couleur Onglet

Super !!! Merci beaucoup !!! exactement ce que je voulais

Bonne fin de journée