XL 2010 Application.InputBox type1, différencier entre résultat= False et Valeur saisie = 0

[Ghassen]

Bonjour à tous

j'utilise une application.inputBox pour récupérer des données, type numérique :=1
mon soucis est que cette méthode ne fait pas la différence (à priori) entre un saisi = 0 (donc valeur récupérée = 0) et un non saisi de donnée (ou fermer la inputbox) donc résultat = false...
je souhaite pouvoir faire la différence entre ne rien saisir du tout et saisir la valeur = 0, et via une application.inputBox car c'est moins simple qu'une inputbox ordinaire (qui néceessite un paramétrage pour accepter des données bien particulière)

un peu ça quoi

valeur = Application.InputBox(Texte1, Texte2, , , , , , Type:=1)

if valeur = False then 'arrêt macro, suite..

If Valeur <> False then 'suite même si valeur = 0 ( valeur saisie = 0)

 

[Ghassen]

Résultat donné par Chat GPT... il me fait peur ce truc
Valeur = Application.InputBox(Texte1, Texte2, , , , , , Type:=1)

If VarType(Valeur) = vbBoolean Then ' L'utilisateur a cliqué sur Annuler ou fermé la fenêtre
Valeur = "Quitter car résultat null"
ElseIf Valeur = 0 Then ' L'utilisateur a entré 0
Valeur = 0
End If

 

[mapomme]

Bonsoir Chat GPT,

Chat GPT, je t'ai répondu concernant ton code. J'attends ta réponse à ma réponse...

 

[mapomme]

Re,

Sinon le code de Chat GPT est correct.

 

[Ghassen]

Merci mapomme
Ma question est sûrement triviale pour vous.. mais c'était un blocage pour moi
j'ai sérieusement pensé supprimer mon message mais je me suis dit que ça pourrait aider quelqu'un au cas où..
Bonne soirée.

 

[mapomme]

Re,
Pour le fun, une autre solution (pas IA).

Le problème vient du fait que VBA est un langage très peu typé qui effectue des conversions de type à la volée et à sa propre guise. Donc de temps à autre le FALSE est conservé FALSE et de temps à autre False est transformé en 0 par VBA.

La question n'est en aucun cas triviale.

Sub test()
Dim rep
   rep = Application.InputBox(prompt:="Saisir un nombre SVP :", Type:=1)
   If CStr(rep) = CStr(False) Then
      MsgBox "Aucune saisie"
   Else
      MsgBox "Vous avez saisi le nombre : " & rep
   End If
End Sub

 

[dysorthographie]

Bonjour,
On peut également tester le typename si boolean !

 

[patricktoulon]

re
Bonjour a tous
dans des temps immémoriaux ou christophe colomb prenait le temps de partager un barbecue avec magellan arrosé d'un bon bordeau , on reconnaissait le return 0 ou false avec STRPTR
mais c'etait avant

d'accords je sort

 

[mapomme]

Bonjour @patricktoulon ,

Je suis désolé Patrick. J'ai beau chercher parmi les membres de XLD, aucun Christophe Colomb n'y est inscrit. Inconnu au bataillon ! Idem pour Magellan. Il va falloir arrêter de téter du bordeaux .

 

[patricktoulon]

re
bonjour @mapomme

LOL

 

[dysorthographie]

re
Bonjour a tous
dans des temps immémoriaux ou christophe colomb prenait le temps de partager un barbecue avec magellan arrosé d'un bon bordeau , on reconnaissait le return 0 ou false avec STRPTR
mais c'etait avant

d'accords je sort