supprimer des blancs

[fifounet]

Bonjour
N'ayant rien trouvé après une recherche sur le forum , je pose donc ma question:
y'a t il un code vba pour remplacer la fonction excel "SUPPRESPACE(A1)"
dans toute une colonne, j'ai trouvé des trucs qui suppriment les caractères blancs devant et derrière ma chaine de caractères mais pas les blancs inutiles au milieu comme le fait SUPPRESPACE.
exemple:
" DUPONT Jacques " deviendrait "DUPONT Jacques"
D'avance merci.

 

[roro69]

Re : supprimer des blancs

Bonjour à essayer/

Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
Cell = Application.WorksheetFunction.Trim(Cell)
Next

A+++

 

[fifounet]

Re : supprimer des blancs

Merci bcp roro69, ça marche!!
a+
fifounet