Discussion :

[buigui]

Bonjour

Sur toute une colonne définie par

Code :

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

Range("A4:A"&L)

(avec

Code :

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

L = Cells(Rows.Count, 1).End(xlUp).Row

), je souhaite effacer les espaces en fin de cellule (en conservant ceux en milieu de cellule).
J'ai essayer de manipuler RTRIM, mais je n'ai pas compris son fonctionnement.

Quelqu'un peut-il m'aider svp?

Merci par avance.

[Algoplus]

Bonjour,

Une solution avec quelque chose comme ça:

Code :

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

1
2
3
4
dim C as range
for each C in Range("A4:A"&L) 
     C=rtrim(C)
next

[Menhir]

RTrim ne peut traiter qu'une valeur à la fois.
Tu ne peux donc pas l'utiliser sur une zone de plusieurs cellules.

Il faudra faire une boucle.

Code :

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

1
2
3
4
Dim CC As Range
For Each CC In Range("A4", Cells(Rows.Count, 1).End(xlUp)).Cells
    CC.Value = RTrim(CC.Value)
Next CC

EDIT : Grillé de quelques minutes par Algoplus.

[RyuAutodidacte]

Bonjour buigui,

question : tes données contiennent - elles des espaces avant et/ou plusieurs espaces entre les mots à conserver ou pas ??

[Patrice740]

Bonjour le Fil, Ryu Jacques, Menhir,

Dérivé du code de Menhir, pour le "ou pas", dès le début de ce fil, nos pensées convergerait-elles vers :

Code :

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

1
2
3
4
Dim CC As Range
For Each CC In Range("A4", Cells(Rows.Count, 1).End(xlUp)).Cells
    CC.Value = Trim(CC.Value)
Next CC

[unparia]

Bonjour Patrice,

Pas vraiment convergentes (les pensées). Celle de Ryu (mais uniquement si "ou pas") utiliserait selon ce que je devine worksheetfunction. une fonction Excel
Mais il faut attendre pour cela la réponse du demandeur.

EDIT : correction d'un terme
+ et je viens d'essayer (si "ou pas") -->> 4 lignes de code extrêmement courtes et toute la plage est traitée sans boucle et à la vitesse grand V (mais uniquement valable si "ou pas").
La réponse du demandeur à ce propos (du "ou pas") est donc très importante.

[RyuAutodidacte]

Coucou Jacques ,

c'est ce à quoi je pensais exactement (et en effet sans boucle , via une petit Evaluate),
mais comme si bien dit sans réponse du demandeur …

Edit : j'avais utilisé un code sur un des posts à jpvba qui lui utilisé une plage discontinue (plage avec Union), il fallait alors traiter le cas par via une boucle par Areas
mais dans le cas d'une plage contiguë pas besoin de boucle

[unparia]

Salut Ryu
Même pas besoin d'Evaluate. ...
Ouvre ta messagerie dans 5 minutes (le temps de rédiger).

[anasecu]

Bonjour ,

je souhaite effacer les espaces en fin de cellule (en conservant ceux en milieu de cellule).

question : tes données contiennent - elles des espaces avant et/ou plusieurs espaces entre les mots à conserver ou pas ??

Tu devrais avoir la réponse à ta question ;-)
Cordialement

[RyuAutodidacte]

Hi anasecu,

Bonjour ,

Tu devrais avoir la réponse à ta question ;-)
Cordialement

Si je pose la question c’est que j’ai sûrement des raisons …
Sinon oui le s 2 codes ci-dessus font le travail …

[unparia]

Bonjour

Ryu, que je salue et dont je devine bien à quoi il pense, a écrit :

Si je pose la question c’est que j’ai sûrement des raisons

Et les dites raisons ressortent de ce qu'il a écrit plus haut :

ou plusieurs espaces entre les mots à conserver ou pas

Pour ceux que ce message intriguerait :
Car, selon la réponse reçue, il y a une manière de traiter la plage entière sans aucune boucle.

[Patrice740]

"Ou pas " sur une ligne :

Code :

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

1
2
3
Sub test()
  Range("A4", Cells(Rows.Count, 1).End(xlUp)).Value = Application.Transpose(Split(Application.Trim(Join(Application.Transpose(Range("A4", Cells(Rows.Count, 1).End(xlUp)).Value), Chr(1))), Chr(1)))
End Sub

[RyuAutodidacte]

Patrice,

En fait il y bcp plus simple … , (relis bien ce que Jacques a écrit), mais la réponse dépendra de buigui qui confirmera ou non du contexte exact de ses données

[buigui]

Bonjour

Merci pour vos réponses.
J'ai oublié de préciser que je ne souhaitais de boucle en aucun cas, la tableau est lourd (plus de 10.000 lignes avec formules dans tous les sens) et j'ai déjà ré-écrit toutes mes macros pour remplacer les boucles là où il y en avait.

J'ai donc testé le code de Patrice740 ci-dessous:

Code :

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

1
2
3
Sub test()
  Range("A4", Cells(Rows.Count, 1).End(xlUp)).Value = Application.Transpose(Split(Application.Trim(Join(Application.Transpose(Range("A4", Cells(Rows.Count, 1).End(xlUp)).Value), Chr(1))), Chr(1)))
End Sub

Un message d'erreur apparaît: "erreur d'exécution "5": argument ou appel de procédure incorrect".
Je joins une version raccourcie de la colonne sur laquelle je souhaite que s'applique la macro.

[RyuAutodidacte]

Bonjour buigui, anasecu,

@buigui tu ne m’as pas répondu à ma question exactement en post #4, hormis que l’on apprend des détails supplémentaires … et qui ont leur importance …

J'ai oublié de préciser que je ne souhaitais de boucle en aucun cas, la tableau est lourd (plus de 10.000 lignes avec formules dans tous les sens)

@anasecu : de manière générale dans les discussions, on s’aperçoit au fil des posts que tout n’avait pas été dit et que certaines précisions (aussi petites soient-elles), venaient à manquer …
Soit pcq les personnes faisant leurs posts pensent être assez claire,
soit par manque de connaissance ou mauvaise compréhension sur certaines fonctions ou autres …
C’est ainsi que l’on passe plus de temps à coder puis recoder quand le sujet n’a pas été donné clairement c’est-à-dire avec les tenants les aboutissants et le but, bien sûre dans le détail

Edit : enrichissement de texte Bold

[patricktoulon]

Bonjour
si il n'y a pas d'ambiguité sur le fait qu'il ne doit pas y avoir plusieurs espaces entre les mot
Application.trim en ayant mis bout a bout toute les cells

[buigui]

Bonjour buigui, anasecu,

@buigui tu ne m’as pas répondu à ma question exactement en post #4, hormis que l’on apprend des détails supplémentaires … et qui ont leur importance …

Il peut y avoir:
- des cases ne contenant que des espaces
- entre les mots il n'y aura pas plus d'un espace
- en fin de cellule il peut y avoir plusieurs espaces consécutifs.

Je peux remplacer tous les espaces doubles par des espaces simples (avec la fonction replace) si cela peut aider.

[anasecu]

Bonjour à tous,

Je ne vois vraiment pas la réponse que vous attendez de buigui car sa demande est on ne peut plus claire

je souhaite effacer les espaces en fin de cellule (en conservant ceux en milieu de cellule).