Differencier le cas Saisie = 0/Annuler dans une Inputbox

Bonjour, je travaille avec une inputbox. Je n arrive pas a differencier le cas annuler et le cas ou l utilisateur saisi un 0. Mon code est le suivant :

sub toto

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim dblNewQty As Double     dblNewQty = Application.InputBox("Please choose the new qty", Type:=1) If dblNewQty = False Then Me.ListView_UserPct.ListItems(item.Index).Checked = True Exit Sub Else   Blablabla   End If end sub

---

D avance merci

Code:

---

1 2 3 4

Dim dblNewQty As String If dblNewQty = "0" Then MsgBox "0": Exit Sub If CBool(dblNewQty) = False Then MsgBox "false": Exit Sub 'etc...

---

Code:

---

1 2 3 4 5 6 7 8 9

Dim X As Variant   X = Application.InputBox("Please choose the new qty", Type:=1)   If VarType(X) = vbBoolean Then MsgBox "Annuler" Else MsgBox "Valeur: " & X End If

---

Ca ne change rien dans les deux cas ca me renvoie 0

Déclare, pour ma proposition, ta variable en Variant et non en double

Bonjour

Citation:

---

Ca ne change rien dans les deux cas ca me renvoie 0

---

Il se trouve que, trouvant ta réponse étrange, j'ai testé la solution de dysorthographie. Elle fonctionne fort bien !
Je vais maintenant tester cette de mercatog.

EDIT : je viens de tester celle de mercatog. Fonctionne sans faille également.

merci mercatob ca fonctionne parfaitement