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

Macro - Annuler un clic avec condition if

  • Initiateur de la discussion Initiateur de la discussion Consultat
  • Date de début Date de début

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 !

C

Consultat

Guest
Bonsoir,

voici le code que j'ai pondu, malheureusement il ne fonctionne pas, que la réponse soit oui ou non, cela annule le clique.

Code:
Private Sub Label1_Click()

reponse = MsgBox("C'est votre dernier mot ?", vbYesNo)
If reponse = vbYes Then
MsgBox "Très bien, voyons la réponse..."
Else: Exit Sub
End If

Label1 correspond à une réponse. Lorsque je clique sur ce Label, je souhaiterais avant d'afficher si c'est une bonne réponse ou non, demander à la personne questionner si elle souhaite modifier son choix. Si c'est bien son dernier mot, alors poursuivre la macro, sinon annuler le clique sur le label.


Merci,
bonne soirée.
 
Re : Macro - Annuler un clic avec condition if

Bonsoir,

Peut être comme cela :

Code :

Private Sub Label1_Click()

reponse = MsgBox("C'est votre dernier mot ?", vbYesNo)
If reponse = vbYes Then
MsgBox "Très bien, voyons la réponse..."
Elseif reponse = vbNo Then
Exit Sub
End If

laurent
 
Re : Macro - Annuler un clic avec condition if

Bonsoir,

je viens d'essayer ceci:

Code:
reponse = MsgBox("C'est votre dernier mot ?", vbYesNo)
If reponse = vbYes Then
MsgBox "Voyons la réponse..."
ElseIf reponse = vbNo Then
Exit Sub
End If

Résultat: Cela ne fait ni apparaître de msgbox ni arrêter la macro !... Merci pour ta réponse quand même.
 
Re : Macro - Annuler un clic avec condition if

Bonjour à tous,

Comment fait on apparaître les USF ?
Il est d'usage de déposer des fichiers fonctionnels ou avec les explications qui vont bien.

Mais je n'ai surement pas tout compris...

A + à tous
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…