Discussion :

[fredym]

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

[mjpmjp]

bonjour,
si tu changes Val(Nb) pour Nb , çà marche
@+JP

[fredym]

Tout grand merci pour la solution apportée.