Insérer Caractère Spécial Dans Le Code VBA

Navigation

Inscrivez-vous gratuitementpour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

• Vous n'êtes pas encore inscrit sur Developpez.com ? Inscrivez-vous gratuitement !

• Quoi de neuf ?
• Forum
• Derniers messages
• Actions
  • Marquer les forums comme lus
  • Messages du jour
  • Bugs & Suggestions
• Réseau social
  • Groupes
  • Liste des utilisateurs
  • FAQ forum
  • Voir l'équipe du site
• Blogs
• Agenda
• Chat
• Règles
• Blogs
• Projets

• Recherche avancée

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• Insérer caractère spécial dans le code VBA

+ Répondre à la discussion Discussion : Insérer caractère spécial dans le code VBA Sujet :

Macros et VBA Excel

• Outils de la discussion
  • Afficher une version imprimable
  • S'abonner à cette discussion…
• Affichage
  • Mode linéaire
  • Choisir le mode hybride
  • Choisir le mode arborescent

1. 09/07/2020, 01h00 #1 jpma75 Membre éclairé Inscrit enJanvier 2013Messages749Détails du profilInformations personnelles :Sexe : Localisation : FranceInformations forums :Inscription : Janvier 2013Messages : 749 Insérer caractère spécial dans le code VBA

   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

   123	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

   Répondre avec citation 0 0
2. 09/07/2020, 07h58 #2 Transitoire Membre Expert Auditeur informatiqueInscrit enDécembre 2017Messages733Détails du profilInformations personnelles :Sexe : Âge : 71Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)Informations professionnelles :Activité : Auditeur informatiqueInformations forums :Inscription : Décembre 2017Messages : 733

   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

   Répondre avec citation 0 0
3. 09/07/2020, 08h57 #3 jpma75 Membre éclairé Inscrit enJanvier 2013Messages749Détails du profilInformations personnelles :Sexe : Localisation : FranceInformations forums :Inscription : Janvier 2013Messages : 749

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

   Répondre avec citation 0 0
4. 09/07/2020, 09h14 #4 Menhir Expert éminent IngénieurInscrit enJuin 2007Messages16 037Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : IngénieurSecteur : IndustrieInformations forums :Inscription : Juin 2007Messages : 16 037

   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

   Répondre avec citation 0 1
5. 09/07/2020, 14h03 #5 jpma75 Membre éclairé Inscrit enJanvier 2013Messages749Détails du profilInformations personnelles :Sexe : Localisation : FranceInformations forums :Inscription : Janvier 2013Messages : 749

   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

   Répondre avec citation 0 1
6. 09/07/2020, 14h30 #6 Menhir Expert éminent IngénieurInscrit enJuin 2007Messages16 037Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : IngénieurSecteur : IndustrieInformations forums :Inscription : Juin 2007Messages : 16 037

   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.

   Répondre avec citation 1 0
7. 10/07/2020, 18h52 #7 jpma75 Membre éclairé Inscrit enJanvier 2013Messages749Détails du profilInformations personnelles :Sexe : Localisation : FranceInformations forums :Inscription : Janvier 2013Messages : 749

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

   Répondre avec citation 0 0
8. 10/07/2020, 23h03 #8 Valtrase Membre émérite Jeune retraité...Inscrit enJanvier 2016Messages541Détails du profilInformations personnelles :Sexe : Âge : 66Localisation : France, Pyrénées Orientales (Languedoc Roussillon)Informations professionnelles :Activité : Jeune retraité...Secteur : Boutique - MagasinInformations forums :Inscription : Janvier 2016Messages : 541

   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

   12345678910

   Sub InsertCHR(Cel As Range) With Cel .Formula2R1C1 = "ê" With .Font .Name = "Wingdings 3" .Size = 12 End With End With End Sub

   A voir;

   Répondre avec citation 0 0
9. 11/07/2020, 19h53 #9 Menhir Expert éminent IngénieurInscrit enJuin 2007Messages16 037Détails du profilInformations personnelles :Sexe : Localisation : France, Finistère (Bretagne)Informations professionnelles :Activité : IngénieurSecteur : IndustrieInformations forums :Inscription : Juin 2007Messages : 16 037

   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.

   Répondre avec citation 0 0
10. 12/07/2020, 12h01 #10 Thumb down Membre Expert RetraitéInscrit enJuin 2019Messages1 635Détails du profilInformations personnelles :Sexe : Localisation : France, Rhône (Rhône Alpes)Informations professionnelles :Activité : RetraitéInformations forums :Inscription : Juin 2019Messages : 1 635

    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 ►

    Répondre avec citation 0 0
11. 12/07/2020, 17h17 #11 jpma75 Membre éclairé Inscrit enJanvier 2013Messages749Détails du profilInformations personnelles :Sexe : Localisation : FranceInformations forums :Inscription : Janvier 2013Messages : 749

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

    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

    Répondre avec citation 0 0
12. 13/07/2020, 12h02 #12 Thumb down Membre Expert RetraitéInscrit enJuin 2019Messages1 635Détails du profilInformations personnelles :Sexe : Localisation : France, Rhône (Rhône Alpes)Informations professionnelles :Activité : RetraitéInformations forums :Inscription : Juin 2019Messages : 1 635

    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

    Répondre avec citation 0 0
13. 15/07/2020, 16h51 #13 jpma75 Membre éclairé Inscrit enJanvier 2013Messages749Détails du profilInformations personnelles :Sexe : Localisation : FranceInformations forums :Inscription : Janvier 2013Messages : 749

    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

    Images attachées Répondre avec citation 0 0

+ Répondre à la discussion Cette discussion est résolue.

Actualités

FAQs OFFICE

TUTORIELS OFFICE

LIVRES OFFICE

SOURCES VBA

OFFICE 2010

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• Insérer caractère spécial dans le code VBA

« Discussion précédente | Discussion suivante »

Discussions similaires

1. Problème pour insérer une formule dans un code VBA Par ti_mouton dans le forum Macros et VBA Excel Réponses: 10 Dernier message: 21/07/2015, 19h02
2. Insérer une image dans un code VBA plus précisement pour l'envoi d'un mail "prérempli" Par triistaan dans le forum Access Réponses: 1 Dernier message: 05/07/2014, 16h14
3. insérer caractère spéciale dans variable Par Korben-Dallas dans le forum Débuter Réponses: 2 Dernier message: 08/05/2011, 16h03
4. [WD-2003] Insérer un caractère spécial dans du code VBA Par Yoyo57 dans le forum VBA Word Réponses: 2 Dernier message: 25/08/2010, 17h28
5. [VBA-EXCEL] Caractère spécial " dans requete sql Par rafnt dans le forum Macros et VBA Excel Réponses: 4 Dernier message: 14/09/2006, 17h26

Partager

Partager

• 
• 
• 
• 
• 
• 
• 
• 

• Nous contacter
• Developpez.com
• Haut de page