VBA Inputbox numérique (point ou virgule)

Bonsoir à tous,

Dans un InputBox, la valeur par défaut affiche un point comme séparateur. et ne reconnait

pas la valeur comme numérique.

Dim valeur
    Do
        valeur = Application.InputBox("Le prix affiché est le PV.TTC", "Prix vendu", ActiveCell.Offset(0, 9), Type:=1)
    Loop While valeur = ""
        If valeur = False Then Exit Sub 

ActiveCell.Offset(0, 9) est affichée avec une virgule, mais avec un point dans l'InputBox !

Ou est le Hic ?

amicalement

Claude.

Salut le forum

Claude, je pense qu'en VBA le séparateur décimal est le point et non la virgule.

Pour avoir une valeur en décimal utilise :

Valeur = Application.InputBox("Le prix affiché est le PV.TTC", "Prix vendu", Replace(ActiveCell.Offset(0, 9), ".", ","), Type:=1)

Mytå

re,

il fallait le savoir !

merci Mytå, je prends note.

amicalement

Claude.

re,

pour le format point, virgule, c'est réglé.

-La fenêtre qui indique la valeur par défaut est en sur-brillance, ce qui la rend peu visible.

peux-t-on y remédier ?

Claude.

Re le forum

dubois a écrit :

La fenêtre qui indique la valeur par défaut est en sur-brillance, ce qui la rend peu visible, peux-t-on y remédier ?

A ma connaissance c'est Non !

Mytå

re,

Tant pis !

merci Mytå

Claude.