Insérer Omega dans procédure VBA

Résolu/Fermé
simdup Messages postés 13 Date d'inscription lundi 17 novembre 2014 Statut Membre Dernière intervention 27 février 2015 - Modifié par simdup le 26/02/2015 à 11:06
simdup Messages postés 13 Date d'inscription lundi 17 novembre 2014 Statut Membre Dernière intervention 27 février 2015 - 27 févr. 2015 à 14:42
Bonjour,

Je cherche à insérer le sigle Omega dans ma procédure, celle ci fonctionne avec A ,

Worksheets(2).Cells(5 + i, 11).Text = "mA"

Mais pas

Worksheets(2).Cells(5 + i, 11).Text = "m?"

Si quelqu'un sais comment insérer le symbole Omega dans ma procédure je l'en remercie d'avance.

3 réponses

cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 724
26 févr. 2015 à 11:08
Bonjour,

essaie ceci:

Worksheets(2).Cells(5 + i, 11).Value = "m?" 

0
crapoulou Messages postés 28092 Date d'inscription mercredi 28 novembre 2007 Statut Modérateur, Contributeur sécurité Dernière intervention 17 mars 2023 8 003
Modifié par crapoulou le 26/02/2015 à 11:25
Salut,

Essaye ceci :

Worksheets(2).Cells(5+i, 11).Value = "m" & ChrW(937)
0
blux Messages postés 24868 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 17 mars 2023 3 308
Modifié par blux le 26/02/2015 à 13:00
Salut,

il s'insèrera avec la police idoine en prenant son code 'unicode'...

Pour moi, il faut donc sélectionner une police (type Calibri, qui offre l'omega dans la liste des symboles) et ensuite faire un peu de chrW pour entrer son code avec sa valeur unicode (ici 2126 en hexa).

Ce qui pourrait donner chez toi :

Unite = "m" & ChrW(&H2126)
Worksheets(2).Cells(5 + i, 11).Value = Unite


A+ blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
0
simdup Messages postés 13 Date d'inscription lundi 17 novembre 2014 Statut Membre Dernière intervention 27 février 2015
27 févr. 2015 à 14:42
Merci pour vos réponses, solution trouvé :)
0