annuler proprement un "inputbox"

L

lacorse33

XLDnaute Occasionnel

• 5 Octobre 2006

• #2

Re : annuler proprement un "inputbox"

Bonsoir romainchu78,

Peux-tu essayer de mettre cela ?

If nom = vbNullString Then GoTo jump

Merci
@+
Béa

 

Vote positif 0 Vote négatif

R

romainchu78

XLDnaute Occasionnel

• 5 Octobre 2006

• #3

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

 

Vote positif 0 Vote négatif

L

lacorse33

XLDnaute Occasionnel

• 5 Octobre 2006

• #4

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

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 5 Octobre 2006

• #5

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

 

Vote positif 0 Vote négatif

R

romainchu78

XLDnaute Occasionnel

• 5 Octobre 2006

• #6

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

 

Vote positif 0 Vote négatif

L

lacorse33

XLDnaute Occasionnel

• 5 Octobre 2006

• #7

Re : annuler proprement un "inputbox"

vbNullString équivaut à ""

 

Vote positif 0 Vote négatif

R

romainchu78

XLDnaute Occasionnel

• 5 Octobre 2006

• #8

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.

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 5 Octobre 2006

• #9

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

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 5 Octobre 2006

• #10

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Octobre 2006

• #11

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.

Cliquez pour agrandir...

une autre possibilité:

Code:

'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

 

Vote positif 0 Vote négatif

R

romainchu78

XLDnaute Occasionnel

• 5 Octobre 2006

• #12

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

 

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 6 Septembre 2007

• #13

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 :

Code:

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

Code:

INP = Inputbox("Message")

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

Merci d'avance.​

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 6 Septembre 2007

• #14

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 6 Septembre 2007

• #15

Re : annuler proprement un "inputbox"

bonjour Simons, bonjour cher Pascal


Et la variable INP doit être de type Variant



Bonne soirée
MichelXld

 

Vote positif 0 Vote négatif