Extraire dans les Cellules le nom des onglets de couleur

Bonjour à tous,

Est-il possible d'extraire le nom des onglets qui possède une couleur onglet particulière par Rouge ?

Savez-vous comment faire ?

Merci par avance,

Storm28

Bonjour Strom28, le forum,

Un essai.....les noms s'affichent en feuille1, colonne A....

Sub Macro1()
 Dim derlig As Integer
 Dim ws As Worksheet
  With Sheets("Feuil1")
   .Range("A:A").ClearContents
    derlig = .Range("A" & Rows.Count).End(xlUp).Row
   For Each ws In ThisWorkbook.Worksheets
    If ws.Tab.Color = 255 Then
     .Range("A" & derlig) = ws.Name
      derlig = derlig + 1
    End If
   Next ws
  End With
End Sub

Cordialement,

Super merci à toi !

Après, est-il possible de mettre en lien Hypertexte les onglets ? car, je vais cacher tous les onglets.

Merci de ta réponse,

Storm28

Re,

A tester....

Sub Macro1()
 Dim derlig As Integer
 Dim ws As Worksheet
  With Sheets("Feuil1")
   .Range("A:A").ClearContents
    derlig = .Range("A" & Rows.Count).End(xlUp).Row
   For Each ws In ThisWorkbook.Worksheets
    If ws.Tab.Color = 255 Then
     '.Range("A" & derlig) = ws.Name
     .Hyperlinks.Add anchor:=Cells(derlig, 1), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
      derlig = derlig + 1
    End If
   Next ws
  End With
End Sub

Cordialement,

Merci !

Juste du dernière chose.

La liste se créer sur une feuille en A1 !

.Hyperlinks.Add anchor:=Cells(derlig, 1), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name

Comment je peux transformer ce code pour mettre les hypertexts dans un onglet spécifique ?

Merci encore et désolé,

Storm28

Re,

Oups, petit oubli de ma part....il manque un point devant cells....

.Hyperlinks.Add anchor:=.Cells(derlig, 1), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name

Tu remplaces Feuil1 par le nom de ta feuille...

 With Sheets("Feuil1")

Cordialement,

Super !

Merci à toi !

Je clos le sujet

Storm28