Rester dans l'USERFORM si MSGBOX OK

[chris6999]

Bonjour

Je fais apparaître un msgbox à partir d'un userform.
Il s'agit d'un message d'alerte qui s'affiche lors d'une validation lorsque une listbox est vide.
Je souhaiterais faire juste disparaître le msgbox lorsque je clique sur OK mais sans sortir de mon Userform...

Ex Je clique sur le bouton "valider la réponse"
-Si ma listbox Réponse1 est vide alors afficher un MSGBOX d'alerte.
Si je clique sur OK faire disparaître le MSGBOX mais rester dans mon userform Module1
-Si ma listbox Réponse1 n'est pas vide la valeur est renvoyée dans une cellule de ma feuille

Je mets un fichier en PJ

Merci d'avance
Cordialement

 

[Dranreb]

Re : Rester dans l'USERFORM si MSGBOX OK

Bonjour.
Pour répondre strictement à votre question il suffirait d'ajouter : Exit Sub derrière le MsgBox.
Mais pourquoi faire si compliqué ? Je n'utiliserais qu'un bouton en changeant son caption dans la Réponse1_Change
"Je ne connais pas la réponse", si elle est vide, "Valider la réponse et passer à la question suivante" dans le cas contraire.

 

[phlaurent55]

Re : Rester dans l'USERFORM si MSGBOX OK

Bonjour à tous,

peut-être comme ceci:

Private Sub CommandButton1_Click()
If Réponse1.Value = "" Then
MsgBox "Veuillez saisir une réponse avant de valider. Sinon cliquer sur le bouton Je ne connais pas la réponse", vbOKOnly, "Message d'erreur"
Exit Sub
End If
If CloseMode = vbFormControlMenu Then Cancel = True
If Réponse1.Value <> "" Then Cells(27, 3) = Réponse1.Value
Unload Module1
End Sub

il reste encore du boulot car il y aura lieu de faire passer le "27" par une variable en fonction de la question posée
If Réponse1.Value <> "" Then Cells(27, 3) = Réponse1.Value


à+
Philippe

 

[chris6999]

Re : Rester dans l'USERFORM si MSGBOX OK

Bonsoir et merci à tous les deux pour vos réponse.
Je vais pouvoir avancer mon travail.
Merci ecore