connaitre valeur couleur cellule active

[glm]

Bonsoir à tous,
je cherche à connaitre la valeur de la couleur de la cellule active.
J'ai essayé cela mais ne fonctionne pas

c = ActiveCell.Interior.ColorIndex

Il met tjrs la même valeur : -4142
J'ai essayé différente chose mais tjrs rien
Merci de votre aide A+

 

[PascalXLD]

Bonjour

-4142 c'est le numero quand il n'y a pas de couleur

 

[glm]

Merci pour la vitesse
mais pourtant il ya une couleur jaune (valeur 19) qui est fait avec une mise en forme conditiuonnelle via une formule
A+

 

[PascalXLD]

re

ah oui mais le interior colorindex ne prend pas en compte les couleurs par MFC

 

[glm]

D'accord je comprends que je suis dans le m...
Mais y a t'il une solution
A+

 

[PascalXLD]

tu peux developper ce que tu veux faire
pourquoi tu veux connaitre le numero de couleur ??

 

[glm]

Je travaille sur un planning de personnel
J'ai mis de la mise en forme conditionnel sur un tableau pour différentier, avec des couleurs, différents congés(couleur jaune pale) ou si c'est Weekend(couleur bleu ). Pour cela j'utilise des formules dans les mises en forme
Dans ce même tableau quand je double clic sur une cellule, j'ouvre un userform qui me permet de rentrer et de calculer les heures en quantiemes.
Et donc quand je viens cliquer sur une cellule de couleur jaune-->j'affiche un message comme quoi c'est un congé(pas possible d'ouvrir un userform)
A+

 

[PascalXLD]

RE

Et bien sur le clic tu testes ta formule qui est dans ta MFC

 

[glm]

Il faut que j'enlève toue la mise en forme
et appliquer en vba
Peut tu me dire comment incoporer ses formules
si possible
MErci A+ [file name=exemple_20060207222808.zip size=14388]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060207222808.zip[/file]

 

[PascalXLD]

re

Voilà je n'ai pas bouger tes MFC mais ajouter quelques lignes au code

Il faudra peut-être ajouter tous les cas là je t'ai fait CP et RC [file name=exemple_20060207223928.zip size=16461]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060207223928.zip[/file]

 

[glm]

Mille merci
juste une dernière question
peux-tu m'expliquer la fonction que tu as mis
en qq mots
A+

 

[glm]

Désolé moi plus précis
Target c'est quoi
A+

 

[PascalXLD]

RE

J'ai vu que dans ta MFC tu mets de jaune en cas de CP RC ou autre

donc je teste la cellule sur laquelle tu cliques et si la cellule contient CP ou si celle de gauche contient CP alors le message etpas envoyer le UF

 

[PascalXLD]

target c'est la cellule sur laquelle tu double-cliques

 

[glm]

Ok car je n'ai pas trouvé d'aide sur ça
Merci encore
Bonne nuit
glm