Enlève espace droite

Excel-lent

XLDnaute Barbatruc

• 8 Novembre 2009

• #2

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 8 Novembre 2009

• #3

Re : Enlève espace droite

Merci beaucoup

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

Cordialement

Temjeh

 

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 8 Novembre 2009

• #4

Re : Enlève espace droite

Salut le forum

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

Mytå

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2009

• #5

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+

 

Dernière édition: 8 Novembre 2009

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 8 Novembre 2009

• #6

Re : Enlève espace droite

Hello Temjeh, Excel-lent,

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

Code:

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 !

 

Dernière édition: 8 Novembre 2009

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 9 Novembre 2009

• #7

Re : Enlève espace droite

BANG' BANG' BANG'

Merci pour toute c'est solution

A++

Temjeh

 

Vote positif 0 Vote négatif