Bonjour

Après recherche, je n'ai pas trouvé de code simple pour arrondir un montant à 5ct.

A toutes fins utiles, je vous joins le code que j'ai trouvé...si c'est utile à quelqu'un ??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub TVAVente_AfterUpdate()Dim PV  As Double
    PV = Me.PrixVenteHT + (Me.PrixVenteHT * Nz(Me.TVAVente, 1) / 100)
    PV = (Round((PV * 20), 0)) / 20
    Me.PrixVenteTTC = PV
    Me.PrixVenteTTC.SetFocus
End Sub
J'ai simplement utilisé le chiffre 20 dans ma formule... puisqu'il y a 20 * 5 dans 100 et cela fonctionne à merveille.