Supprimer espace dans une cellule

Résolu/Fermé
senecartour Messages postés 325 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 17 janv. 2015 à 21:43
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 17 janv. 2015 à 23:46
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 lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
17 janv. 2015 à 22:04
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 325 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 3
17 janv. 2015 à 23:41
gbinforme, merci beaucoup, votre propistion fonctionne
0