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

Résolu
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   -  
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   -
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 image

End Sub


Merci pour votre aide.

Bien cordialement

7 réponses

Réponse 1 / 7
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Voir ceci, a adapter:

http://www.info-3000.com/vbvba/boucledoloopwhileuntil.php
0

Discussions similaires

Impression PDF multiples depuis onglets Excel
Khrys001 -
Adrien -

6 réponses
Effacer le contenu d'une cellule
sylla.junior2 -
sylla.junior2 -

9 réponses
Comment déplacer la cellule active d'une cellule vers le bas
Patoche -
Patoche777 -

2 réponses
VBA - NE copier que la valeur et non la formule
Miniben -
Miniben -

2 réponses
La première ligne vide après dernière ligne utilisée
Nonnoo -
Fitz_Chev -

2 réponses
Erreur de compilation : Impossible d'affecter à un tableau / OBJ
Earwenn -
Earwenn -

1 réponse