couleur onglets

[MASSJIPE]

Bonjour
J'utilise le code suivant pour changer la couleur d'un onglet
activeworkbook.sheets("FOS1").tab.colorindex = 3
je voudrai faire la même chose avec les 20 onglets de FOS1 à FOS20
Merci

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 24/10/2011 par jean-paul
'

'
ChDir "C:\Users\jean-paul\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\Classeur1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("FOS").Visible = True
Sheets("FOS").Select
Sheets("FOS").Copy Before:=Sheets(1)
ActiveSheet.Name = "FOS1"
Sheets("FOS").Copy Before:=Sheets(2)
ActiveSheet.Name = "FOS2"
Sheets("FOS").Copy Before:=Sheets(3)
ActiveSheet.Name = "FOS3"
ActiveWorkbook.Sheets("FOS1").Tab.ColorIndex = 3
ActiveWorkbook.Sheets("FOS2").Tab.ColorIndex = 3
ActiveWorkbook.Sheets("FOS3").Tab.ColorIndex = 3
Sheets("FOS").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

 

[Fred0o]

Re : couleur onglets

Bonjour MASSJIPE,

Tu peux essayer ce code :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 24/10/2011 par jean-paul
'

'
    Dim i
    ChDir "C:\Users\jean-paul\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\Classeur1.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Sheets("FOS").Visible = True
    Sheets("FOS").Select
    For i = 1 To 20
        Sheets("FOS").Copy Before:=Sheets(i)
        ActiveSheet.Name = "FOS" & i
        ActiveWorkbook.Sheets("FOS" & i).Tab.ColorIndex = 3
    Next
    Sheets("FOS").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub

A+

 

[MASSJIPE]

Re : couleur onglets

Bonjour Fred
le code est nickel
merci et bonne journée