Supprimer le ou les espaces en fin de ligne

[malabarbe]

Bonjour,

J'ai plusieurs lignes texte, mais il y a
toujours 1 ou 2 espaces a la fin.

Je cherche un moyen simple pour les supprimer.

Merci d'avance

 

[Pierrot93]

Re : Supprimer le ou les espaces en fin de ligne

Bonjour Malabarbe

essaye peut être en créant une colonne à coté, tu insères la foncion ci dessous :

(fonction en D1 pour suppression espace en C1

=SUPPRESPACE(C1)

tu fais glisser la formule en bas de ta colonne, tu sélectionnes ta colonne => copier => edition => collage spécial => tu coches valeurs.

bonne soirée
@+

 

[malabarbe]

Re : Supprimer le ou les espaces en fin de ligne

Bonsoir,

Cela fonctionne, mais le texte que je récupère
ne ce laisse pas copier.

Cela ne pourais pas etre fait par une macro ?

 

[Pierrot93]

Re : Supprimer le ou les espaces en fin de ligne

Re,

comment cela le texte ne se laisse pas copier, tu sélectionnes ta colonnes => click droit copier ....sans doute faisable par macro, mais faut préciser données, mieux avec un fichier en pièce jointe sans données confidentielles.

@+

 

[malabarbe]

Re : Supprimer le ou les espaces en fin de ligne

Bonsoir,

Non quand je colle ma copie de la colonne,
je récupère les formules.

Par contre, je n'ai pas de sources pour la macro !

@ +

 

[Pierrot93]

Re : Supprimer le ou les espaces en fin de ligne

Re

il ne faut pas faire un coller simple mais un collage spécial :

edition => collage spécial => tu coches valeurs.

@+

 

[malabarbe]

Re : Supprimer le ou les espaces en fin de ligne

Re,

Merci, comme cela c'est OK

Bonne soirée

@ +

 

[THE CAT 2007]

Re : Supprimer le ou les espaces en fin de ligne

Bj à tous,

Pour la macro utiliser ltrim à gauche ou rtrim à droite.

;-)

 

[malabarbe]

Re : Supprimer le ou les espaces en fin de ligne

Bonsoir,

Aurais tu un exemple de macro
car je ne maitrise pas ce language

@ +

 

[THE CAT 2007]

Re : Supprimer le ou les espaces en fin de ligne

Bj

Sub SupprimeLesEspacesADroite()
ActiveSheet.Select
ActiveCell.Value = RTrim(ActiveCell.Value)
End Sub

en français de chez moi ...
feuille en cours sélectionnée
valeur du contenu de la cellule en cours= valeur du contenu de la cellule en cours moins les espaces à droite.

1 ) ouvrir OUTIL/MACRO/VISUAL BASIC EDITOR

2) INSERER UN MODULE

3 ) COLLER tous ce qui est en gras, dans le module

4 ) revenir sur la feuille, positionner la souris sur la cellule à traiter

5 ) ALT F8, cliquer SupprimeLesEspacesADroite et EXECUTER

;-)

 

[Pierrot93]

Re : Supprimer le ou les espaces en fin de ligne

Bonsoir Malabarbe, Le cat

Si je peux me permettre Le Cat, a priori ta première ligne de code :

ActiveSheet.Select

ne sert à rien, puis que tu dis de sélectionner la feuille active, mais par définition elle l'est déjà...

bonne soirée
@+

 

[gbinforme]

Re : Supprimer le ou les espaces en fin de ligne

bonsoir à tous,

J'ai plusieurs lignes texte, mais il y a toujours 1 ou 2 espaces a la fin.
Je cherche un moyen simple pour les supprimer.

La macro qui va les supprimer dans toutes les cellules :

Sub SupprimeLesEspacesADroite()
For Each sel In ActiveSheet.UsedRange
    sel.Value = RTrim(sel.Value)
Next
End Sub

 

[FREDPLONGEUR]

Re : Supprimer le ou les espaces en fin de ligne

Bonjour à tous,
peut on appliquer cette dernière formule interressante juste à une colone

 

[Staple1600]

Re : Supprimer le ou les espaces en fin de ligne

Bonjour



Oui


Quelle colonne?

exemple ici colonne C

Sub SupprimeLesEspacesADroite()
For Each sel In Range("C1:C" & [C65536].End(xlUp).Row)
sel.Value = RTrim(sel.Value)
Next
End Sub

 

[FREDPLONGEUR]

Re : Supprimer le ou les espaces en fin de ligne

La Premiere Colonne
"a"