Espace à la fin d'une cellule

Salut à tous,

j'ai un petit soucis avec des espaces sous excel et je ne m'en sort pas.

J'ai deux liste avec des doublons, mais ces derniers ont parfois des espaces à la fin.

Comment puis je effacer les espaces de fin sans effacer les autres ?

J'ai trouver un code sur un autre post mais je ne comprends pas comment m'en servir.

For Each cel In Range("A1:A" & [A65000].End(xlUp).Row)

cel.Value = RTrim(cel.Value)

Next cel

Merci par avance

Olivier

Bonjour

Si ce code est bien celui recherché, adapte la matrice à la tienne

- Fait un bouton (affichage/barre d'outils/formulaire)

- puis fait clic droit sur l'onglet de ta feuille en bas / visualiser le code

- là colle le code dans une macro que tu créras (insertion/procédure/nom de ton choix, laisse les coche comme elles sont)

- entre les "sub", met le code

- revient sur ton fichier, et clic droit sur ton bouton/affecter une macro/choisi la macro que tu viens de faire

- essyer si ca marche

A+

Bonjour à tous,

De quelles colonnes il s'agit ?

à partir de quelle ligne ?

exemple pour colonne "A" ligne 2 à la fin. (code complet)

Sub Espaces()
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row) 
cel.Value = RTrim(cel.Value) 
Next cel 
End Sub

Amicalement

Claude.

Je pense avoir compris mais je n'arrive pas à affecter la macro à ma feuille.

re,

Excuse, j'ai oublier une ligne de déclaration (Dim cel)

Sub Espaces() 
Dim cel
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row) 
cel.Value = RTrim(cel.Value) 
Next cel 
End Sub

Tu fais Alt+touche F11 , ce qui t'amène dans l'éditeur VBA,

- Insertion/Module

et du copie/colle la macro dans ce module.

tu fais un bouton et tu lui affecte la macro.

- Le mieux serait d'envoyer ton fichier

Claude.

ok merci beaucoup,

vraiment sympa ce forum!!!

re,

Comme tu est nouveau sur le forum,

je te rappelle la petite formalité quand la réponse te satisfait,

en bas de page et en étant connecté

Claude.