la suppresion de "blans"

[Lukasz]

Bonjour à tous,

J'ai un problème, je copie des tableaux d'un site Internet et je les colle dans un fichier Excel. Jusqu'au ici il n'y a pas de problème, mais maintenant des chiffres copiées sont traitées par Excel comme le text : Exemple des chiffre:

- " 1 "
- " 1 120 "
- " 10 234 "
- " 200 000 "

Elles sont traitées comme le text et en plus il y a des "blans" avant et apres les chiffre et dans le cas des chiffres plus grandes il y a aussi un blans dedans.

Je fait ça avec la fonction STXT(cellule;nb;nb) mais avec le grand nb des tableaux que j'ai ça prend de temps.

Comment je peux resoudre mon problème? comment je peux supprimer automatiquement des blans ? est-ce que quelqun pourra m'aider ?

Merci d'avance,
Lukasz

 

[Eric_C]

Bonsoir le forum
Bonsoir Lukasz

Une tite macro revue de notre ami Horatio (que je salue au passage) :

Sub SansEspace() 'Lord Nelson
Dim CL As Range
For Each CL In ActiveSheet.UsedRange 'Selection
Do While InStr(CL.Text, " ") > 0
CL.Value = Replace(CL.Text, " ", "")
Loop
Next
End Sub

@ + Eric C

 

[galopin01]

Bonsoir,
Et aussi...

Sub Test()
For Each o In Selection
o.Value = Replace(o.Value, " ", "")
Next
End Sub

A+

 

[myDearFriend]

Bonsoir tout le monde,


On peut aussi éviter la boucle en faisant tout simplement :

   ActiveSheet.UsedRange.Replace " ", ""


Cordialement.

Didier_mDF

 

[Eric_C]

Bonjour le forum
Bonjour Lukasz, bonjour Galopin01 & bonjour Didier

Merci Didier pour cette façon de procéder. C'est noté & enregistré for the next time.
@ + Eric C

 

[Lukasz]

Merci bcp pour l'aide /

ça va me facilité la vie