Remplacer un retour à la ligne par un espace

Bon­jour,

Cette ques­tion vient juste de m’être posée.

Si vous importez des don­nées d’une base de don­nées externe, il arrive par­fois que des retours à la ligne non désirés appa­rais­sent, ici sym­bol­isés par un car­ré blanc :

Excel cheque

En fait, ce car­ac­tère de retour à la ligne cor­re­spond au code 010.

Pour le rem­plac­er, il existe — au moins — deux méthodes :

Donc, manuelle­ment on peut sélec­tion­ner le menu Edi­tion puis Rem­plac­er (ou CTRL + H) et taper 010 en main­tenant la touche ALT enfon­cée dans la zone Rechercher. Met­tre un espace dans la zone Rem­plac­er par.

On peut aus­si utilis­er une for­mule comprenant :
— La fonc­tion SUBSTITUE, qui per­met de rem­plac­er un car­ac­tère par un autre dans une chaîne donnée.
— La fonc­tion CAR qui per­met de choisir le car­ac­tère de retour à la ligne, ici le no 10.
Soit donc :
=SUBSTITUE(A1;CAR(10);” ”)

A bien­tot

Gae­tan Mourmant

Pour marque-pages : Permaliens.

6 réponses à Remplacer un retour à la ligne par un espace

  1. Philippe dit :

    si ma mémoire est bonne, il esiste aus­si le car160 assez sou­vent présent dans les imports sous for­mat .csv
    Aus­si, iol est inter­es­sant de pouss­er vers quelque­chose du genre :

    =SUBSTITUE(SUBSTITUE(A1;CAR(160);car(10));CAR(10);” “)

    Bonne journée

  2. Mer­ci, je n’avais pas ren­con­tré ce prob­lème à date.

    Gae­tan

  3. Babosa dit :

    Mer­ci pour ce con­seil pré­cieux, il me donne d’ores et déjà des idées pour mon quotidien…

    Peut-on con­naître la table des car­ac­tères ? J’en­tends par là si vous n’aviez pas pré­cis­er qu’il s’agis­sait du car(10) com­ment je le trouvais ?

  4. Bon­jour,

    Voir mon poste plus haut, du 5 avril.

    Pour les autres car­ac­tères, il faut que je fasse des recherches.

  5. Daniel DEVEAUX dit :

    Hel­lo Gaëtan,
    Je vais ten­ter de t’en­voy­er une petite boucle qui per­met d’analyser tous les car­ac­tères d’une cel­lule (A1 en l’oc­cur­rence). Voici déjà le code, cela t’évit­era de l’écrire. Tu n’ou­blies pas le Prix NOBEL ? 🙂
    Sub AnalyseDesCaracteresDUneCellule()
    Dim Mon­Comp­teur As Integer
    Range(“A1”).Select
    For Mon­Comp­teur = 1 To Len(Selection)
    ActiveCell.Offset(MonCompteur, 1) = Mid(Selection, Mon­Comp­teur, 1)
    ActiveCell.Offset(MonCompteur, 2) = Asc(Mid(Selection, Mon­Comp­teur, 1))
    Next MonCompteur
    End Sub

  6. pierre dit :

    mer­ci à tous
    vous avez changé ma vie !

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.