format nombre 2 décimales
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:
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
format nombre 2 décimales
Tout grand merci pour la solution apportée. :D
