Remplacer un retour à la ligne par un espace

Bonjour,

Cette question vient juste de m'être posée.

Si vous importez des données d'une base de données externe, il arrive parfois que des retours à la ligne non désirés apparaissent, ici symbolisés par un carré blanc :

Excel cheque

En fait, ce caractère de retour à la ligne correspond au code 010.

Pour le remplacer, il existe - au moins - deux méthodes :

Donc, manuellement on peut sélectionner le menu Edition puis Remplacer (ou CTRL + H) et taper 010 en maintenant la touche ALT enfoncée dans la zone Rechercher. Mettre un espace dans la zone Remplacer par.

On peut aussi utiliser une formule comprenant :
- La fonction SUBSTITUE, qui permet de remplacer un caractère par un autre dans une chaîne donnée.
- La fonction CAR qui permet de choisir le caractère de retour à la ligne, ici le no 10.
Soit donc :
=SUBSTITUE(A1;CAR(10);" ")

A bientot

Gaetan 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 aussi le car160 assez souvent présent dans les imports sous format .csv
    Aussi, iol est interessant de pousser vers quelquechose du genre :

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

    Bonne journée

  2. Merci, je n'avais pas rencontré ce problème à date.

    Gaetan

  3. Babosa dit :

    Merci pour ce conseil précieux, il me donne d'ores et déjà des idées pour mon quotidien...

    Peut-on connaître la table des caractères ? J'entends par là si vous n'aviez pas préciser qu'il s'agissait du car(10) comment je le trouvais ?

  4. Bonjour,

    Voir mon poste plus haut, du 5 avril.

    Pour les autres caractères, il faut que je fasse des recherches.

  5. Daniel DEVEAUX dit :

    Hello Gaëtan,
    Je vais tenter de t'envoyer une petite boucle qui permet d'analyser tous les caractères d'une cellule (A1 en l'occurrence). Voici déjà le code, cela t'évitera de l'écrire. Tu n'oublies pas le Prix NOBEL ? 🙂
    Sub AnalyseDesCaracteresDUneCellule()
    Dim MonCompteur As Integer
    Range("A1").Select
    For MonCompteur = 1 To Len(Selection)
    ActiveCell.Offset(MonCompteur, 1) = Mid(Selection, MonCompteur, 1)
    ActiveCell.Offset(MonCompteur, 2) = Asc(Mid(Selection, MonCompteur, 1))
    Next MonCompteur
    End Sub

  6. pierre dit :

    merci à 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 *


La période de vérification reCAPTCHA a expiré. Veuillez recharger la page.

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