Sommaire : couleur valeur = couleur onglet

[DoubleZero]

Bonjour à toutes et à tous,

Grâce à un code de BOISGONTIER 🙂, le fichier joint dispose d’un sommaire dynamique.

La coloration de chaque onglet est manuelle.

Je souhaiterais que la couleur de chaque cellule de l’onglet « Sommaire » soit identique à la couleur de l’onglet vers lequel elle me dirige.

Mes essais (présents dans le module de l’onglet « Sommaire ») sont demeurés infructueux 🙁.

Je vous remercie vivement pour votre aide.

A bientôt 🙂🙂

 

[BOISGONTIER]

Re : Sommaire : couleur valeur = couleur onglet

Bonjour,

Private Sub Worksheet_Activate()
 Dim c As Range
 [C5:C100].ClearContents
 For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   nfcellule = Selection.Interior.ColorIndex
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & _
        nf & "'" & "!A1", TextToDisplay:=nf
   Cells(i + 3, 3).Interior.Color = Sheets(i).Tab.Color
  Next i
End Sub

JB

 

[JCGL]

Re : Sommaire : couleur valeur = couleur onglet

Bonjour à tous,
Salut 00,

Peux-tu essayer :

Private Sub Worksheet_Activate()
'Sommaire dynamique, BOISGONTIER (Merci !)
Dim c As Range
[C5:C100].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
Cells(i + 3, 3).Interior.Color = Sheets(i).Tab.Color
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Next i
[C5:C100].Sort key1:=Range("C5"), Order1:=xlAscending
Columns("c:c").SpecialCells(xlCellTypeConstants, 23).Font.Underline = xlUnderlineStyleNone
End Sub

Bises+++
A+ à tous

Edition : Oups, pas vu l'intervention de JB.

 

[DoubleZero]

Re : Sommaire : couleur valeur = couleur onglet

Re-bonjour,

Un én😱rme merci, BOISGONTIER : c'est superbe 😀 !

A bientôt 🙂🙂

 

[DoubleZero]

Re : Sommaire : couleur valeur = couleur onglet

Re-bonjour,

Un én😱rme merci + bises, JCGL : c'est, itou, superbe 😀 !

A bientôt 🙂🙂

 

[BOISGONTIER]

Re : Sommaire : couleur valeur = couleur onglet

Pour modifier la couleur d'écriture (couleurs sombres)

Private Sub Worksheet_Activate()
 Dim c As Range
 [C5:C100].ClearContents
 For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   nfcellule = Selection.Interior.ColorIndex
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & _
        nf & "'" & "!A1", TextToDisplay:=nf
   Cells(i + 3, 3).Interior.Color = Sheets(i).Tab.Color                    ' fond
   Cells(i + 3, 3).Font.Color = RGB(255, 255, 255) - Sheets(i).Tab.Color   ' écriture
  Next i
End Sub

JB

 

[DoubleZero]

Re : Sommaire : couleur valeur = couleur onglet

Re-bonjour,

Pour modifier la couleur d'écriture...

Un én😱rme "merci-bis", B😀ISG😀NTIER : c'est magnifique 😀 !

A bientôt 🙂🙂