Discussion :

[jpma75]

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 :

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

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

[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.
Enfin ce que j'en dit c'est pour essayer de vous aider.

Cordialement

[jpma75]

Bonjour,

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

Cordialement,
jp

[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 :

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

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

Lire ça : https://docs.microsoft.com/fr-fr/off...p/chr-function

[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

[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.

[jpma75]

Merci Menhir,

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

Cordialement,
jp

[Valtrase]

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

Code :

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

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;

[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

remplacer n° par ►

[jpma75]

Réponse à 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 :

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

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

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

Cordialement,
jp

[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

[jpma75]

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 :

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

="►"

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 :

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