OVH Cloud OVH Cloud

[VBA] Problème de copier / coller

4 réponses
Avatar
HD
Bonjour,

J'ai des données à coller dans un classeur... Lorsque je les colle
manuellement il n'y a pas de problème, par exemple 1024,52 donnera bien dans
la cellule 1024,52. Mais si je colle les données via ma macro les 1024,52 se
transforme en 1024520,00 !!! J'ai systèmatiquement ce problème sauf pour les
montants inférieurs à 1 qui eux ne sont pas "transformés".

Voici ma macro qui ne comporte visiblement (pour moi en tout cas) rien de
particulier qui pourrait générer ces problèmes :

Cells.Delete
Columns("B:B").NumberFormat = "@"
Columns("C:C").NumberFormat = "General"
Columns("D:E").NumberFormat = "@"
Range("A1").Select
ActiveSheet.Paste


Pour info les montants en erreur se trouvent sur les colonnes F et G.

Merci d'avance pour votre aide.
--
@+
HD

4 réponses

Avatar
Daniel
Bonjour.
C'est apparemment un problème de séparateur de milliers, mais comme tu ne
publies pas la partie du code que tu copies....
Daniel
"HD" a écrit dans le message de news:
dn9e3t$2o53$
Bonjour,

J'ai des données à coller dans un classeur... Lorsque je les colle
manuellement il n'y a pas de problème, par exemple 1024,52 donnera bien
dans
la cellule 1024,52. Mais si je colle les données via ma macro les 1024,52
se
transforme en 1024520,00 !!! J'ai systèmatiquement ce problème sauf pour
les
montants inférieurs à 1 qui eux ne sont pas "transformés".

Voici ma macro qui ne comporte visiblement (pour moi en tout cas) rien de
particulier qui pourrait générer ces problèmes :

Cells.Delete
Columns("B:B").NumberFormat = "@"
Columns("C:C").NumberFormat = "General"
Columns("D:E").NumberFormat = "@"
Range("A1").Select
ActiveSheet.Paste


Pour info les montants en erreur se trouvent sur les colonnes F et G.

Merci d'avance pour votre aide.
--
@+
HD




Avatar
HD
C'est apparemment un problème de
séparateur de milliers, mais comme tu ne
publies pas la partie du code que tu copies....


??? J'ai bien mis la partie du code qui me fait la copie... Voir ci-dessous
et sur les posts précédents...
--
@+
HD

Cells.Delete
Columns("B:B").NumberFormat = "@"
Columns("C:C").NumberFormat = "General"
Columns("D:E").NumberFormat = "@"
Range("A1").Select
ActiveSheet.Paste


Pour info les montants en erreur se trouvent sur les colonnes F et G.

Merci d'avance pour votre aide.
--
@+
HD








Avatar
Daniel
Bonjour.
Je dois changer de lunettes, je ne vois pas de "copy", seulement un "paste".
Daniel
"HD" a écrit dans le message de news:
dnbck4$ags$
C'est apparemment un problème de
séparateur de milliers, mais comme tu ne
publies pas la partie du code que tu copies....


??? J'ai bien mis la partie du code qui me fait la copie... Voir
ci-dessous
et sur les posts précédents...
--
@+
HD

Cells.Delete
Columns("B:B").NumberFormat = "@"
Columns("C:C").NumberFormat = "General"
Columns("D:E").NumberFormat = "@"
Range("A1").Select
ActiveSheet.Paste


Pour info les montants en erreur se trouvent sur les colonnes F et G.

Merci d'avance pour votre aide.
--
@+
HD












Avatar
HD
Je dois changer de lunettes, je ne vois
pas de "copy", seulement un "paste".
: )

Effectivement... En fait la copie se fait sur un logiciel de comptabilité.
Dans un jounal de comptabilité je fais un "copier" des lignes comptables.
Les données sont ainsi en mémoire, puis je fais un "Coller" via la macro VBA
sur Excel.

Il se peut que le problème provienne de la nouvelle version de notre
logiciel de comptabilité... Mais ce qui est étonnant c'est qu'un "coller"
réalisé à la main sur Excel donne des données correctes alors que les même
données collées via VBA ressort des incohérences (tout est multiplié par
1000 sauf les montants inférieurs à 1).

--
@+
HD