Supprimer espace dans une cellule

Résolu
senecartour Messages postés 324 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

4 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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
senecartour Messages postés 324 Date d'inscription   Statut Membre Dernière intervention   3
 
gbinforme, merci beaucoup, votre propistion fonctionne
0