Je recherche une formule qui reprends le nom et la couleur de l'onglet de la feuille. Cette formule reprends uniquement le nom de la feuille: =DROITE(CELLULE("filename";T32);NBCAR(CELLULE("filename";T32))-CHERCHE("]";CELLULE("filename";T32))) Est-ce qu'il est possible d'adapter cette formule pour avoir le nom et la couleur de l'onglet de la feuille ? Mes meilleures salutations, Thierry...

Formule couleur cellule en fonction de la couleur de l'onglet de la feuille

Le 12/07/2021 à 08:37

Bonjour,

Je recherche une formule qui reprends le nom et la couleur de l'onglet de la feuille.

Cette formule reprends uniquement le nom de la feuille:

=DROITE(CELLULE("filename";T32);NBCAR(CELLULE("filename";T32))-CHERCHE("]";CELLULE("filename";T32)))

Est-ce qu'il est possible d'adapter cette formule pour avoir le nom et la couleur de l'onglet de la feuille ?

Mes meilleures salutations,

Thierry

Le 13/07/2021 à 20:21

Salut,

On peut avoir un fichier modèle, stp ?

Amicalement.

Le 10/08/2021 à 13:16

Bonjour Yvouille,

Désolé pour la réponse tardive mais je crois qu'il n'est pas possible de changer la couleur d'une cellule suivant la couleur de l'onglet.

On peut seulement changer la couleur de l'onglet suivant le contenu d'une cellule:

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Select Case Sheets("Master").Range("A1").Value
Case "KTE" Sheets("Sheet1").Tab.Color = vbRed
Case "KTO" Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW" Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub

Mes meilleures salutations,
Thierry

Le 10/08/2021 à 13:40

Bonjour, Si on peut donner à la couleur de l'onglet la couleur d'une cellule ; je ne vois pas pourquoi on ne pourrait pas faire l'inverse par macro.

Exemple Cellule A1 prendra la même couleur que l'onglet Feuil1 :

Nota je suis certain qu' Yvouille vous aurez vite répondu avec un fichier exemple qui illustre votre besoin.

Range("A1").Interior.Color = Sheets("Feuil1").Tab.Color