Discussion :

[repié]

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?

[jmfmarques]

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.

[DarkVader]

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

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.

[repié]

Autant pour moi j'avait mal cherché

J'ai trouver ce code qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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