[VBA]effacer les espaces à ralonge dans des cellules

Bonjour

J'ai un ensemble de cellules contenant des nom suivi d'espaces à ralonge
Ces espaces modifient le contenu donc les comparaisons...
Comment pourrai je supprimer tout ces espaces d'un coup?

En utilisant Instr, Mid, Len, Right, Left, Trim... pardi.

Regardes çà dans l'aide en ligne : c'est fastoche...

Je n'ai pas VB6 qui a peut-être une autre fonction encore :?:

J'ai de surcroît vu passer un sujet quasi identique sur ce forum il y a peu de temps.
:)

Bonjour,
cette question a déjà été abordée de nombreuses fois -
je vous rappelle les régles d'utilisation des forums.

http://www.developpez.net/forums/tem...ini_search.gif Recherche avancée sur le forum
mot clé : supprimer+espace ou espace+cellule

Voir également les Faq & Tutoriels avant de poser une question sur les forums.

Autant pour moi j'avait mal cherché

J'ai trouver ce code qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8

Dim nom As String   For i = 1 To 1000 nom = Sheets("feuil1").Cells(i, 1) nom2 = Trim(nom) Sheets("feuil1").Cells(i, 1) = nom2   Next

---

Donc c'est ok
Merci