annuler proprement un "inputbox"

[romainchu78]

Bonsoir a tous,
Dans mon code jai un inputbox (donne par un adepte du forum)
nom = InputBox("Entrer le nom du fichier", "Création du fichier")
mais si l'utilisateur annule la boite d'invite, cest a dire s'il clique sur fermeture ou annuler quel est le code pour que je sorte proprement de la procedure en cours. J'ai essaye avec ca mais cela n'a aucun effet.

nom = InputBox("Entrer le nom du fichier", "Création du fichier")
If nom = False Then GoTo jump
...
jump:


merci par avance

 

[lacorse33]

Re : annuler proprement un "inputbox"

Bonsoir romainchu78,

Peux-tu essayer de mettre cela ?

If nom = vbNullString Then GoTo jump

Merci
@+
Béa

 

[romainchu78]

Re : annuler proprement un "inputbox"

avec ceci, il oblige le type a entrer une chain de caracteres.
remarque ce n'est pas plus mal cela evite au moins les debugages.

si tu as une autre idee, pourkoi pas?

merci a toi lacorse

 

[lacorse33]

Re : annuler proprement un "inputbox"

Je crois que c'est la seule solution.

Voici ce qui est écrit dans l'aide en ligne : "Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("")."

@+
Béa

 

[bqtr]

Re : annuler proprement un "inputbox"

bonsoir romainchu78, Lacorse33

Avec ce que Béa a indiqué tu mets :

If nom = "" Then GoTo jump

Avec ceci tu n'es pas obligé de saisir quelque chose dans l'inputbox.

Bonne nuit

P.O

 

[romainchu78]

Re : annuler proprement un "inputbox"

voila ce que j'ai trouve sur internet;

* Vous voulez empêcher l'utilisation de ce bouton, écrivez le code ainsi :
Do
Retour = InputBox("Texte à afficher dans la cellule A1 ? ")
Loop While Retour = ""
* Vous ne voulez pas continuer le code :
Retour = InputBox("Texte à afficher dans la cellule A1 ? ")
If Retour = "" Then Exit Sub

la deuxieme rejoint ce qu'a propose bqrt.
jai pas trouve pour le vbNullString.

merci a vous lacorse et bqtr

 

[lacorse33]

Re : annuler proprement un "inputbox"

vbNullString équivaut à ""

 

[romainchu78]

Re : annuler proprement un "inputbox"

effectivement je viens de reessayer avec vbNullString et ca marche sur une feuille excel avec seulement cela comme code.
cela na pas l'air de fonctionner en l'integrant au reste de mon code...bizarre.

 

[Mytå]

Re : annuler proprement un "inputbox"

Salut le Forum

Une autre façon de faire simuler une erreur

Sub Essai()

Dim Nom As String
Dim Msg As String

On Error GoTo Erreur

Nom = Application.InputBox("Entrer le nom du fichier", "Création du fichier", Type:=2)

If Nom = "" Or Nom = "False" Or Nom = "Faux" Then Err.Raise 424
'..... le code

Exit Sub

Erreur:
If Err.Number = 424 Then
MsgBox "You need to enter value, this procedure will now terminate."
Else
Msg = "L'erreur # " & Str(Err.Number) & " a été générée par " & _
Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext
End If

End Sub

 

[bqtr]

Re : annuler proprement un "inputbox"

Bonsoir Myta, re le fil

Si tu veux simplement sotir de la procédure :

If nom = vbNullString Then exit sub

Si après jump: tu as du code essaye ceci :

If nom = vbNullString Then GoTo jump
..../.... ton code
Exit sub (il faut sortir de la procédure quand nom est <> vbnullstring )
jump :
...../.... ton code
end sub

P.O

 

[MichelXld]

Re : annuler proprement un "inputbox"

bonjour à vous

si l'utilisateur annule la boite d'invite, cest a dire s'il clique sur fermeture ou annuler quel est le code pour que je sorte proprement de la procedure en cours.

une autre possibilité:

'Intercepter l'utilisation du bouton "Annuler"
'et la croix de fermeture d'un Inputbox
    Dim Reponse As Variant
    Reponse = Application.InputBox("Saisissez vos données")
    If VarType(Reponse) = vbBoolean Then Exit Sub

bonne journée
MichelXld

 

[romainchu78]

Re : annuler proprement un "inputbox"

cela marche tres bien en remplacant aussi par un goto a la place du exit sub.
merci et bonne soiree

 

[Simons]

Re : annuler proprement un "inputbox"

Bonjour,

En faisant une recherche sur la fermeture des inputbox je suis tombé sur ce fil. La solution de MichelXLD me semblait bien mais elle ne semble pas fonctionner.
Pour ma part j'utilise :

dim INP as String
INP = InputBox("Message")
If StrPtr(INP) = 0 Then MsgBox "Fermez avec un des boutons !"

Le problème c'est que mon inputbox disparait ensuite..
Je peux bien sur la faire réapparaitre avec

INP = Inputbox("Message")

Mais cette solution n'est pas géniale à mon gout.
Quelqu'un connait une solution efficace ?

Merci d'avance.​

 

[PascalXLD]

Re : annuler proprement un "inputbox"

Bonjour

attention

Michel ne parle pas dans son code d'une inputbox mais
de application.inputbox

c'est là toute la différence mais c'est important

D'ailleurs c'est super le application.inputbox car on peut rajouter des options interessantes et on traite différemment le annuler

 

[MichelXld]

Re : annuler proprement un "inputbox"

bonjour Simons, bonjour cher Pascal


Et la variable INP doit être de type Variant



Bonne soirée
MichelXld