Sub ListeOngletsCouleur(IdxColor As Integer)
Dim i As Integer, sh As Worksheet
For Each sh In Worksheets
If sh.Tab.ColorIndex = IdxColor Then
i = i + 1
Sheets("Feuil1").Range("A" & i) = sh.Name
End If
Next
End Sub
Sub nomcolore()
Dim MesFeuilles As String
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Tab.ColorIndex = 6 Then
If MesFeuilles = "" Then
MesFeuilles = ws.Name
Else
MesFeuilles = MesFeuilles & ", " & ws.Name
End If
End If
Next
Sheets("Feuil1").Range("A1") = MesFeuilles
End Sub
bonjour Pascal,
En tout cas, sache que personnellement j'apprécie toutes tes contributions et que je suis conscient que sans des gens comme toi, Michel, Monique et autres ce forum n'existerai sans doute pas. Cela ne remplace sûrement pas les Merci et autres gentillesses qui manquent chez certains, mais soyez sûr, que j'en ai de réserve pour vous tous...
A bientôt
Saches que je parlais pour toi aussi