Supprimer les espaces

Bonjour ,

Voila je vous explique j'ai un petit problème avec ma Macro qui est sensé me reproduire ceci:

Lire les colonnes Acteur ME (colonne N) et Sujet ME (colonne O)

Supprimer les espaces inutiles ( l'espace devant le premier mots s'il y'en a 1 ou l'espace après la virgule )

Et séparer les mots contenue dans la même cellules et les copier séparément dans les colonnes de P à Z (1 mot par cellule)

Cependant l'espace situé apres la virgules ne parvient pas à être supprimer et lorsque que les mots contenue dans les colonnes N et O sont copier dans les autres colonnes je me retrouve avec des configurations suivante :

Un espace

Un mots

" Batterie " par exemple

Si quelqu'un aurait une solutions il m'aiderait vraiment

merci à vous.

92classeur1.xlsx (31.36 Ko)

Bonjour,

xlsx=pas de macro...

Regarde la fonction Trim() (ou Application.Trim() si tu veux également supprimer les espaces doubles à l'intérieur d'une chaine)

eric

Bonjour Eric

j'ai trouvé cette formule

Sub Macro1()

For Each Cell In ActiveSheet.UsedRange

Cell.Value = Application.WorksheetFunction.Trim(Cell.Value)

Next

End Sub

Mais j'aimerais lui indiqué de me supprimer seulement les espaces des cellules qui se trouvent après la colonne O.

J'ai n'ai pas trouvé la solution une idée,

Merci

Re le Forum

Arrête les doublons de ficelles

Solution : https://forum.excel-pratique.com/post507606.html#p507606

Mytå

Rechercher des sujets similaires à "supprimer espaces"