Bonjour,
A partir d'une inputbox je tente d'obtenir dans une cellule un nombre formaté (ex 1,15 ) mais la valeur renvoyée devient parfois 1,00 au lieu de 1,15
Je définis la propriété 'type de l'inputbox à 1 (type nombre)

mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub NbreDecimal()
 
   Dim Nb as Single    ' pas certain d'avoir choisi la bonne variable ? 
   Nb = Application.Inputbox(prompt:="Encoder nombre", Defaut:=1, Type:=1)
 
    Worksheets("feuil1").Range("A2").Value= Val(Nb)
    Worksheets("feuil1").Range("A2").NumberFormat = "0.00"
 
End Sub
la correction ou une autre proposition est la bienvenue.
merci d'avance