Supprimer caractère saut de ligne [Résolu]

Signaler
Messages postés
377
Date d'inscription
lundi 3 avril 2006
Statut
Membre
Dernière intervention
22 août 2018
-
Messages postés
377
Date d'inscription
lundi 3 avril 2006
Statut
Membre
Dernière intervention
22 août 2018
-
Bonjour,

C'est un peu honteux que je poste une question aussi "simple", mais pour laquelle je n'ai toujours pas trouvé de réponse satisfaisante.

J'importe un texte dans une cellule qui peut contenir un saut de ligne (le vilain petit carré!), mais je ne sais pas où précisément.

Je veux le(s) supprimer et le(s) remplacer par un espace ou un caratère quelconque, mais tout ce que j'ai pu trouver ne marche pas... exemple :
Sub NoSaut()
Dim Text1, Text2
Text1 = Range("A1").Value
Text2 = Replace(Text1, Chr(13), "$")
Range("A1").Value = Text2
End Sub


Merci pour toute aide
Rataxes64

3 réponses

Messages postés
14675
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 juillet 2020
143
Bonjour,

Et si à l place de
Chr(13)
Tu mets
Chr(10)
?

Sinon, une solution plus radicale :
Dim i as long

For i=0 to 31
    Cellule.Value=Replace(Cellule.Value,chr$(i),"$")
Next i


Ca remplace tous les caractères non imprimable (ASCII <32)

Mon site
Messages postés
377
Date d'inscription
lundi 3 avril 2006
Statut
Membre
Dernière intervention
22 août 2018

MERCI NHenry!
Ta solution "radicale" est nikel!


Rataxes64
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
36
Le caractère "Saut de ligne", c'est soit Chr(13), soit Chr(10) mais aussi souvent Chr(13) suivie de Chr(10)

Le mieux étant de systématiquement remplacer les 2, Chr(13) et Chr(10), l'un après l'autre.


[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i