générer Unicode macro

[virgile]

bonjour le forum,

cherchant à faire écrire par une macro les lettres grecques delta et sigma,
je demande s'il est possible de générer les caractères Unicode par VBA.

les exemples que j'ai trouvés avec strconv me sont restés hermétiques.

merci d'avance V.

 

[skoobi]

Re : générer Unicode macro

Bonsoir,

essaye voir avec la fonction AscW (jamais utilisé pour ma part mais regarde l'aide).

 

[phlaurent55]

Re : générer Unicode macro

Salut virgile, skoobi

voir fichier joint
à moins que je n'aie rien compris

 

[Staple1600]

Re : générer Unicode macro

Bonsoir à tous


Pour t'aider un peu plus

HTML 4 Unicode and Entity and Symbol font support

 

[phlaurent55]

Re : générer Unicode macro

Salut à tous,

cette fois avec macro

à+

 

[skoobi]

Re : générer Unicode macro

Re,
salut phlaurent55, JeanMarie

A moins que ce soit la fonction ChrW que tu veux.

 

[Staple1600]

Re : générer Unicode macro

Re

 Sub Sigma()
With Range("A1")
.Value = ChrW(8721)
.Font.Name = "Lucida Sans Unicode"
End With
End Sub

 Sub Delta()
With Range("A1")
.Value = ChrW(916)
.Font.Name = "Lucida Sans Unicode"
End With
End Sub

En reprenat les valeurs hexa de la liste du lien de mon précédent message

edit:bonsoir phlaurent55, skoobi, Spinolan08

 

[Spitnolan08]

Re : générer Unicode macro

Bonsoir le fil, Virgile, phLaurent, Stapple, Skoobi

Je n'ai pas bien compris la finalité de ta question mais tu peux procéder ainsi :

Sub testDelta()
ActiveCell.Value = "D"
With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Symbol"
End With

End Sub

J'ai mis un with pour permettre d'appliquer d'autres caractéristiques de format.

Cordialement

 

[chris]

Re : générer Unicode macro

Bonjour
trouvé sur le Web et testé :
Ajouter à 913 la valeur suivante :
Alpha 0 Bêta 1 Gamma 2 Delta 3 Epsilonn 4 Zêta 5 Êta 6 Thêta 7 Iota 8 Kappa 9 Lambda 10 Mu 11 Nu 12 Xi 13 Omicron 14 Pi 15 Rhô 16 Sigma 18 Tau 19 Upsilonn 20 Phi 21 Khi 22 Psi 23 Omega 24
et utiliser la fonction ChrW : ChrW(916) renvoie delta.
Il faut sans doute activer la bibliothèque Microsoft Forms 2


PS Edit : dans une feuille pas besoin de police particulière. Dans un userform il vaut mieux utiliser Arial Unicode
Staple, que je salue, est sur la même longueur d'onde

 

[virgile]

résolu : générer Unicode macro

bonjour le forum,
merci aux contributeurs,

chrw correspond exactement à ce que je cherchais.
la fonction de koobi, le lien et le code de Staple1600 ainsi que les explicat° de chris sont nickel.

merci à Spitnoland08 de ses indicat°,
je ne les retiendrai pas car je rechigne à utiliser plusieurs polices dans une feuille volumineuse.

j'ai mal compris les exemples de phlaurent55. Sans doute suis-je mal outillé.

salut V.

NB : ma solution précédente :
j'ai mis dans mon userform qui formule un filtre élaboré, la valeur d'une cellule où
j'avais préalablement collé le caractère spécial section "texte normal" du caractère voulu.
L'affichage du userform est impec et surtout, le filtre fonctionne au poil.