XL 2010 [Résolu] Rechercher couleur cellule et afficher l'index exacte

[Lone-wolf]

Bonsoir le Forum

Avec le fichier joint, je cherche à récupérer l'index exacte des couleurs mis dans la feuille 2 avec les couleurs.

En double-cliquant sur la feuille 1, on affiche le formulaire avec les boutons(couleurs) de 3 à 56. On sélectionne une cellule, on clique sur l'un des boutons; la cellule se colorie et dans celle-ci devrait s'inscrire la valeur exacte de la couleur. J'ai mit = ActiveCell.Interior.Color, mais la valeur est érronée.

Je ne sais pas si avec Find ou Match on peut l'obtenir et de plus je ne sais pas comment écrire le code. Merci pour tout aide apportée.

 

[Chris401]

Bonsoir

Essaye en ajoutant dans le module de classe

c = Mid(boutton.Name, 14, 2)

 

[Lone-wolf]

Bonsoir Chris

Nickel ! Merci pour le tuyau. Tu ne serait pas plombier par hazard??

À quoi correspondent 14 et 2 ?

 

[Chris401]

Re

Mid équivaut à STXT
Mid(Texte,à partir de quel caractère,nombre de caractères à garder)
CommandButton comporte 13 lettres ; donc on veut commencer au 14ème caractère

Soit à partir du 14ème caractère, on en garde 2

 

[Lone-wolf]

Re Chris

Merci pour l'explication. Je vais le copier dans un fichier texte pour me rappeler comment utiliser MID.

 

[eriiic]

Bonjour,

comme tu parles des 56 couleurs et de récupérer l'index exact, l'index c'est .colorindex et non .color.
Jaune par exemple c'est .color = 65535 mais c'est .colorindex = 6
eric

 

[Lone-wolf]

Bonjour Eric, le Forum

Je viens de relire mon premier message. C'est une erreur de ma part, j'aurais dû écrire ColorIndex effectivement.