Enlève espaces à la fin

Roland_M

XLDnaute Barbatruc

• 16 Février 2010

• #2

Re : Enlève espaces à la fin

bonjour

V$ = Range("A" & I) ' load le mot
V$ = Replace(V$, " ", " ") ' remplace les doubles espaces en un seul
V$ = Trim(V$) ' supprime les espaces au début et à la fin du mot
Range("A" & I) = V$ ' recolle le mot

 

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 16 Février 2010

• #3

Re : Enlève espaces à la fin

Salut le forum

Essaye avec Trim

monText = Trim(monText) '- supression des espaces à gauche et à droite
monText = LTrim(monText) '- supression des espaces à gauche
monText = RTrim(monText) '- supression des espaces à droite

Mytå

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 16 Février 2010

• #4

Re : Enlève espaces à la fin

Merci a tous

Je garde:
Sheets("F1").Range("A" & I) = RTrim(Sheets("F1").Range("A" & I))

A++

Temjeh

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Février 2010

• #5

Re : Enlève espaces à la fin

Bonjour le fil,

Pour supprimer tous les espaces inutiles :

V = Application.Trim(V)

C'est simplement la fonction SUPPRESPACE.

A+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 16 Février 2010

• #6

Re : Enlève espaces à la fin

Bonjour à tous

Attention aussi aux espaces de types Alt(0160).

 

Vote positif 0 Vote négatif