Microsoft 365 copies de nombres en vba - format monétaire 3 décimales

[ERIC S]

Bonjour à tous

une bizarrerie lors de récupération de données, une partie de celles-ci étant en € avec plus de 2 décimales

manuellement CTRL+C CTRL+V fonctionne
par formules aussi

en vba tout dépend de la méthode :
méthode copy, pas de problème constaté (collage ou collage spécial)

par égalité de valeurs, E17 et E18 feuille copies macro3, arrondi à 2 décimales lors de l'exécution

Le pb est-il connu ? (moi j'ai rarement utilisé du monétaire avec plus de 2 décimales et là c'était obligé)
une explication ?

Merci de vos remarques

 

[Dranreb]

Bonjour.
En utilisant .Value2 au lieu de .Value ça marche.
Avec .Value Excel déguisait ces valeurs en Currency arrondi à deux décimales.

 

[ERIC S]

Merci Dranreb
J'ai cependant en général dans l'utilisation des options "2", pas chez moi mais chez les utilisateurs, qui n'ont pas forcément une version Excel au top et je n'ai pas trouvé de solution autre pour éviter un plantage
(régulièrement je remets sans le "2" les codes pour filtrage ...)

 

[Bernard_XLD]

Bonjour Eric S, le forum

bizarre d'autant plus que, ça, ça passe !

Sheets("copies").Range("E7:E18").FormulaR1C1 = Sheets("Original").Range("C5:C16").FormulaR1C1

 

[ERIC S]

Bonjour Yeahou
pas pensé au formulaR1C1 (que par habitude je n'utilise pas quand je veux être sûr de copier des valeurs

 

[Bernard_XLD]

c'est lié au format des cellules de la feuille original, quand je le passe en standard, le .value fonctionne
cela signifie que le .value interprète le format de la cellule d'origine pour copier la valeur ?
comme tu dis, le monétaire à plus de deux chiffres après la virgule est peu utilisé, en valeur cela ne copie pas plus bas qu'au centime, c'est fou non ?

 

[ERIC S]

30 ans d'excel pour découvrir cela
un problème avec des prix de gros donc à l'unité, le centime n'est pas suffisant
je plains les riches si les banques utilisent Excel dans la conversion de devises

 

[Bernard_XLD]

c'est un arrondi standard, pas tronqué, 2.565 donne 2.57

 

[ERIC S]

Oui
ou 2.564 donne 2.56

 

[patricktoulon]

re
bonjour
ma fois puisque c'est une copie
copie le numberformat dela plage source avec et ta copie sera conforme

 

[ERIC S]

Bonjour patricktoulon
je ne comprends pas ta remarque, d'après mes essais, quel que soit le format de la cellule d'arrivée, si la cellule de départ est monétaire plus de 2 décimales, le résultat est arrondi avec la méthode .value=.value

avec les copies, oui cela fonctionne

 

[soan]

Bonjour ERIC S, le fil,

je sais pas trop si mon fichier va t'intéresser ; je le joins à tout hasard ; sur la feuille "copies", fais Ctrl e ; puis regarde le code VBA (je n'ai pas pensé au .Value2 dont a parlé Dranreb, et je ne l'ai pas utilisé).​

soan

 

[ERIC S]

Merci Soan

une autre écriture pour le copy, toujours intéressant