Changement couleur cellule en fonction couleur d'onglet

Bonjour

J'ai un fichier Excel avec plusieurs onglets et je voudrais que lorsque je modifis la couleur de l'onglet ça modifie aussi la couleur de la cellule avec le nom associé dans le premier onglet

Bonjour

Cordialement

Bonjour

Voici le fichier en question

Re

Si j'ai bien compris, vous voulez colorier la colonne G de la feuille RECAP selon la couleur de l'onglet ?

Exemple : Pour GLPees, onglet en bleu, vous voulez G3 en bleu dans la feuille RECAP

Si oui, on fait quoi avec la mise en forme conditionnelle dans cette colonne ?

Bonjour

Non on ne touche pas à la colonne G.

Oui c'est bien dans le feuille RECAP.

Je voudrais que la colonne B se colorie en fonction des couleurs des onglets associés.

Comme là actuellement l'onglet GLPee est en bleu, je voudrais que la case GLPee dans la colonne B soit aussi en bleu, sachant que les onglet pourront avoir n'importe quelle couleur. Et ainsi de suite pour les autres onglets.

Re

Dans l'éditeur VBA, allez dans THISWORKBOOK et placez le code ci-dessous

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Macro Dan
Dim lig As Byte

With Sh
    On Error Resume Next
    lig = Sheets("Recap").Range("B:B").Find(.Name, LookIn:=xlValues).Row
    If Err.Number = 0 Then Sheets("Recap").Range("B" & lig).Interior.Color = .Tab.Color
End With
End Sub

Cordialement

edit : Attention que si vous avez une MFC dans la cellule cela ne fonctionnera pas

Re

Merci mais ça ne fonctionne que dans les 2 premières cases et le rafraichissement ne se fait que sur les cases où je suis aller dans les onglets avant de revenir dans la vue recap

Re

Vérifiez si le code est identique car j'ai modifié deux lignes dans mon post.

Crdlt

Re

J'ai recopier, ça fait pareil

Re

J'ai recopier, ça fait pareil

Vous avez bien supprimé toutes les MFC ? Moi je n'ai pas de souci avec votre fichier. La couleur s'applique dès que l'on active l'onglet colorié

Edit :

le rafraichissement ne se fait que sur les cases où je suis aller dans les onglets avant de revenir dans la vue recap

Ok pour ce point, on peut changer le début du code :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Par

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

Re

C'est bon j'ai supprimer les MFC que je n'avais pas besoin.

Par contre si je mets "aucune couleur" dans l'onglet, la couleur de ma case dans recap passe en noir!!

Par contre si je mets "aucune couleur" dans l'onglet, la couleur de ma case dans recap passe en noir!!

Oui j'ai vu cela. Désolé.... Remplacez cette ligne dans le code

If Err.Number = 0 And .Tab.Color <> False Then Sheets("Recap").Range("B" & lig).Interior.Color = .Tab.Color

Re

Vous pourriez me remettre le code complet car là je ne vois pas où mettre cette ligne

re

voici :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'Macro Dan
Dim lig As Byte

With Sh
    On Error Resume Next
    lig = Sheets("Recap").Range("B:B").Find(.Name, LookIn:=xlValues).Row
    If Err.Number = 0 And .Tab.Color <> False Then Sheets("Recap").Range("B" & lig).Interior.Color = .Tab.Color
End With
End Sub

Le code agira lorsque vous quittez la feuille dont l'onglet est colorié

Crdlt

Re

Maintenant par contre si un onglet avait une couleur et que l'on revient sur aucune couleur, la case correspondante reste à l’ancienne couleur qu'elle avait.

Oui car j'ai supposé que tous les onglets ont des couleurs.

Non car on peu revenir en arrière sur une couleur en l'annulant

voici le code

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'Macro Dan
Dim lig As Byte

With Sh
    On Error Resume Next
    lig = Sheets("Recap").Range("B:B").Find(.Name, LookIn:=xlValues).Row
    If Err.Number = 0 Then
       Select Case .Tab.Color
        Case Is > 0
            Sheets("Recap").Range("B" & lig).Interior.Color = .Tab.Color
        Case Is = False
            Sheets("Recap").Range("B" & lig).Interior.ColorIndex = xlAutomatic
        End Select
    End If
End With
End Sub

Re

merci ça fonctionne impeccable