Macro Couleur Onglet

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2009

• #2

Re : Macro Couleur Onglet

Bonjour Morgan

essaye peut être le code ci-dessous :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

M

morgan44

Guest

• 19 Octobre 2009

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2009

• #4

Re : Macro Couleur Onglet

Re

pour les 20 premières feuilles ...

Code:

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

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2009

• #5

Re : Macro Couleur Onglet

Re,

tu peux également boucler sur certaines feuilles :

Code:

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

M

morgan44

Guest

• 19 Octobre 2009

• #6

Re : Macro Couleur Onglet

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

Bonne fin de journée

 

Vote positif 0 Vote négatif