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 😁