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

@+

 

[@Christophe@]

Bonjour Bruno, bonjour forum

Ou je comprends pas bien, ou tu veux deux fois la meme chose??

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

Ce que tu veux avoir est identique a ce que tu as!

"Option explicit" comme dirait Thierry

Merci

Christophe

 

[Vériland]

Bonjour Bruno et Bonjour le forum,

Hi hi hi...mais d'après ce que je comprends il s'agirait d'enlever les espaces ?...mais quels espaces !!??!!

car le résultat présenté sur ton post a le même aspect qu'au départ...

Produit 25 250 Gr x 10...lol

maintenant reste à savoir comment se présente l'affichage...s'il provient d'une seule cellule ou de plusieurs...question!!...lol

A+ Vériland...(qui à du retard...lol)

 

[Vériland]

Salut Christophe...pareille pour la question...c'est pas claire son espace...lol

 

[Bruno]

Revoici ma question,

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

(Les pointillers corresponds a mes espaces)

Je voudrais enlever tous les espaces inutile pour avoir un seule espace entre chaque mot:
Produit 25 250 Gr x 10

Est il possible de le faire en Vba ?

merci de votre aide à tous

 

[Vériland]

Re Bruno,

Bon j'ai bien compris le soucis de tes espaces...mais la source elle provient d'où...d'un autre fichier ? d'un feuille ? d'une cellule ?, d'un fichier texte ?

A+ Vériland

 

[Bruno]

Re Vériland

la source provient d'un autre fichier.

@+

 

[Vériland]

Ok merci Bruno...je regarde pour la solution...(mais j'suis pas tout seul...lol)

A+ Vériland

 

[Roux Christian]

Il faut une macro qui remplace deux espages (" "), par un espace; et il faut la lancer un certain nombre de fois:

Sub Macro1()
Cells.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

 

[pat5]

Salut le forum

Si tu es préssé

Edition Remplacer 2espace par 1espace Remplacer tout plusieurs fois et tu y arrive

Par contre je voudrais bien la macro moi aussi

Salut ;o)

 

[Bruno]

Merci a tous pour votre aide

J'ai une autre solution : =SUPPRESPACE(A1)

et cela supprime tous les espaces en trop

@+

 

[pat5]

si tu avais demandé une formule, on te l'aurait donnée.

Vériland lorsque tu aura fini d'engueuler fabrice, tu pense à la macro.
Merçi. Qu'est-ce-qu'on rigole !!!!

Salut Vériland A+ ;o)

 

[Vériland]

Hi hi hi...elle est trop forte ta réponse Bruno...figure toi que je l'avais déjà cette réponse...mais je partais sur une Macro d'après ta demande initiale...

Est il possible de le faire en Vba ?

or ceci n'est qu'une simple formule...mdr

bon ben bonne journée...lol

A+ Vériland

 

[Vériland]

Salut Pat5 et le forum,

Alors pour vous répondre...la même chose par macro...

en prenant pour exemple que dans la cellule C1 il y ait : Bruno________ne_______veut________pas_______d'espace

avec cette macro :

Sub espace()
Range("A1").Formula = "=TRIM(c1)"
End Sub

dans la cellule A1 s'affichera : Bruno ne veut pas d'espace...hi hi hi

A+ Vériland

 

[pat5]

Merçi Vériland

et si simple, comme quoi desfois

Salut ;o)