Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Valeur d'annuler dans Inputbox

4 réponses
Avatar
Unss34
Bonjour,
j'ai une Inputbox qui demande une valeur:
decale = InputBox("nombre de minutes", "nombre", 0)
pas de souci en fonctionnement "normal"
je souhaite traiter le cas où on appuie sur annuler sans entrer de valeur et
sortir de la procédure
quelle valeur est renvoyée dans ce cas ? et quelle suite ?
Merci de vos réponses

4 réponses

Avatar
Philippe.R
Bonsoir,
Essaie ceci :

Sub sdeca()
decale = InputBox("nombre de minutes", "nombre", 0)
If decale = "" Then MsgBox "t'as rien saisi, vilain !"
End Sub

tu constateras qu'annuler reviens à renvoyer une valeur vide
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Unss34" <unss34(a_enlever)@free.fr> a écrit dans le message de
news:
Bonjour,
j'ai une Inputbox qui demande une valeur:
decale = InputBox("nombre de minutes", "nombre", 0)
pas de souci en fonctionnement "normal"
je souhaite traiter le cas où on appuie sur annuler sans entrer de valeur
et sortir de la procédure
quelle valeur est renvoyée dans ce cas ? et quelle suite ?
Merci de vos réponses



Avatar
JB
Bonsoir,

decale = InputBox("nombre de minutes", "nombre", 0)
If Len(decale) = 0 Then Exit Sub

JB
http://boisgontierjacques.free.fr


On 29 déc, 20:05, "Unss34" <unss34(a_enlever)@free.fr> wrote:
Bonjour,
j'ai une Inputbox qui demande une valeur:
decale = InputBox("nombre de minutes", "nombre", 0)
pas de souci en fonctionnement "normal"
je souhaite traiter le cas où on appuie sur annuler sans entrer de vale ur et
sortir de la procédure
quelle valeur est renvoyée dans ce cas ? et quelle suite ?
Merci de vos réponses


Avatar
michdenis
que tu peux adapter selon tes besoins

Sub test()
Dim decale As Variant
Do
decale = Application.InputBox("nombre de minutes", "nombre", 0)
If Format(decale) = False Then
MsgBox "L'usage a cliqué sur annuler."
Exit Sub
End If
If decale = "" Then
MsgBox "La boîte de saisie est vide et l'usage a dit Ok"
End If
Loop Until IsNumeric(decale)
End Sub




"Unss34" <unss34(a_enlever)@free.fr> a écrit dans le message de news:

Bonjour,
j'ai une Inputbox qui demande une valeur:
decale = InputBox("nombre de minutes", "nombre", 0)
pas de souci en fonctionnement "normal"
je souhaite traiter le cas où on appuie sur annuler sans entrer de valeur et
sortir de la procédure
quelle valeur est renvoyée dans ce cas ? et quelle suite ?
Merci de vos réponses
Avatar
Tendasque
Bonjour,
et merci à vous trois; j'ai adopté la solution de JB qui s'intègre le mieux
à mon cas
Bonne fin d'année et meilleurs voeux pour 2009 !

"michdenis" a écrit dans le message de news:
edG%
que tu peux adapter selon tes besoins

Sub test()
Dim decale As Variant
Do
decale = Application.InputBox("nombre de minutes", "nombre", 0)
If Format(decale) = False Then
MsgBox "L'usage a cliqué sur annuler."
Exit Sub
End If
If decale = "" Then
MsgBox "La boîte de saisie est vide et l'usage a dit Ok"
End If
Loop Until IsNumeric(decale)
End Sub




"Unss34" <unss34(a_enlever)@free.fr> a écrit dans le message de news:

Bonjour,
j'ai une Inputbox qui demande une valeur:
decale = InputBox("nombre de minutes", "nombre", 0)
pas de souci en fonctionnement "normal"
je souhaite traiter le cas où on appuie sur annuler sans entrer de valeur
et
sortir de la procédure
quelle valeur est renvoyée dans ce cas ? et quelle suite ?
Merci de vos réponses