Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rester dans l'USERFORM si MSGBOX OK

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

chris6999

XLDnaute Impliqué
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
 

Pièces jointes

Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
Re : Rester dans l'USERFORM si MSGBOX OK

Bonjour à tous,

peut-être comme ceci:
Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2021 msgBox message d'alerte
Réponses
2
Affichages
330
candido57
C
S
  • Résolu(e)
XL 2013 Sélection entre deux MsgBox...
2
Réponses
29
Affichages
885
Dudu2
C
  • Résolu(e)
XL 2016 MsgBox avec critères
2
Réponses
22
Affichages
961
candido57
C
A
  • Question Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
1 K
aurelio.ewane
A
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
526
TooFatBoy
R
  • Question Question
Microsoft 365 Afficher PDF dans un Web Browser
Réponses
8
Affichages
1 K
patricktoulon
N
  • Résolu(e)
Microsoft 365 Aide pour insertion nombre aléatoire
2
Réponses
22
Affichages
1 K
NONO14
N
G
  • Question Question
Microsoft 365 Labels qui se dimensionnent tous seuls.
Réponses
3
Affichages
320
GClaire
G
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
19 20 21
Réponses
303
Affichages
72 K
NONO14
N
E
  • Résolu(e)
Microsoft 365 Filtre sur LISTBOX
2
Réponses
16
Affichages
1 K
eric72
E
C
  • Résolu(e)
XL 2010 Collage valeur dans formulaire avec Userform
Réponses
4
Affichages
351
ChTi160
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
751
piga25
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
2 K
Amigo
A
  • Résolu(e)
XL 2019 Problème de clic dans ListBox
Réponses
12
Affichages
712
Dudu2
S
  • Question Question
Microsoft 365 Bug Me.Controls dans mon Userform
Réponses
4
Affichages
624
Jacky67
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
878
Usine à gaz
G
  • Question Question
XL 2013 Problème de priorité dans une formule de SI et STXT imbriquée
Réponses
8
Affichages
587
Gmndrt
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…