Fonction pour renvoyer N° de couleur

[FaridP]

Bonjour à Tous,

Je cherche en vain le moyen de renvoyer le N° de couleur de fond d'une cellule dans une autre cellule.
Existerait-il une fonction permettant de le faire ?
Ou bien quelqu'un pourrait-il me communiquer le code de la fonction me permettant d'y parvenir ?

Merci d'avance de votre aide et de vos lumières.
Que la Force soit avec Vous
Cordialement,
Farid

 

[Celeda]

Bonjour,

Tiens colle celle-la (auteur Ti) dans un module :

Function CouleurType%(Cell As Range)
Application.Volatile
CouleurType = Cell.Interior.ColorIndex
End Function


dans ta cellule :

=SI(A1='';'';CouleurType(A1))

et hop tu chopes son numéro de couleur

Celeda

 

[JYLL]

Bonsoir Faridp et celeda,

J'ai fait une petit macro qui donne la couleur et la valeur numérique dans la feuil1.

Bon test.

Amicalement.

Jean-Yves [file name=Code_Couleur.zip size=9435]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Code_Couleur.zip[/file]

 

[Celeda]

Bonsoir,

et vi!!! voilà comment on en voit de toutes les couleurs!!!!!!

Merci JYLL.

Celeda