Discussion :

[moimemessssssssss]

Bonjour,

je souhaiterais supprimer les espces à la fin de chaque cellule de la colonne A
j'ai écrit (code obtenu avec l'enregistreur)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Columns("A:A").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

par contre, il remplace tous les espaces meme ceux entre les mots de chaque cellule par exemple Jeudi vendredi devient Jeudivendredi.
comment faire pour ne remplacer que ceux se trouvant à la fin??
merci beaucoup

[cafeine]

Hello,

Tu peux utiliser la fonction SUPPRESPACE() qui enlève les espaces avant et après.

[moimemessssssssss]

Bonjour,

en effet, la fonction SUPPRESPACE() repond à mes besoins.
par contre quand je fais un essai en vba par le biais de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Cells(7, 10) = "=SUPPRESPACE(F10)"

et que je retourne à la feuille d'excel, y a ecrit #NOM? dans Cells(7, 10)
.je clique alors sur la barre d'adresse d'excel( la ou on rentre les formules) de Cells(7, 10) et la ca marche, il n'ya plus ecrit #NOM? .

Y aurait-il un moyen pour éviter de cliquer sur la barre d'adressse ? (car je dois appliquer la fonction supprespace à beaucoup de cellules)

merci

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(7, 10).formulaLocal = "=SUPPRESPACE(F10)"

Pas testé
Bonne soirée

[Abed_H]

Bonsoir
tu peux utiliser la fonction RTrim, voici un exemple simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim cell As Range
    For Each cell In Range("A2:" & _
             Cells(Rows.Count, 1).End(xlUp).Address)
        cell.Value = RTrim(cell.Value)
  Next
End Sub

Bonne soirée

Abed_H

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Cells(7, 10).formulaLocal = "=SUPPRESPACE(F10)"
    Range("J7").Copy
    Range("J8:J30").Select
    ActiveSheet.Paste

Avec la copie de la formule

[moimemessssssssss]

Bonjour,

Merci de votre aide.


les fonctions SUPPRESPACE et RTRIM marchent nikel
merci beaucoup.