Macro : format monétaire 4 décimales

Bonjour

dans le fichier exemple joint très très simple, je ne comprends pas pourquoi un arrondi se réalise lors du lancement la macro REPORT

Les cellules de départ (plage F2 à F13 de la feuille 1) et les cellules destinations (plage B2 à B13 de la feuille 2) ont pourtant le même format ... mais un arrondi est réalisé lors de la procédure.

Sub REPORT()
Set WsS = Worksheets(1): Set WsC = Worksheets(2)
    For i = 2 To 13
    WsC.Cells(i, 2).Value = WsS.Cells(i, 6).Value
    Next i

End Sub

Je ne comprends pas.

Bonjour,

Change le format dans la Feuil2. Ce n'est pas la marco qui le fait.

Bonjour Raja

Scuses, quelque chose doit m'échapper

J'ai format monétaire 4 décimales identiques dans les 2 plages concernées

Sauf qu'une fois la macro lancée, le report est arrondi à 2 décimales

Re,

Dans ce cas envoi-nous le fichier avec deux onglets au format monétaire à 2 virgules pour tester. Le fichier que tu as joint dans le feuil1 le format monétaire est à 2 virgules.

Bonjour,

Modifie cette ligne :

        WsC.Cells(i, 2).Value = WsS.Cells(i, 6).Value2

Cordialement.

Bonjour MFerrand

Et merci beaucoup, c'est parfait

Raja, je crois qu'on ne parlait pas des mêmes colonnes (F en feuille 1, B en feuille 2)

Merci à vous deux en tout cas