Enlève espaces à la fin

[Temjeh]

Bonjour et merci d'avance.

Tout est dans le titre. J'aimerais dans ma boucle y ajouté une suppression d'espace inutiles
qui ce trouve à la fin de cell(les données viennent du net).


Range("A" & i).Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows

ce code est bon mes pas pour celle à la fin seulement.


Je peut aussi y mettre une boucle dans ma boucle avec:
If Right(Range("A" & I), 1) = " " then
...

mais 'est plus gros comme code
Merci

Temjeh

 

[Roland_M]

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

 

[Mytå]

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å

 

[Temjeh]

Re : Enlève espaces à la fin

Merci a tous

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

A++

Temjeh

 

[job75]

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+

 

[MJ13]

Re : Enlève espaces à la fin

Bonjour à tous

Attention aussi aux espaces de types Alt(0160).