Insérer caractère spécial dans le code VBA

Version imprimable

Bonjour,

Dans le code qui suit, je souhaiterais remplacer n° par ►

Habituellement, je récupère ce signe par ALT+16 ; dans le code VBA, ça ne fonctionne pas !
Code:

1 2 3 Titre = ThisWorkbook.BuiltinDocumentProperties("title").Value dern_svg = ThisWorkbook.BuiltinDocumentProperties("Last Save time").Value Propriétés = "Version n° " & Titre & " Last Backup : " & dern_svg
En vous remerciant par avance pour vos lumières,
Cordialement,
jp

09/07/2020, 06h58
Transitoire

Bonjour,
je suis sur mac et n'ai pas tout a fait les choses identiques aux vôtres. Toutefois, vous devriez essayer de faire un enregistrement automatique de Macro par l'enregistreur en tapant dans la feuille, votre signe "cabalistique". ainsi peut être aurez vous son transfert automatique sous VBA, s'il est accessible? vous n'auriez plus qu'a le recopier.:weird:
Enfin ce que j'en dit c'est pour essayer de vous aider.:)

Cordialement 8-)
09/07/2020, 07h57
jpma75

Bonjour,

C'est ce par quoi j'avais commencé.
Ça affiche un point d'interrogation !

Cordialement,
jp
09/07/2020, 08h14
Menhir

Je ne connais pas les codes Mac et tu ne dis pas si ce signe est particulier à une police de caractère ou s'il est générique pour la plupart des polices texte.
Mais essaye ça :

Code:

Propriétés = "Version " & Chr(16) & " " & Titre & " Last Backup : " & dern_svg

Lire ça : https://docs.microsoft.com/fr-fr/off...p/chr-function
09/07/2020, 13h03
jpma75

Bonjour,

(Je ne suis pas sur Mac mais sur PC)

Ça ne fonctionne pas (dans le code) ; ça m'ajoute un rectangle vertical. Et si je modifie le nombre, toujours ce même signe.
Sur la feuille, ça renvoie bien ► si je teste avec diverses polices de caractères : Calibri, Arial, Courrier, Times New Roman, etc. (pas toutes testées, évidemment).

Cordialement,
jp
09/07/2020, 13h30
Menhir

Une explication possible (sans certitude).
Dans la table des caractères ASCII, Ce caractère fait partie des caractères avec un code inférieur à 32, ce qu'on appelle les "fonctionnels" parce qu'ils font non seulement référence à un visuel et une fonction (Tab, Backspace, retour chariot, etc.).
Ce sont les caractères que Windows gère mal. Dans la plupart des tables de polices de caractères, ils sont repoussés très loin, bien au delà de la table classique de 256 caractères.
Ton caractères a le code 25BA (9658), ce qui n'est pas géré par les fonction comme Chr (VBA) ou CAR (Excel).

Bref, tu as mal choisi ton caractère.
10/07/2020, 17h52
jpma75

Merci Menhir,

► C'est dommage, je l'aimais bien ce caractère... qui n'en manquait pas :-)

Cordialement,
jp

Salut le fil...
et en contournant le problème avec une autre police de caractère.

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub InsertCHR(Cel As Range)
    With Cel
        .Formula2R1C1 = "ê"
        With .Font
            .Name = "Wingdings 3"
            .Size = 12
        End With
    End With
End Sub

A voir; :roll:

11/07/2020, 18h53
Menhir

C'est une solution à laquelle j'avais pensé mais malheureusement elle n'est envisageable que pour le contenu d'une cellule (en faisant un peu de chirurgie avec la propriété Characters), pas pour une variable String.
12/07/2020, 11h01
Thumb down

Bonjour,
Dans word tu fais insérer symbole puis tu copies colle ;
De préférence il est conseillé de ne pas utiliser de caractères natif au clavier comme le caractère que tu avais choisi et qui est récupérable dans Word !

Voir tu copies colle celui ci

Citation:

remplacer n° par ►
12/07/2020, 16h17
jpma75

Réponse à Menhir,

Citation:

Envoyé par Menhir

C'est une solution à laquelle j'avais pensé mais malheureusement elle n'est envisageable que pour le contenu d'une cellule (en faisant un peu de chirurgie avec la propriété Characters), pas pour une variable String.

Effectivement, mon problème c'est l'insertion dans le code.

Dans une cellule, je peux l'intégrer facilement, même à partir d'une formule, comme je l'ai fait ici :

Code:

=SI(INDIRECT(ADRESSE(LIGNE();EQUIV(AUJOURDHUI();$3:$3;1));1)="";"";"◄")

... et pour insérer ►, toujours "mon" ALT(16)

Cordialement,
jp
13/07/2020, 11h02
Thumb down

Bonjour,
Effectivement ce code ASCII étendu ne match pas avec VBA; un copier coller donne un point d'interrogation !

Il faut te résigner à utiliser autre chose dans la table ASCII.

http://pages.videotron.com/spreno/Tableau_de_caracteres_Windows_ASCII.pdf
15/07/2020, 15h51
jpma75

2 pièce(s) jointe(s)

Bonjour,

En revenant aujourd'hui sur le forum, je ne retrouve pas un message que je croyais avoir envoyé !

De mémoire, j'expliquais que dans une formule sur une feuille Excel, j'insérais ce signe ► simplement avec ALT(16), comme ici (par exemple) où la formule est ="►" :

Code:

="►"

Mais en prévisualisant le message avant de l'envoyer, je m'étais aperçu que le texte avait changé après l'avoir placé entre balises, comme ci-dessus !
la copie écran avant prévisualisation du message donne ceci :

Citation:

Pièce jointe 575048

D'où ma suggestion de récupérer la chaîne de caractères &#9658 dans le code VBA en lieu et place du ALT(16)...

Cordialement,
jp