test réponse sur l’entrée dans une inputbox Résolu

Question

Bonjour,

Sur mon code si dessous je ne trouve pas la solution pour après l’entrée de la donnée dans l’Inputbox ;

a)	s’il y a validation avec OK et qu’il n’y a rien de saisie reposé la question à l’Inputbox, ne pas sortir
b)	si à la question vous avez demandé une recherche ….. la réponse est nom revenir à l’Inputbox, ne pas sortir.


Sub recherche_image()Dim monchoix As String'*****monchoix = InputBox("Veuillez saisir le nom de votre recherche")'*****If monchoix = "" Then        MsgBox "vous avez annulé où il n'y a pas de donnée d'entrée"    Exit Sub    End If'*****If MsgBox("Vous avez demandé une recherche sur un dessin de :  " & monchoix, vbQuestion + vbYesNo) <> vbYes Then    Cancel = True    ' Affichage de ton formulaire    Sheets("feuil1").Select   Exit Sub    Else  End If'******** MsgBox "Vous allez être redirigé vers internet pour afficher votre recherche:" '*** choix sur google imageEnd Sub

Merci pour votre aide.

Bien cordialement

cs_Le Pivert · Answer

Bonjour,

Voir ceci, a adapter:

 http://www.info-3000.com/vbvba/boucledoloopwhileuntil.php

mijean94 · Answer

Bonjour,

Merci pour la réponse, très bien le lien.

J’ai donc mis en application avec le code qui suit :

Do Until monchoix <> ""monchoix = InputBox("Veuillez saisir un mot pour votre recherche")Loop

Mon pb, ce code oblige en saisir un entrée donc c’est ce que je souhaité, mais il n’est plus possible de sortir de la fenêtre avec annuler !

Y a-t-il une solution ?

Merci pour la réponse 

Bien cordialement

cs_Le Pivert · Answer

Comme ceci:

Dim monchoix As String
Do Until monchoix <> ""
monchoix = Application.InputBox("Veuillez saisir un mot pour votre recherche", Type:=2)
Loop
MsgBox monchoix 
 
@+ Le Pivert

mijean94 · Answer

Bonjour,

Merci pour la réponse, mais je souhaiterais aussi ne pas sortir de la fenêtre si on tape OK sans rien avoir renseigné ?

Ya t-il une solution

bien cordialement

michel_m · Answer

bonjour

en utilisant le gestionnaire d'erreurs
Sub choisir()
Dim monchoix As String, rep As Byte
1:
monchoix = InputBox("Veuillez saisir un mot pour votre recherche")
    If monchoix = "" Or IsNumeric(monchoix) Then GoTo erreur1
'..... le code
Exit Sub
'gestionaire d'erreurs
erreur1:
 rep = MsgBox("Saisie erronnée ou vide", vbRetryCancel)
If rep = vbRetry Then: GoTo 1

End Sub 
 
 Michel

eriiic · Answer

Bonjour,

Avec une inputbox tu ne peux pas faire la différence entre réponse ="" et Annuler puisque tu as également ="".
Utilise une msgbox.
eric

mijean94 · Answer

Bonjour,

Merci à tous pour vos réponses.

Je vais utiliser le technique de Michel_m qui correspond bien à mes souhaites.

A bientôt

Bien cordialement et vraiment on as toujours des réponses positives sur ce forum.

Test réponse sur l’entrée dans une inputbox

7 réponses

Votre réponse

Discussions similaires