Suppression espace surnuméraires

[Matt51100]

Bonjour à tous,

Je cherche à supprimer des espaces dans le texte d'une cellule via macro. J'ai découvert la fonction SUPPRESPACE mais comment la coder quand le texte est une variable que je déclare juste avant.
Voici mon exemple :

dim truc as string
ActiveCell = a & " " & b & " " & c & " " & d & " " & e & " : Réceptions des échantillons"
truc = ActiveCell
ActiveCell.FormulaR1C1 = "=TRIM & truc" (c'est ici que je coince, mon exemple ne fonctionnant pas)

Merci d'avance.

A+, Matt.

 

[pierrejean]

Re : Suppression espace surnuméraires

Bonjour Matt51100

A tester:

ActiveCell = a & " " & b & " " & c & " " & d & " " & e & " : Réceptions des échantillons"
truc = ActiveCell
ActiveCell = Replace(ActiveCell, " ", "") '(c'est ici que je coince, mon exemple ne fonctionnant pas)

 

[mth]

Re : Suppression espace surnuméraires

Bonjour le fil 🙂

Un autre essai, qui n'apporte pas grand chose:

ActiveCell = WorksheetFunction.Trim(truc)

En fait, c'est juste un prétexte pour le plaisir de faire une grosse bise à pierrejean 🙂
(et un petit coucou à Dany bien sûr)

Bonne journée à tous,

m

 

[Matt51100]

Re : Suppression espace surnuméraires

Salut,

Merci à tous les deux pour la soluce. J'ai pris la solution de mth car j'avais besoin d'utiliser trim.

A+, Matt.

 

[Staple1600]

Re : Suppression espace surnuméraires

Bonjour à tous


Avec ta macro initiale ainsi modifiée, cela fonctionne

Sub aa()
Dim truc$, a$, b$
a = "a" [COLOR=Green]'valeur de test[/COLOR]
b = "b" [COLOR=Green]'valeur de test[/COLOR]
truc = Chr(34) & a & "   " & b & "   " & " : Réceptions des échantillons" & Chr(34)
ActiveCell.Offset(-1, 0) = truc[COLOR=Green] 'pour le test[/COLOR]
ActiveCell.FormulaR1C1 = "=TRIM(" & truc & ")"
End Sub