Discussion :

[fredym]

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

mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Raccourcix]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Stéphane

[fredym]

Merci pour cette solution efficace !