couleur onglet/condition

[charlieddr]

Bonjour,

La couleur de l'onglet d'une feuille (dans le classeur) peut -elle être conditionnée par la valeur d'une cellule?

merci.

 

[Etienne2323]

Re : couleur onglet/condition

Salut Charlieddr, le forum,
oui, c'est possible. Pour ce faire, voici une petite macro qui fait le travail souhaité.

Sub Test()

Dim Nom_de_la_feuille As String

Nom_de_la_feuille = "Feuil1" 'À modifier
Sheets(Nom_de_la_feuille).Tab.ColorIndex = Cells(1,1).Value 'En supposant que la valeur se trouve en A1

End Sub

Par exemple, si la valeur de la cellule A1 est à 6, l'onglet sera colorié en jaune. Vous pouvez facilement faire une recherche sur Google pour aller chercher les tables de colorindex et ainsi avoir tous les numéros de couleur.

Bonne continuité,

Cordialement,

Étienne

 

[charlieddr]

Re : couleur onglet/condition

Merci mais je comprend pas tout..même rien (mdr)
Je le met où le code?
DAns mon fichier joint il y a "accueil" et "feuil1".Il faudrait que lorsqu' il n'y a pas de valeur dans (accueil D5 qui vient de feuil1 I21) l'onglet feuil1 soit rouge,que lorsque cette même valeur est inf à 10 (=orange) et sup 10 =(vert).
Mais la cerise sur le gâteau il faudrait que la valeur mémorisée (D5) ne s'inscrive que si elle est supérieure à celle déjà inscrite.
Bonne chance et merci

 

[Etienne2323]

Re : couleur onglet/condition

Re, le forum,
voici qui devrait remplir votre besoin.

La macro est la suivante :

Sub Test()

Dim Nom_de_la_feuille As String
Dim La_Valeur

Nom_de_la_feuille = "Feuil1" 'À modifier

La_Valeur = Cells(21, 9).Value

Select Case La_Valeur
    Case 0
        Sheets(Nom_de_la_feuille).Tab.ColorIndex = 3
    Case 1 To 9
        Sheets(Nom_de_la_feuille).Tab.ColorIndex = 46
    Case 10 To 1000
        Sheets(Nom_de_la_feuille).Tab.ColorIndex = 10
    Case Else
End Select

Le_Test = Sheets("accueil").Cells(5, 4).Value
If La_Valeur > Le_Test Then Sheets("accueil").Cells(5, 4).Value = La_Valeur

End Sub

Vous n'avez qu'à cliquer sur le bouton "Mise à jour couleur" sur la feuil1 pour la mettre en marche.

À noter qu'il n'y avait pas d'onglet "accueil" dans votre fichier.

Bonne continuité,

Étienne

 

[charlieddr]

Re : couleur onglet/condition

Merci mais ne fonctionne pas chez moi.
je te met le fichier .

 

[Etienne2323]

Re : couleur onglet/condition

Salut Charlie,
effectivement, c'était mon erreur, je n'avais pas déclarer la variable Le_Test.
C'est maintenant fait.

Voici le fichier.

Bonne continuité,

Étienne

 

[charlieddr]

Re : couleur onglet/condition

Super travail, un ENORME merci !!!
serais-tu en mesure de faire en sorte que le code fonctionne dans la feuille active sans idée de nom.
merci

 

[Pierrot93]

Re : couleur onglet/condition

Bonjour Charlie, Etienne

pas tout suivi, mais pour travailler sur la feuille active, remplace partout dans le code les :
Sheets ("nomfeuille")
par :
ActiveSheet

bonne journée
@+