Discussion :

[Ptitbubu75]

Bonjour à tous,

Je ne suis pas un pro des macros, mais en tâtonnant et grâce à la fonction "Enregistrer une macro" je me débrouille.

Je suis fasse à une problème sur une des lignes.

"=IF(RC[-1]=0,""AUCUNE DONNEES"",IF(RC[-1]<75,""T° d’ébullition <= 75 °C"",IF(RC[-1]<250,""75 °C < T°d’ébullition <=250°C"",""T° d’ébullition >250 °C"")))"

AU lieu de "<=" je souhaiterais que s'inscrive dans la cellules le symbole "≤".


Merci pour vos conseils.

Bruno

[halaster08]

Bonjour,

remplace T° d’ébullition <= 75 °C par T° d’ébullition" & chr(x) &" 75 °Coù x est le code ascii de ton caractère inférieur ou égal

edit: Merci Menhir pour cette précision, je n'étais pas au courant de cette limitation

[Menhir]

remplace T° d’ébullition <= 75 °C par T° d’ébullition" & chr(x) &" 75 °Coù x est le code ascii de ton caractère inférieur ou égal

Ca ne fonctionnera pas en VBA car, dans la plupart des polices de caractères, ce symbole est au delà du code 255 qui est la limite pour la fonction Chr de VBA.

La seule solution que je vois, ce serait d'utiliser la police Symbol dans laquelle ce signe a le code 163.
Mais ça serait complexe à mettre en place.
Il faudrait, à la place de ce caractère, mettre "£" (qui est le caractère 163 de la plupart des polices).
Il faudrait que la cellule contienne le résultat de la formule et non pas la formule elle-même.
Ensuite trouver la position de ce caractère dans la chaine résultant en utilisant une fonction InStr() et modifier la police de ce caractère uniquement en l'atteignant avec une propriété Characters associé à la référence de la cellule, ce qui permettrait de modifier sa police.
Lire ça :
https://msdn.microsoft.com/fr-fr/lib...2(v=office.15)
https://docs.microsoft.com/fr-fr/off...cel.characters
https://docs.microsoft.com/fr-fr/off...l.font(object)
https://docs.microsoft.com/fr-fr/off...xcel.font.name

Et ce qui n'est déjà pas simple va énormément se compliqué par le fait qu'il y a plusieurs fois ce symbole dans la chaine.

Bref, pas sûr que le jeu en vaille la chandelle.

[Ptitbubu75]

Merci pour cette réponse, qui fonctionne.
Mais je ne trouve pas le code ascii de inférieur ou égal

[Menhir]

Merci pour cette réponse, qui fonctionne.

Attends de faire afficher ce caractère avant de dire que ça fonctionne.

Mais je ne trouve pas le code ascii de inférieur ou égal

Pour la plupart des polices de caractère le contenant, c'est 2264 en hexa et 8804 en décimal.
On peut le voir en utilisant la table de caractères de Windows avec des polices classiques comme Arial ou Courrier New.

Mais, comme je l'ai dit dans ma réponse précédente, ça ne fonctionnera pas puisque la fonction Chr n'accepte pas les codes au delà de 255.
Cette fonction (et tout VBA d'une manière générale) est héritée de l'époque où les caractères étaient codés sur deux byte et n'a pas évoluée depuis cette époque (du moins dans ce domaine).
C'est pour la même raison qu'il n'est pas possible d'afficher ce caractère dans l'éditeur de VBA (sinon ton problème se règlerait d'un simple copier/coller).

[Philippe Tulliez]

Bonjour,
En plus de Chr il y a ChrB et ChrW https://docs.microsoft.com/fr-fr/off...p/chr-function

[Menhir]

Effectivement, Chrw(8804) fonctionne.

[Ptitbubu75]

Merci à tous ma macro fonctionne.
Plus qu'un détail, mais il va faire l'objet d'une autre question.

Bruno