Discussion :

[rampage92]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rampage92]

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

[mercatog]

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

[unparia]

Bonjour

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.

[rampage92]

merci mercatob ca fonctionne parfaitement