Discussion :

[flav_cm]

Bonjour à tous,

Je souhaiterais écrire le symbole ≥ dans une cellule d'une de mes feuilles excel. J'écris déjà dans cette même cellule grâce à ma macro mais je ne trouve pas comment faire pour avoir "≥" au lieu de "=" (lors de l'affichage du texte dans ma cellule) ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Position_courante.Offset(5, 1).Value = " Dn,e,w+Ctr = " & Cell2.Offset(0, 4).Value & " dB"

Merci d'avance pour vos propositions !

[pasdechances]

Bonjour,
Aurais tu essayé cela ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Position_courante.Offset(5, 1).Value = " Dn,e,w+Ctr  ≥ " & Cell2.Offset(0, 4).Value & " dB"

si non, il te reste ce composé : " => " qui veu dire la même chose que "≥ "

[flav_cm]

Bonjour pasdechances et merci pour ta réponse rapide !

Aurais tu essayé cela ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Position_courante.Offset(5, 1).Value = " Dn,e,w+Ctr  ≥ " & Cell2.Offset(0, 4).Value & " dB"

Lorsque j'essaye d'écrire directement le signe ≥ dans mon éditeur vba ça ne marche pas, il me le transforme direct en =.

si non, il te reste ce composé : " => " qui veu dire la même chose que "≥ "

Je souhaiterais justement éviter cette solution car le résultat dans la cellule n'est pas très joli visuellement (et j'aurais besoin d'utiliser mon tableau dans des rapports...).

N'existerait-il pas une banque de symbole accessible en vba (comme pour les lettres grecs par exemple) ?

[pasdechances]

hmm, en C j'aurai eu la solution, mais je pense que sa passera pas sur VBA, essaie avec le code ascii.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Position_courante.Offset(5, 1).Value = " Dn,e,w+Ctr " & Chr(241) & Cell2.Offset(0, 4).Value & " dB"

PS: nésolé je vien de me rendre compte que le 241 est le n avec accent
je te cherche le =>

le caractère que tu cherche n'existe pas dans a table ASCII.
si tu veux voir par toi même se que tu peut utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
    i = 1
    While i < 256
    Cells(i, 3) = i
    Cells(i, 4) = Chr(i)
    i = i + 1
    Wend
End Sub

[flav_cm]

hmm, en C j'aurai eu la solution, mais je pense que sa passera pas sur VBA, essaie avec le code ascii.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Position_courante.Offset(5, 1).Value = " Dn,e,w+Ctr " & Chr(241) & Cell2.Offset(0, 4).Value & " dB"

PS: nésolé je vien de me rendre compte que le 241 est le n avec accent
je te cherche le =>

Oui ça correspond pas au bon signe...

J'ai trouvé là (http://christianelagace.com/php/la-c...ascii-etendue/) que le code serait 362 mais ça me fait une erreur dans l'éditur vba : Argument ou appel de procédure incorrect...

[pasdechances]

C'est normal on est sur 8bit avec chr() du coup on a que 255 symboles.
https://msdn.microsoft.com/fr-fr/library/gg264465.aspx

[Marc-L]

Bonjour, bonjour !

Le caractère existe pourtant bien ‼

Il suffit tout simplement d'ouvrir dans les Outils système des Accessoires de Windows la Table des caractères :
cocher la case Affichage avancé puis sélectionner Rangée Unicode dans Grouper par : et dans la fenêtre
Regroupement pointer Opérateurs mathématiques : et voilà !
En sélectionnant le caractère désiré, son code (hexadécimal) apparait : 2265 …

Donc en VBA : ChrW$(&h2265) !

Peut même se convertir en décimal par exemple avec AscW (8805).
Évidemment ces deux fonctions sont référencées dans l'aide VBA interne …

Edit : trop tard, bbil a répondu pendant la rédaction de ma réponse !

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[SfJ5Rpw8]

Bonjour,

caractère Unicode , essai avec ChrW :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Position_courante.Offset(5, 1).Value = " Dn,e,w+Ctr " &  ChrW(&h2265) & "  " & Cell2.Offset(0, 4).Value & " dB"

[flav_cm]

Merci bbil pour cette solution efficace, et merci pasdechances pour tes recherches !