Supprimer les espaces

[Bruno]

Bonjour a tous,

Dans une base de donnée j'ai une liste de produit du style :
Produit 25 250 Gr x 10

Je voudrais enlever tous les espaces inutile pour avoir :
Produit 25 250 Gr x 10

Est il possible de le faire en Vba ?

merci de votre aide à tous

@+

 

[Vériland]

y'a pas d'quoi Pat5..mais pour moi ce n'est pas réellement une macro...c'est seulement une solution qui permet de ranger la Formule "SUPPRESPACE()" dans la cellule A1 qui vient de la cellule C1

ceci étant concernant la question la source provient d'un autre fichier...il faudra une autre réponse...lol

A+ Vériland

 

[pat5]

Encore merçi Vériland et en même temps je viens de m'apercevoir que j'avais déjà ça sur mon micro ( j'en ai trop, il faudrait que je classe )

Sub EffacerLesEspaces()

'Pour chaque cellule dans la sélection
For Each C In Selection.Cells
'Renvoie une valeur de type Variant (String) contenant une copie d'une chaîne
'en supprimant les espaces de gauche (LTrim), les espaces de droite (RTrim)
'ou les deux (Trim).

'Syntaxe

'LTrim (chaîne)
'RTrim (chaîne)
'Trim (chaîne)

'On prend la valeur de la cellule et on supprime tous les espaces.
C.value = Application.Trim(C.value)

'Cellule suivante
Next C

End Sub

A+ ;o)

 

[Bruno]

remerci a tous

Si j'ai utiliser la formule pour me dépanner.
Mais je préfère un code en vba pour le faire automatiquement, j'ai essayer la macro de Pat5 qui marche très bien.

@+