Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Problème de conversion de données

Problème de conversion de données

6 réponses
Avatar
khinoa
Bonjour,

J'ai un fichier Excel dont les montants sont au format nombre. Il y a donc
toujours des montants avec virgule, par exemple 100,00 ou 95,53 ou 8,10 etc.
Je voudrais convertir les sommes en centimes d'euros de façon à ne plus
faire figurer la virgule.

Ainsi 100,00 devient 10000, 95,53 devient 9553 et 8,10 devient 810.

J'ai essayé Replace ",", " " pour supprimer la virgule. Impossible

J'ai finalement fait Données, Convertir, délimiteur virgule et là celà a
bien fonctionné. Mais le code généré par l'enregistreur de macros ne peut
être réexécuté correctement. Le résultat étant tout à fait différent de la
première exécution.

Voici le code généré automatiquement :

Columns("D:D").TextToColumns Destination:=Range("G1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo
_
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub


Pourquoi le code ne peut-il refonctionner normalement? Y a-t-il un autre
moyen d'obtenir des montants convertis en centimes d'euros?

D'avance merci pour votre aide

khinoa
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacquouille
Bonsoir
Et si tu avais simplement multiplié tes cellules par 100 ?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"khinoa" a écrit dans le message de news:
437a24b6$0$21026$
Bonjour,

J'ai un fichier Excel dont les montants sont au format nombre. Il y a donc
toujours des montants avec virgule, par exemple 100,00 ou 95,53 ou 8,10
etc.
Je voudrais convertir les sommes en centimes d'euros de façon à ne plus
faire figurer la virgule.

Ainsi 100,00 devient 10000, 95,53 devient 9553 et 8,10 devient 810.

J'ai essayé Replace ",", " " pour supprimer la virgule. Impossible

J'ai finalement fait Données, Convertir, délimiteur virgule et là celà a
bien fonctionné. Mais le code généré par l'enregistreur de macros ne peut
être réexécuté correctement. Le résultat étant tout à fait différent de la
première exécution.

Voici le code généré automatiquement :

Columns("D:D").TextToColumns Destination:=Range("G1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:=True, Space:úlse, Other:úlse,
FieldInfo
_
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub


Pourquoi le code ne peut-il refonctionner normalement? Y a-t-il un autre
moyen d'obtenir des montants convertis en centimes d'euros?

D'avance merci pour votre aide

khinoa




Avatar
khinoa
Bonsoir Jacquouille,

Et si tu avais simplement multiplié tes cellules par 100 ?


Okkkkayyyy...!

Tu as parfaitement raison. Je n'y ai même pas pensé et je me suis compliqué
la vie. J'ai bien fait de demander de l'aide.

Encore grand merci et au revoir

khinoa

Avatar
Patrick BASTARD
Bonjour, *khinoa*


Pour que 100 devienne 10 000, as-tu pensé à multiplier chacune des cellules
de ta zone par 100 ?


--
Bien amicordialement,
P. Bastard


Bonjour,

J'ai un fichier Excel dont les montants sont au format nombre. Il y a
donc toujours des montants avec virgule, par exemple 100,00 ou 95,53
ou 8,10 etc. Je voudrais convertir les sommes en centimes d'euros de
façon à ne plus faire figurer la virgule.

Ainsi 100,00 devient 10000, 95,53 devient 9553 et 8,10 devient 810.

J'ai essayé Replace ",", " " pour supprimer la virgule. Impossible

J'ai finalement fait Données, Convertir, délimiteur virgule et là
celà a bien fonctionné. Mais le code généré par l'enregistreur de
macros ne peut être réexécuté correctement. Le résultat étant tout à
fait différent de la première exécution.

Voici le code généré automatiquement :

Columns("D:D").TextToColumns Destination:=Range("G1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:=True, Space:úlse, Other:úlse,
FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub


Pourquoi le code ne peut-il refonctionner normalement? Y a-t-il un
autre moyen d'obtenir des montants convertis en centimes d'euros?

D'avance merci pour votre aide

khinoa


Avatar
Patrick BASTARD
Bonjour, *Jacquouille*

Encore arrivé trop tard, battu sur le poteau par la Police liégeoise...
;-)


--
Bien amicordialement,
P. Bastard


Bonsoir
Et si tu avais simplement multiplié tes cellules par 100 ?

"khinoa" a écrit dans le message de news:
437a24b6$0$21026$
Bonjour,

J'ai un fichier Excel dont les montants sont au format nombre. Il y
a donc toujours des montants avec virgule, par exemple 100,00 ou
95,53 ou 8,10 etc.
Je voudrais convertir les sommes en centimes d'euros de façon à ne
plus faire figurer la virgule.

Ainsi 100,00 devient 10000, 95,53 devient 9553 et 8,10 devient 810.

J'ai essayé Replace ",", " " pour supprimer la virgule. Impossible

J'ai finalement fait Données, Convertir, délimiteur virgule et là
celà a bien fonctionné. Mais le code généré par l'enregistreur de
macros ne peut être réexécuté correctement. Le résultat étant tout à
fait différent de la première exécution.

Voici le code généré automatiquement :

Columns("D:D").TextToColumns Destination:=Range("G1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:=True, Space:úlse, Other:úlse,
FieldInfo
_
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub


Pourquoi le code ne peut-il refonctionner normalement? Y a-t-il un
autre moyen d'obtenir des montants convertis en centimes d'euros?

D'avance merci pour votre aide

khinoa




Avatar
Jacquouille
Faux con soit quand même bon quelque part.
Parfois, on arrive les premiers.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Patrick BASTARD" a écrit dans le
message de news: %
Bonjour, *Jacquouille*

Encore arrivé trop tard, battu sur le poteau par la Police liégeoise...
;-)


--
Bien amicordialement,
P. Bastard


Bonsoir
Et si tu avais simplement multiplié tes cellules par 100 ?

"khinoa" a écrit dans le message de news:
437a24b6$0$21026$
Bonjour,

J'ai un fichier Excel dont les montants sont au format nombre. Il y
a donc toujours des montants avec virgule, par exemple 100,00 ou
95,53 ou 8,10 etc.
Je voudrais convertir les sommes en centimes d'euros de façon à ne
plus faire figurer la virgule.

Ainsi 100,00 devient 10000, 95,53 devient 9553 et 8,10 devient 810.

J'ai essayé Replace ",", " " pour supprimer la virgule. Impossible

J'ai finalement fait Données, Convertir, délimiteur virgule et là
celà a bien fonctionné. Mais le code généré par l'enregistreur de
macros ne peut être réexécuté correctement. Le résultat étant tout à
fait différent de la première exécution.

Voici le code généré automatiquement :

Columns("D:D").TextToColumns Destination:=Range("G1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:=True, Space:úlse, Other:úlse,
FieldInfo
_
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub


Pourquoi le code ne peut-il refonctionner normalement? Y a-t-il un
autre moyen d'obtenir des montants convertis en centimes d'euros?

D'avance merci pour votre aide

khinoa








Avatar
Patrick BASTARD
Bonjour, *Jacquouille*

;-)

--
Bien amicordialement,
P. Bastard


Faux con soit quand même bon quelque part.
Parfois, on arrive les premiers.


"Patrick BASTARD" a écrit dans le
message de news: %
Bonjour, *Jacquouille*

Encore arrivé trop tard, battu sur le poteau par la Police
liégeoise... ;-)


--
Bien amicordialement,
P. Bastard


Bonsoir
Et si tu avais simplement multiplié tes cellules par 100 ?

"khinoa" a écrit dans le message de news:
437a24b6$0$21026$
Bonjour,

J'ai un fichier Excel dont les montants sont au format nombre. Il y
a donc toujours des montants avec virgule, par exemple 100,00 ou
95,53 ou 8,10 etc.
Je voudrais convertir les sommes en centimes d'euros de façon à ne
plus faire figurer la virgule.

Ainsi 100,00 devient 10000, 95,53 devient 9553 et 8,10 devient 810.

J'ai essayé Replace ",", " " pour supprimer la virgule. Impossible

J'ai finalement fait Données, Convertir, délimiteur virgule et là
celà a bien fonctionné. Mais le code généré par l'enregistreur de
macros ne peut être réexécuté correctement. Le résultat étant tout
à fait différent de la première exécution.

Voici le code généré automatiquement :

Columns("D:D").TextToColumns Destination:=Range("G1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:=True, Space:úlse, Other:úlse,
FieldInfo
_
:=Array(Array(1, 1), Array(2, 1)),
TrailingMinusNumbers:=True End Sub


Pourquoi le code ne peut-il refonctionner normalement? Y a-t-il un
autre moyen d'obtenir des montants convertis en centimes d'euros?

D'avance merci pour votre aide

khinoa