Renvoyer "≈" dans une cellule via macro

Staple1600

XLDnaute Barbatruc

• 20 Février 2018

• #2

Bonsoir le fil, le forum

Unicode ANSI ASCII sont sur un bateau 😉

VB:

Declare Function MessageBoxL Lib "user32" Alias "MessageBoxW" (ByVal hwnd&, ByVal lpText As Long, ByVal lpCaption&, ByVal wType&) As Long
Sub test()
Damned
Bingo
End Sub
Private Sub Damned()
MsgBox ChrW(&H2248)
End Sub
Private Sub Bingo()
MessageBoxL 0, StrPtr("Eureka! O Joie: " & ChrW(&H2248)), StrPtr("WYSIWYG ;-)"), 0
End Sub

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2018

• #3

Bonsoir,

J'ai tenté d'essayer. Ça ne marche pas.
Faudrait passer par les APIS... Fichtre !
Peut-être qu'un jour le gens de chez Microsoft prendront en compte ces symboles SIMPLEMENT...

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 20 Février 2018

• #4

Bon_jour

Magic_Doctor à dit:

Je voudrais tout simplement renvoyer le symbole mathématique (à peu près égal) "≈" dans une cellule.

Cliquez pour agrandir...

VB:

Sub VoisinDe()
  [A1] = "»":  [A1].Font.Name = "Symbol" 'si ce n'est pas déjà fait
End Sub

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 20 Février 2018

• #5

Bonjour,

code ASCII 187 donc ALT 0187 (pas 187) et police "symbol"

P.

edit ---> Pas vu le msg de Si... que je salue 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2018

• #6

Bonsoir le fil, le forum

@Magic_Doctor

Magic_Doctor à dit:

Bonsoir,
J'ai tenté d'essayer. Ça ne marche pas.

Cliquez pour agrandir...

Le code VBA de mon précédent message fonctionne.
(En tout cas, sur Excel 2013 où je l'ai testé)

Et celui-ci aussi fonctionne:

VB:

Sub TestDans_A1()
[A1] = ChrW(&H2248)
End Sub

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 20 Février 2018

• #7

Bonsoir Magic_Doctor, Staple1600 le forum

Les deux codes de Staple1600 fonctionnent sur 2003 et 2010

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2018

• #8

Bonsoir chris24

Merci pour les tests et le retour 😉

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2018

• #9

Bonsoir à tous,

Pas pu répondre avant, n'étant pas devant la bécane (toujours allumée) depuis hier soir.
Un grand merci pour vos réponses et tout particulièrement à Staple qui résoud parfaitement le problème.
Ta 1ère proposition m'a un peu déconcerté à cause de l'API, je trouvais ça particulièrement compliqué pour un truc, ma foi, simple en apparence. Il faut donc passer par ce code ChrW(&H2248) que je ne connaissais pas. Qu'est-ce au juste ? J'imagine que c'est de l'hexadécimal ou un machin du genre.
En tout cas j'ai pu régler ainsi en un tournemain le problème pour une mise en forme personnalisée (via macro) où, pour un résultat, le préfixe est "≈" ---> ≈ 13,75 mL
Absolument pas fondamental, mais ça en jette ! Et le lecteur comprend mieux.

Buenas noches a todos los nórdicos.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2018

• #10

Re

@Magic_Doctor
L'API c'est juste pour que tu vois ce qui se passe avec un MsgBox classique vs MsgBoxL

Pour le reste et pour éclairer ta lanterne et pour contextualiser la première phrase de mon premier message 😉
Ce lien n'existe plus

 

Vote positif 0 Vote négatif