Extraction dans cellule

Bonjour amis du forum

Ma question aujourd'hui est comment extraire dans une cellule les caractères sans les blancs. Je m'explique; je reçois un fichier Excel dans lequel figurent des chiffres comme :33 667 218.04(je ne sais pas dans quel format)
Quoi que je fasse dans Format de cellule, je n'arrive pas à changer le format.
Comment, par macro obtenir :33667218.04 afin de pouvoir additionner les chiffres.


Merci de votre aide

Bonjour

Regardes du coté de la fonction Replace en remplaçant " " par "".

Philippe

Bonjour,

Disons que tu as ta valeur en A1 avec tes espaces et que tu veux récupérer en A2 ta valeur sans espaces. Pour commencer, mets les 2 cellules au même format (standard, nombre...)

Ensuite un coup de

Code:

---

1 2 3 4 5

Range("A2") = Range("A1")   Range("A2").Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

suffit.

EDIT : il y a eu un croisement dangereux ! C'est ça de ne pas s'arrêter aux feux :roll:

Merci à vous

Bonjour à tous

Je reviens sur ma précédente fiche. Les tuyaux donnés sont bons, mais, cela ne fonctionne pas lorsqu'en entrée, il y a un nombre à 5 chiffres : exemple 663.50
comment puis-je passer outre ce problème ?

Bonjour,

C'est quoi le message d'erreur?

Il n'y a pas de message d'erreur.

Seulement, il n'y a aucun changement dans le format du chiffre.
663.50 reste 663.50, alors que par exemple 74 921.50 devient 74921,5

ok, le problème est le symbole décimal

Modifie le code de DeaD78 pour qu'il remplae le . par ,

Code:

---

1 2 3

Range("A2").Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

Code a ajouter a la suite de l autre qui remplace les espaces

Merci à toi, cela fonctionne très bien.

Bonne journée