Enlève espace droite

[Temjeh]

Bonsoir et merci

J'ai des espace superflues a la fin de cell!

Pour les enlevées j'ai ceci:

If Right(Range("A1"), 1) = " " Then Right(Range("A1"), 1) = ""

...pas bon erreur d'exécution 424 objet requis!

Ou est mon erreur

Merci

Temjeh

 

[Excel-lent]

Re : Enlève espace droite

Bonsoir Temjeh,

If Right(Range("A1"), 1) = " " Then Range("A1") = Left(Range("A1"), Len(Range("A1")) - 1)

Permet d'enlever l'espace en trop qui se trouve en "fin de cellule"

Bonne fin de soirée

 

[Temjeh]

Re : Enlève espace droite

Merci beaucoup

Je cherchais pas du coté de left pour cherche du coté right!

Cordialement

Temjeh

 

[Mytå]

Re : Enlève espace droite

Salut le forum

Sans condition de test : Range("A1")=RTrim(Range("A1"))

Mytå

 

[job75]

Re : Enlève espace droite

Bonsoir,

Pour enlever les espaces à droite :

Range("A1") = RTrim(Range("A1"))

à gauche :

Range("A1") = LTrim(Range("A1"))

les 2 :

Range("A1") = Trim(Range("A1"))

tous les espaces superflus :

Range("A1") = Application.Trim(Range("A1"))

Edit : salut Mytå pas rafraîchi

A+

 

[Hulk]

Re : Enlève espace droite

Hello Temjeh, Excel-lent,

Il y a aussi Trim qui supprime les espaces superflus, à gauche comme à droite !

Private Sub CommandButton1_Click()

    [A1] = Trim([A1])
    
End Sub

Cdt, Hulk.

Oups slt Job et Mytå, ben voilà Job, me demandais pourquoi le Trim tout seul n'ôtait pas les espaces superflus du milieu !

 

[Temjeh]

Re : Enlève espace droite

BANG' BANG' BANG'

Merci pour toute c'est solution

A++

Temjeh