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

Résolu/Fermé
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 13 mars 2016 à 23:46
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 14 mars 2016 à 20:55
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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
14 mars 2016 à 08:28
0