couleur onglet/condition

Etienne2323

XLDnaute Impliqué

• 5 Janvier 2011

• #2

Re : couleur onglet/condition

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

Code:

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

 

Vote positif 0 Vote négatif

C

charlieddr

Guest

• 5 Janvier 2011

• #3

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

 

Pièces jointes

• projet CM 2010 - Copie.xls

  44 KB · Affichages: 93
• projet CM 2010 - Copie.xls

  44 KB · Affichages: 103
• projet CM 2010 - Copie.xls

  44 KB · Affichages: 94

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 5 Janvier 2011

• #4

Re : couleur onglet/condition

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

La macro est la suivante :

Code:

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

 

Pièces jointes

• Exemple charlie.xls

  45.5 KB · Affichages: 79
• Exemple charlie.xls

  45.5 KB · Affichages: 82
• Exemple charlie.xls

  45.5 KB · Affichages: 85

Vote positif 0 Vote négatif

C

charlieddr

Guest

• 5 Janvier 2011

• #5

Re : couleur onglet/condition

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

 

Pièces jointes

• Exemple charlie.xls

  48 KB · Affichages: 81
• Exemple charlie.xls

  48 KB · Affichages: 80
• Exemple charlie.xls

  48 KB · Affichages: 79

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 5 Janvier 2011

• #6

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

 

Pièces jointes

• Exemple Charlie.xls

  45 KB · Affichages: 106
• Exemple Charlie.xls

  45 KB · Affichages: 108
• Exemple Charlie.xls

  45 KB · Affichages: 110

Vote positif 0 Vote négatif

C

charlieddr

Guest

• 5 Janvier 2011

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Janvier 2011

• #8

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
@+

 

Vote positif 0 Vote négatif