couleur cellule si valeur dans feuille séparée?!

A

arnaud

Guest
Bonjour tout le forum,

Pourriez vous me dire comment opérer pour changer la couleur des cellules en fonction de plusieurs valeurs qui se trouve dans une autre feuille (une seule couleur pour différentes valeurs!).
Pas possible avec mise en forme conditionnelle! Macro peut être? ou autre...

Merci de votre réponse

Good day and enjoy your meal!
 
W

WILFRIED

Guest
Salut Arnaud.

Avec une macro cela est parfaitement faisable :

sub changement_couleur

sheets("nomfeuille_chgcoul").select
range("A1").select

select case sheets("feuill2").range("A1").value

case 1
selection.interior.colorindex= 6
case 2 to 30
selection.interior.colorindex= 15
case 31
selection.interior.colorindex= 40
case else
selection.interior.colorindex= 33
end select
end sub

nomfeuille_chgcoul est le nom de la feuille ou tu veut appliquer ta mise en couleur et feuill2 celui de la feuille contenant ta valeurs.

A+ Wilfried ;op
 
A

andré

Guest
Salut à vous deux,

Mais si il y a moyen en nommant les cellules de l'autre feuille.

Voici comment j'ai fait :

En Feuil2 j'ai mis des valeurs dans trois cellules non contiguës, puis j'ai sélectionné ces cellules.
Menu Insertion / Nom / Définir / =essai / OK
En Feuil1 j'ai placé une MFC sur une cellule quelconque avec "la formule est" : =SOMME(essai)>0 / Format / Motif jaune /OK / OK

Cette cellule reçoit bien un fond jaune.

Ândré.
 
A

arnaud

Guest
Merci à vous mais la soluce à André ne fonctionne pas! je me retrouve avec toutes les cellules colorées au lieu d'avoir celle qui contient la valeur souhaité!
ex : si A2 : A22 = 12 alors cellule verte

A+
 
A

andré

Guest
Salut arnaud,

C'est quoi ton "bidule" : si A2 : A22 = 12 ?
La somme de A2:A12 ?
Peut-être la présence de la valeur dans la plage A2:A22 ?
Ou encore autre chose ?
Et où sont tes paranthèses ?

Au plus tu seras précis, au mieux on pourra t'aider !

Ândré.
 

Discussions similaires

Statistiques des forums

Discussions
312 729
Messages
2 091 414
Membres
104 922
dernier inscrit
necronaume