Discussion :

[magnetolivier]

Bonjour

Comment changer la couleur de l'onglet en fonction de la valeur de la case A1 par exemple. Si A1 est rouge alors l'onglet est rouge, Si A1 est orange alors l'onglet est orange, Si A1 est vert alors l'onglet est vert. sans formule juste sur une couleur. Es ce possible ?

cordialement

Olivier

[CristofMartins]

Salut,
Question technique,
Tu veux changer la couleur manuellement ("avec une formule excel ... ") ou avec de la programmation sur excel ("Macros VBA")

[magnetolivier]

merci pour ta réponse.

je ne sais pas je voudrais que cela ce fasse automatiquement.

Dite moi ce qui est le mieux

cordialement

[CristofMartins]

Le problème c'est que avec une formule excel, je ne sais pas du tout comment le faire. Et pour le faire en programmation je pourrais essayer de le faire. Ca ne devrais pas être compliqué, As-tu déjà programmé avec du VBA ?

[magnetolivier]

Non je n'ai jamais fait de VBA pouvez vous m'aider ?

[CristofMartins]

Voila J'ai trouvé.
Maintenant t'expliquer comment ça marche vba c'est un peu dur. Je vais essayer. Si tu ne comprend pas, tu me demande.

Donc, tout d'abord il faut activer l'onglet développeur.
Tu utilise quel version excel ?

[magnetolivier]

Voici le fichier excel que je parle et la cellule correspondante est A1 et il y a la date de l'année dedans.

Cordialement

[magnetolivier]

j'utilise excel 2003

[CristofMartins]

D'accord et je présume que ce n'est pas toi qui la crée vu qu'il y a déjà des parties de code vba à l'intérieur. Bon, quel feuille doit être affecté par la couleur que tu souhaite ?

[Pierre Dumas]

Voici le fichier excel que je parle et la cellule correspondante est A1 et il y a la date de l'année dedans.

Cordialement

Et voici en retour ton fichier avec le bout de code à l'intérieur.

Pour changer la couleur, il suffit, une fois la couleur changée en A1, de faire le raccourci clavier Alt F8, puis de choisir la macro ChangeCouleur et de finir en cliquant sur "Executer".

Pour info voici le petit bout de code réalisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub ChangeCouleur()
ActiveSheet.Tab.Color = Range("A1").Interior.Color
End Sub

Bonne journée

Pierre

[CristofMartins]

GG, T'a été plus rapide que moi à l'envoyer. Sa se voit que si ta des pauses le matin tu les fais pas

[magnetolivier]

C'est la cellule A1.

En fait j'ai plusieurs projets pour ce fichier excel.

En premier calculer en fonction d'une date rentrée dans n'importe quel case du tableau, une date de prévision et date limite. Toutes les 3 semaines. On a donc une date en R9 qui change a tous moment dès que l'on rentre une date. La cellule en A1 fonctionne en vert si inférieur à R9-7 jours, orange si inférieur à R9 et rouge si supérieur à R9.

J'ai repris cet ancien fichier excel que je dois moderniser pour 2013 j'aurais du commencer par te demander comment faire le calcul et qui se fasse automatiquement a chaque rentrée de date.

Cordialement

[magnetolivier]

J'ai essayé la macro merci beaucoup cela fonctionne mais peux t'on la faire en automatique ?

[Pierre Dumas]

J'ai essayé la macro merci beaucoup cela fonctionne mais peux t'on la faire en automatique ?

Ce matin, je n'ai pas trouvé

[CristofMartins]

Normalement, si Pierre Dumas l'a mise sur un Worksheet Activate, juste le faite de changer de feuille et revenir sur la même, ça devrait changer la couleur, Ou alors il pourrait mettre le code lorsqu'il y a un changement quelconque dans la page.
Cordialement

[Philippe Tulliez]

Bonjour,
Il faut lire jusqu'au bout les réponses que l'on donne.
Pierre a écrit

Pour changer la couleur, il suffit, une fois la couleur changée en A1, de faire le raccourci clavier Alt F8, puis de choisir la macro ChangeCouleur et de finir en cliquant sur "Executer".

De plus il a déposé un fichier avec le code

Et voici en retour ton fichier avec le bout de code à l'intérieur.

Pour ajouter ma pierre à l'édifice et suivre l'idée de Pierre (ne cherchez pas le jeu de mot, il est involontaire)
Voici une procédure événementielle à placer dans l'objet ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Sh.Tab.Color = Sh.Range("A1").Interior.Color
End Sub

Ainsi dès que l'on activera une quelconque feuille du classeur, l'onglet de cette feuille prendra la couleur de sa cellule A1.

[magnetolivier]

J'ai essayer la vba de pierre et cela fonctionne en manuel pas de soucis mais si quelqu'un peux m'expliquer comment faire en automatique

merci de votre aide

[Philippe Tulliez]

Bonjour,

J'ai essayer la vba de pierre et cela fonctionne en manuel pas de soucis mais si quelqu'un peux m'expliquer comment faire en automatique

merci de votre aide

As-tu lu ma réponse ?

[Philippe Tulliez]

Bonjour,
Pour être plus efficace, c'est peut-être mieux de le placer dans cette procédure événementielle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 Sh.Tab.Color = Sh.Range("A1").Interior.Color
End Sub

C'est à dire mise en couleur de l'onglet dès que l'on sélectionne une autre feuille du classeur