Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic remplacer des espaces dans une variable de texte

remplacer des espaces dans une variable de texte

1 réponse
Avatar
Fri_ed
Bonjour...
j'aimerais remplacer des espaces dans une variable de=20
texte par des espaces ins=E9quable ...
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
tit1 =3D InputBox(Prompt:=3D"Entrez votre titre de=20
chapitre")
If tit1 =3D Empty Then Exit Sub
=20
Selection.Style =3D "_vtx.txt"
Selection.InsertBreak Type:=3DwdPageBreak
Selection.TypeParagraph
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
si l'on entre "titre de chapitre" qui va devenir
Titre
de
chapitre

j'aimeris que =E7a devienne=20
Titre de Chapitre

=E0 la limite je pensais =E0 Titre_de_chapitre avec les _ en=20
blanc....mais =E7a ne change pas la donne (remplacer les=20
espaces par qqch d'autre)


Merci d'avance

Marc Friederich
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre Alexis
Salut Marc,

Tu as écrit :

j'aimerais remplacer des espaces dans une variable de
texte par des espaces inséquable ...



Essaye ceci :

Dim MonTexte As String

MonTexte = "Ceci est un texte avec des espaces"

MonText = Replace(MonTexte, " ", Chr$(160))

MsgBox MonTexte

--
Pierre ALEXIS - MVP Visual Basic
Courriel & messenger :
FAQ Visual Basic : http://faq.vb.free.fr/