methode suppression des espaces

Bonjour,

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

Code:

---

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

Hello,

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

Bonjour,

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

Code:

---

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

Code:

---

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

---

Pas testé ;)
Bonne soirée

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

Code:

---

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 :king:

Code:

---

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 ;)

Bonjour,

Merci de votre aide.


les fonctions SUPPRESPACE et RTRIM marchent nikel
merci beaucoup.