VBA Supprimer espaces à la fin de cellule

Bonjour à tous,

Dans une liste de noms, j'ai des doublons mais non reconnus comme tel, à cause que

certains ont des espaces parasites à la fin.

Exemple :

ANDRE PAUL , avec 5 espaces à la fin

ANDRE PAUL , sans espace à la fin.

Comment coder pour supprimer ces espaces (quantité variable)

et sans supprimer l'espace du nom composé ?

Bonne journée

Claude.

Bonjour

Tu peux tenter une macro simple pour nettoyer ton fichier ou d'inspirer du code suivant pour l'intégrer dans une macro

Sub Nett()

Dim Ind1 As Integer ' ligne

Dim Col1 As Byte ' colonne

Dim Len1 As Integer ' longueur de la chaine de caractères contenues dans la cellule

Col1 = 1 ' 'le numéro de la colonne à balayer : à renseigner

For Ind1 = 1 To xxx 'xxx limite maxi de ton tableau : à renseigner

While Right(Cells(Ind1, Col1), 1) = " " 'tant que le dernier caractère est un espace

Len1 = Len(Cells(Ind1, Col1)) - 1 'retirer 1 à la longueur de la chaine de caractères

Cells(Ind1, 1) = Left(Cells(ind, 1), Len1) 'tronquer la chaine d'un caractère

Wend

Next

End Sub

Cordialement

Bonjour,

essaie ce code :

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

re,

felix, voilà un code que je mets soigneusement dans mes archives,

J'ai mis "Trim" pour assurer le coup (au cas ou espace au début), c'est Nickel !

Merci à vous deux

Amicalement

Claude.