Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Annulation inefficace dans inputbox

Annulation inefficace dans inputbox

5 réponses
Avatar
ManBas
Bonjour à tous,

Pouvez-vous m'expliquer pourquoi le bouton annuler est inefficace dans un
inputbox, comme l'exemple suivant:

sub test()
dim max
max = InputBox("Entrer pour voir")
msgbox "ok"
end sub

Malgré "annuler" le msgbox apparait !??
Merci de vos suggestions.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
*Bonjour ManBas*,
C'est normale, quelle que soit la reponse, tu affiche le message "ok".
Essaie avec un test :

Sub test()
Dim max
max = InputBox("Entrer pour voir")
If max <> "" Then
MsgBox "ok"
Else
MsgBox "annuler"
End If
End Sub


Bonjour à tous,

Pouvez-vous m'expliquer pourquoi le bouton annuler est inefficace dans un
inputbox, comme l'exemple suivant:

sub test()
dim max
max = InputBox("Entrer pour voir")
msgbox "ok"
end sub

Malgré "annuler" le msgbox apparait !??
Merci de vos suggestions.


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
michdenis
Bonjour Manbas,

Essaie ceci :

'-----------------------------
Sub test()
Dim max
max = InputBox("Entrer pour voir")
If max = "" Then Exit Sub
MsgBox "ok"
End Sub
'-----------------------------


Salutations!



"ManBas" a écrit dans le message de news: %23ev%
Bonjour à tous,

Pouvez-vous m'expliquer pourquoi le bouton annuler est inefficace dans un
inputbox, comme l'exemple suivant:

sub test()
dim max
max = InputBox("Entrer pour voir")
msgbox "ok"
end sub

Malgré "annuler" le msgbox apparait !??
Merci de vos suggestions.
Avatar
ManBas
Merci à tous les deux pour vos réponses (qui fonctionnent, bien
évidemment).
Mais le bouton "annuler" de l'inputbox ne suffit donc pas à annuler
vraiment.
Il n'y serait pas, on écrirait le même code pour obtenir ce résultat.
A bientôt


"michdenis" a écrit dans le message de news:
%
Bonjour Manbas,

Essaie ceci :

'-----------------------------
Sub test()
Dim max
max = InputBox("Entrer pour voir")
If max = "" Then Exit Sub
MsgBox "ok"
End Sub
'-----------------------------


Salutations!



"ManBas" a écrit dans le message de news:
%23ev%
Bonjour à tous,

Pouvez-vous m'expliquer pourquoi le bouton annuler est inefficace dans un
inputbox, comme l'exemple suivant:

sub test()
dim max
max = InputBox("Entrer pour voir")
msgbox "ok"
end sub

Malgré "annuler" le msgbox apparait !??
Merci de vos suggestions.





Avatar
lSteph
Bonjour,
Il n'y serait pas, on écrirait le même code pour obtenir ce résultat
pas tout à fait exemple ici , on renseigne la chaine var par défaut "toto"

dans
l'inputbox pourtant le fait de cliquer sur annuler provoque bien le renvoi
d'une chaine vide
ce qui peut ainsi être gèré.

Sub testann()
Dim var
var = InputBox("entrer:", "saisie", "toto")
If var = "" Then MsgBox "annulation ou vide": Exit Sub
MsgBox var

End Sub

a+

lSteph

"ManBas" a écrit dans le message de news:

Merci à tous les deux pour vos réponses (qui fonctionnent, bien
évidemment).
Mais le bouton "annuler" de l'inputbox ne suffit donc pas à annuler
vraiment.
Il n'y serait pas, on écrirait le même code pour obtenir ce résultat.
A bientôt


"michdenis" a écrit dans le message de news:
%
Bonjour Manbas,

Essaie ceci :

'-----------------------------
Sub test()
Dim max
max = InputBox("Entrer pour voir")
If max = "" Then Exit Sub
MsgBox "ok"
End Sub
'-----------------------------


Salutations!



"ManBas" a écrit dans le message de news:
%23ev%
Bonjour à tous,

Pouvez-vous m'expliquer pourquoi le bouton annuler est inefficace dans un
inputbox, comme l'exemple suivant:

sub test()
dim max
max = InputBox("Entrer pour voir")
msgbox "ok"
end sub

Malgré "annuler" le msgbox apparait !??
Merci de vos suggestions.









Avatar
ManBas
Subtil +++
Effectivement tu as raison.
Merci pour cette précision.


"lSteph" a écrit dans le message de news:

Bonjour,
Il n'y serait pas, on écrirait le même code pour obtenir ce résultat
pas tout à fait exemple ici , on renseigne la chaine var par défaut "toto"

dans
l'inputbox pourtant le fait de cliquer sur annuler provoque bien le renvoi
d'une chaine vide
ce qui peut ainsi être gèré.

Sub testann()
Dim var
var = InputBox("entrer:", "saisie", "toto")
If var = "" Then MsgBox "annulation ou vide": Exit Sub
MsgBox var

End Sub

a+

lSteph

"ManBas" a écrit dans le message de news:

Merci à tous les deux pour vos réponses (qui fonctionnent, bien
évidemment).
Mais le bouton "annuler" de l'inputbox ne suffit donc pas à annuler
vraiment.
Il n'y serait pas, on écrirait le même code pour obtenir ce résultat.
A bientôt


"michdenis" a écrit dans le message de news:
%
Bonjour Manbas,

Essaie ceci :

'-----------------------------
Sub test()
Dim max
max = InputBox("Entrer pour voir")
If max = "" Then Exit Sub
MsgBox "ok"
End Sub
'-----------------------------


Salutations!



"ManBas" a écrit dans le message de news:
%23ev%
Bonjour à tous,

Pouvez-vous m'expliquer pourquoi le bouton annuler est inefficace dans
un
inputbox, comme l'exemple suivant:

sub test()
dim max
max = InputBox("Entrer pour voir")
msgbox "ok"
end sub

Malgré "annuler" le msgbox apparait !??
Merci de vos suggestions.