Couleur de cellule conditionnel

[Cédric]

Bonjour à tous,

Est il possible de mettre en forme une cellule dans une feuille en fonction de la couleur d'une cellule d'une autre feuille ?

Exemple :

Dans la feuille 1 la mise en forme de la case B13 est conditionné par la case B14 de la feuille 2.

D'avance merci à tous.
Cordialement
Cédric :woohoo:

 

[tigroo]

Voici un bout de code pour t'aider:

sub changecouleur ()

'si la case A1 de la Feuil 1 est rouge (valeur 3)
If Sheets('Feuil1').Range('A1').Font.ColorIndex = 3 Then

'Alors on colore la case A1 de la feuil2 en violet (valeur 7)

With Sheets('Feuil2').Range('A1').Interior
.ColorIndex = 7
End With


End If


End Sub

Si tu tapes ce code dans visual basic éditor, lorsque tu déclenche la macro, elle va voir en a1 feuil 1 si la case est rouge, et si c le cqs elle colore la case a1 feuil 2 en violet.
Ai-je répondu entierement, partielement, pas du tout a ta question?
[file name=changecouleur.zip size=7107]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/changecouleur.zip[/file]

 

[andré]

Salut,

Tu peux aussi le faire en nommant (menu Insertion / Nom / Définir) la cellule B14 de la feuille 2 et en employent ce nom dans la MeFC de la feuille 1.

Ândré.

 

[Cédric]

Merci Tigroo !!!

Tu as entierement répondu à ma question

Il me reste plus qu'à adapter ta macro pour qu'elle travaille sur une base, si cela est possible. :angry:

Je te remecie !!!

Merci également andré,

J'avais pas compris tout de suite ton explication (le temps que le petit vélo fasse le tour) . inch:

Je vais m'en servir également.

Un GRAND merci à vous, grace à vous je progresse.

 

[jepi67]

Bonjour Tigroo, bonjour à tous,

Petite anomalie dans ton code, tu écris :

'si la case A1 de la Feuil 1 est rouge (valeur 3)
If Sheets('Feuil1').Range('A1').Font.ColorIndex = 3 Then

à la place de Font (police) il faut mettre Interior; ensuite lorsque l'on lance la macro, quelle que soit la couleur de la cell feuil1, la commande de colorier en violet l'intérieur de la cell feuil2 s'exécute.

Mais là mes connaissances de débutant VBaciste s'arrêtent.

Ne le prends pas comme une critique, je cherche à comprendre...

Ok j'ai compris, une fois Font remplacé par Interior ça marche

Bonne programmation

Message édité par: jepi67, à: 03/06/2005 16:20