Supprimer espace dans une cellule

Résolu
Bonsoir,

Je souhaiterai supprimer les espaces dans mes cellules qui contiennent parois plusieurs caractères (espaces) successif.

J'ai essayé avec la fonction (SUPPRESPACE et aussci par la macro avec TRIM) mais ces fonctions ne supprimer une espace (un caractère).
Pour se faire, il faut répéter l'opération à plusieurs reprises et ceci n'est pas toujours pratique car le nombre de caractères (espaces) varie selon le cellules.
Ma question est de savoir s'il existe une fonction pour suppimer d'un seul coup toute les espaces dans mes cellules.

Je vous joins en PJ un fihicer avec les données d'origine et les résultats attendus.

https://www.cjoint.com/c/EArvZhbwCGq
Merci d'avance

--
Partager son savoir est la meilleure façon d'apprendre!

4 réponses

  1. Contributeur
    Bonjour,

    Si ton exemple est exhaustif, avec cette macro cela fonctionne :
    Public Sub supr_esp()
    Dim elm As Range
    For Each elm In ActiveSheet.UsedRange.Cells
    elm.Value = RTrim(LTrim(elm.Value))
    Next elm
    End Sub
    0
    1. gbinforme, merci beaucoup, votre propistion fonctionne
      0