colorindex recupérer le nom de la couleur

[alexane]

Bonjour à tous
Voila la propriete colorindex permettant de récupérer le n° d'index de la couleur d'une cellule, je cherche une propriete ou methode qui me permettrait de récupérer la couleur d'une cellule en toute lettre cad
Au lieu d'avoir pour

ma_couleur = range("A1").interior.colorindex

le resultat 3, j'aimerais avoir pour résultat "rouge"
Merci

 

[pierrejean]

Re : colorindex recupérer le nom de la couleur

Bonjour alexane

Vois si tu peux t'inspirer de ceci

Les Array de la fonction personnalisée sont à completer pour avoir les 56 indexs possibles

 

[alexane]

Re : colorindex recupérer le nom de la couleur

Bonjour,
Merci
Donc il faut se reconstruire les valeurs,
c'est pas récupérable comme par ex les proprietes d'un fichier
Mais c'est vrai qu'un array simplifie le travail

 

[13GIBE59]

Re : colorindex recupérer le nom de la couleur

Bonjour Alexane, bonjour au brillant pierrejean...

@ pierrejean :

Sympa ton fichier...J'en ai profité pour ajouter une petite chose dans ton code (mais tu avais fait le plus gros !).

Sub test()
For n = 1 To 7
MsgBox ("La couleur de A" & n & " est " & coul(Range("A" & n).Interior.ColorIndex) & ", son code est " & n)
Next n
End Sub

pour avoir aussi le code couleur...

Mais sur le fichier joint, bonjour la difficulté de trouver les 56 noms de couleurs..

Bravo encore !

 

[13GIBE59]

Re : colorindex recupérer le nom de la couleur

Tiens, un exemple de noms, fait à la va vite...

 

[pierrejean]

Re : colorindex recupérer le nom de la couleur

Re

Avec l'aide de mon Ami Jean-Bernard 🙂 🙂 voici la nouvelle fonction coul()