Excel problème avec couleur de type Hexa $......... [Résolu]

Messages postés
16
Date d'inscription
jeudi 14 février 2019
Statut
Membre
Dernière intervention
6 mai 2019
- - Dernière réponse : Excalibur_56
Messages postés
16
Date d'inscription
jeudi 14 février 2019
Statut
Membre
Dernière intervention
6 mai 2019
- 6 mai 2019 à 12:23
Bonjour à tous,
J'utilise Excel, dans une feuille, je défini les couleur de font de la cellule.
ActiveSheet.Range['A25'].Interior.Color:= $DCF5F5;

ça fonctionne bien

ActiveSheet.Range['A25'].Interior.Color:= Edit2.Text;

Mais, ça ne fonctionne pas avec un Edit, j'ai le message suivant :
"impossible de définir la propriété color de la classe intérior".

Pourquoi ??, peut-on m'expliquer le problème ??.

Je voudrais utiliser un Edit, afin de ne pas modifier mon programme à chaque essais, car je recherche les équivalents de couleurs (CLBlue..., RGB, Index Couleur, couleur hexa);
et je me suis rendu compte que les codes ne donnent pas toujours la couleur voulue, d'où l'utilisation d'un Edit.

En vous remercient d'avance,
Cordialement
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
429
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
1
Merci
Salut.
Le texte dans l'Edit est un string.
La valeur attendue (Color) est un TColor ou une valeur hexadécimale sur 4 octets.
Il faut convertir :
ActiveSheet.Range['A25'].Interior.Color:= StrToInt(Edit2.Text);

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CodeS-SourceS

Codes Sources 141 internautes nous ont dit merci ce mois-ci

Commenter la réponse de korgis
Messages postés
16
Date d'inscription
jeudi 14 février 2019
Statut
Membre
Dernière intervention
6 mai 2019
0
Merci
bonjour Korgis;
Merci de m'avoir répondu,
c'est bien ça, pourtant, j'avais essayé IntToStr(Edit.text), bien que dans ma question je ne l'avais pas précisé.
J'avais dû faire une erreur en faisant un copié-collé, du code Hexa ...?, je vois que cette explication, car ça fonctionne bien maintenant.
Un grand merci à toi pour tes réponses
Cordialement
problème résolu
Commenter la réponse de Excalibur_56
Messages postés
16
Date d'inscription
jeudi 14 février 2019
Statut
Membre
Dernière intervention
6 mai 2019
0
Merci
j'ai trouvé pourquoi , quand je fais un copié-collé du code Hexa, il y à un espace qui se rajoute parfois, et à causse de cet espace , ça provoque un message d'erreur.
Je supprime le dernier caractère dans mon Edit si c'est un espace.

Edit2.Text := Trim(Edit2.Text);


et voilà, plus de problème

cordialement
Commenter la réponse de Excalibur_56