Couleur onglet si valeur case feuille 1

Bonjour,

Je cherche une solution simple, de mettre en "lumière" un onglet d'une feuille 2,

si une case dans la feuille 1 est coché ou aurais une valeur.

J'ai essayé plusieurs code vue sur le forum mais rien n'a fonctionné.

L'idée c'est que mon onglet feuille 2 soit normal si rien dans la case feuille 1 et se colore si valeur.

Quelqu'un peux me conseiller.

Merci à vous.

Cordialement,

Salut Peg,

Ainsi, sans doute...

Private Sub Worksheet_Change(ByVal Target As Range)
    Worksheets("Feuil2").Tab.ColorIndex = IIf(Worksheets("Feuil1").[A1] <> "", 3, 2)
End Sub

A+

Salut Curulis,

J'ai inserer le code mais aucun changement, il ne manque rien dans le code ?

Private Sub Worksheet_Change(ByVal Target As Range)

Worksheets("Feuil2").Tab.ColorIndex = IIf(Worksheets("Feuil1").[C17] <> "", 3, 2)

End Sub

J'ai remis ça en changeant le A1 en C17 (case qui doit être le déclencheur).

Même si je ne change rien c'est idem pas de réaction.

Quelle serait mon erreur ?

Merci pour ton aide.

Bonjour le forum et à vous deux,

Le code curulis57 fonctionne très bien ! Quand tu cliques et que tu rajoutes une info (n'importe laquelle) dans la feuille 1, cellule A1, l'onglet de la feuille 2 change de couleur.

Bonjour Peg781, Curulis57, MPETIT,

Exact, le code fourni par Curulis57 fonctionne très bien afin de changer la couleur de l'onglet.

Après si souhait d'une couleur particulière quelque soit la valeur en C17 tu peux tester le fichier joint.

Salut,

Tout d'abord merci à tous pour vos réponses.

J'ai réessayé sur mon document mais rien ne change, en regardant le code de plus près je ne voie pas comment choisir la couleur.

Question : dois-je mettre d'abord l'onglet en couleur ?

Je souhaite juste que mes feuilles 2,3,4,5,6 etc soit en incolore, (la première est toujours utiliser donc inutile de donner de la couleur à l'onglet).

Je m'explique mieux sur mon souhait :

Mon document comporte déjà une fonction :

ma case C17 de la feuil 1 est grisé et un "X" ce met si une valeur est entrer dans quelques case en feuil 2

idem C18 feuil 1 si valeur entrer dans plusieurs case en feuil 3 etc.

Je veux récupérer cette case pour faire en sorte que l'onglet ce coloris en orange par exemple.

C17 = onglet feuil 2 orange

C18 = onglet feuil 3 orange

pas de couleurs si C17,C18 etc non remplis.

En faite c'est un document à remplir avec plusieurs feuilles et cette fonction à pour but d'avoir une lecture plus rapide des onglet qui ont été remplis.

Pardonner moi si je me fait mal comprendre.

Cordialement,

J'avoue être un peu perdu….

Serait-il possible d'obtenir un fichier exemple ?

Bien cordialement,

AP

Bonjour,

Voici le document.

cdt,

Bonsoir Peg781,

En retour fichier modifié pour tester tes feuilles.

Bonne continuation.

Salut Peg,

Salut l'équipe de GP,

marre de me casser la tête sur ce portable qui n'en veut plus... Rien à faire...

Ceci DOIT fonctionner!

A coller dans le module VBA de 'ThisWorkbook'.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
Dim x%
'
For x = 17 To 22
    Sheets(x - 15).Tab.ColorIndex = IIf(Sheets(1).Range("C" & x).Value = "X", 46, 2)
Next
'
End Sub

A+

Bonjour Curulis,

C'est exactement ça ! un grand merci pour ton aide ainsi que toute les personnes qui ont gaspiller un peu de leur temps sur ce poste.

Passer un bonne journée.

A+

Bonjour,

Une fois que tu as obtenu une réponse à ta question, il faut valider le post. Il y a un petit logo "✓".

Bien cordialement,

Amitiés

Bonjour mpetit,

J'avais cliqué dessus mais cela na pas du fonctionner... bizarre,

Je viens de le remettre merci à toi.

Cordialement,