arrondi 2 décimales d'une variable

Bonjour,
je tente d'afficher un nombre dans la cellule A1 issu d'une inputbox. nombre encodé: 2,33

mon code:

Code:

---

1 2 3 4 5

Sub Arrondi2Decimales() Dim Nb as Single Nb = Application.InputBox(prompt:="Encoder montant:", Type:=1) Sheets("feuil1").Range("A1").value = Round(Nb, 2) End Sub

---

si la cellule A1 est au format standard: affiche 2.3299999... au lieu de 2.33
si la cellule A1 est au format nombre 2 décimales: affiche 2.33 mais affiche 2.32999992370605 dans la barre de formule !!!

L'instruction Round est-elle la bonne ?

Merci

Bonjour

A la place de l'arrondi de VBA, utilisez la fonction ARRONDI d'Excel

Code:

---

Sheets("feuil1").Range("A1").Value = WorksheetFunction.Round(Nb, 2)

---

Voir https://docs.microsoft.com/fr-fr/off...round-function

Stéphane

Merci pour cette solution efficace !