Arrondi à 5ct

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:

---

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.

Salut,
J'avais eu besoin d'un truc comme cela pour avoir des primes divisibles par 4.
ici en formule

Code:

---

=ARRONDI.SUP(E3/4;2)*4

---

pour 5 ct ca donnerai

Code:

---

=ARRONDI.SUP(E5/5;2)*5

---