Bonjour
Le titre de mon sujet est bizarre mais je ne comprends pas ce qui se passe.
J'ai un classeur qui contient des données copiées/collées d'un site internet, avec des espaces inutiles.
Dans la colonne A, chaque cellule contient un nom et prénom ; parfois il n'y a pas d'espace avant le nom, parfois il y en a un, parfois il y en a deux, etc.
OBJECTIF : supprimer les espaces en début de cellule, sans supprimer les autres espaces (présents entre le nom et le prénom, ou entre les noms/prénoms composés).
J'avais pensé à (code adapté au fichier joint) :
PROBLEME : ce code ne fait rien. J'ai l'impression que les espaces présents ne sont pas reconnus comme des espaces (si je me sers de la fonction remplacer d'Excel, en remplaçant les espaces par rien, rien ne se passe).
D'où vient ce problème ? Comment le résoudre ?
J'ai mis un exemple en pièce jointe.
Merci par avance.
Le titre de mon sujet est bizarre mais je ne comprends pas ce qui se passe.
J'ai un classeur qui contient des données copiées/collées d'un site internet, avec des espaces inutiles.
Dans la colonne A, chaque cellule contient un nom et prénom ; parfois il n'y a pas d'espace avant le nom, parfois il y en a un, parfois il y en a deux, etc.
OBJECTIF : supprimer les espaces en début de cellule, sans supprimer les autres espaces (présents entre le nom et le prénom, ou entre les noms/prénoms composés).
J'avais pensé à (code adapté au fichier joint) :
Code:
While (Left(Cells(1, 1), 1) = " ")
Cells(1, 1) = Right(Cells(1, 1), Len(Cells(1, 1)) - 1)
Wend
PROBLEME : ce code ne fait rien. J'ai l'impression que les espaces présents ne sont pas reconnus comme des espaces (si je me sers de la fonction remplacer d'Excel, en remplaçant les espaces par rien, rien ne se passe).
D'où vient ce problème ? Comment le résoudre ?
J'ai mis un exemple en pièce jointe.
Merci par avance.