Problème fonction TRIM (avec/sans macro)

Bonjour à tous,

Je souhaiterais utiliser la fonction TRIM dans une macro.

Sauf qu'elle ne me renvoie pas le résultat attendu. La fonction n'est pas prise en compte dans ma macro. (voir pièce jointe)

Note : La cellule A1 contient la valeur brute.

Pourriez-vous m'éclairer à ce sujet, s'il vous plaît?

Merci par avance pour votre aide.

Bon après-midi.

Bonjour,

A tester ...

Sub MiseEnForme()
Dim Ws As Worksheet
Dim Var As Variant

Set Ws = Worksheets("Sheet1")
Var = Application.WorksheetFunction.Trim(Ws.Cells(1, 1).Value)
Ws.Range("A5:A5").Value = Var
End Sub

En espèrant que cela t'aide

Bonjour

avec application.trim ses mieux

Sub MiseEnForme()
    With Worksheets("Sheet1")
        .Range("A5:A5").Value = Application.Trim(.Cells(1, 1).Value) 'Var
    End With
End Sub

A+

Maurice

Bonjour @James007, @archer,

Les deux solutions fonctionnent à merveille!

Merci beaucoup pour votre aide.

Merci pour tes remerciements ...