remplacer les points par rien " " en vba Fermé

Question

Bonjour,
j'essaye de remplacer les points par rien en vba.
la macro que j'utilise est la suivante :

Cells.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False

cette macro me supprime bien les points, mais elle me supprime aussi les virgules ce que je ne veux pas.
 les nombres sont ecrits de cette façon 1.250,56 et je veux qu'ils soient ecrits 1250,56 sinon je ne peux pas effectuer de calculs.

quelqu'un a -t-il une idée?

merci

Mike-31 · Answer

Salut,

1/ Lorsque tu saisis un chiffre plus long, exemple 1000000000,00 il est écrit comment, avec des points tous les trois chiffres exemple 1.000.000.000,00
2/ ton chiffre avec le point, peut tu d'additionner avec un autre
3/ lorsque tu saisis un chiffre, prent il le même format avec le point

A+

laura · Answer

En fait mes nombres sont issus d'un téléchargement par internet sous forme VBA,
ils apparaissent donc sous cette forme : 1.000.000,562 donc des points tous les 3 chiffres.
mon nombre avec ces points , je ne peux lui affecter aucune addition,multiplication etc.. et c'est bien là le probléme.
Donc je veux me débarrasser des points. Sur excel ça marche trés bien, j'ai enregistré la macro de cette action, mais quand je l'utilise toute seule  ça n'a pas le même effet que sur excel, et ça m'efface aussi les virgules.

si quelqu'un a une  idee de code.
merci

Mike-31 · Answer

Salut,

Pour commencer copis dans un module ce bout de code que tu affectes à un bouton

Sub Convertir()
Cells.Replace What:=".", Replacement:=" "
End Sub

ensuite mets en surbrillance les chiffres à traiter clic sur le bouton pour activer le code VBA


1ére possibilité: si tu remarques les cellules traitées, dans le coin haut à gauche tu devrais avoir un petit triangle vert, tu cliques dessus un petit pictogramme carré te donne accès a un menu flottant sélectionnes convertir en nombre.

2éme possiblité : Un autre manip pour le même résultat, après avoir activé ta macro et supprimer tes points, saisis 1 dans une cellule vide et clic sur ce 1 edition copier, sélectionnes tes chiffres que tu viens de modifier et edition/collage spécial/ coche multiplication et OK

Testes les deux solution, si la transformation te convient, nous écrierons un petit bout de code pour automatiser cette manip, mais il faudra savoir la plage de cellule à traiter et la plage ou l'on aura saisi le 1

A+

eriiic · Answer

Bonjour,

Sans macro tu peux aussi plus simplement, avant d'importer, aller dans les options excel onglet 'international' pour décocher 'utiliser les séparateurs système' et y mettre les tiens (, et .).
Une fois l'importation faite tu as juste à aller recocher 'utiliser les séparateurs système'.

eric

Remplacer les points par rien " " en vba

4 réponses

Discussions similaires