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

Ma fonction MSGBOX ne fonctionne pas

  • Initiateur de la discussion Initiateur de la discussion baguidi
  • 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 !

baguidi

XLDnaute Occasionnel
Bonjour le forum,
juste une incompréhension au sujet de mes codes sur le bouton "Valider" de mon userform.
Dans mes codes j'ai voulu donner le choix à l'utilisateur d'accepter la validation ou de la refuser grâce
à la fonction MSGBOX mais je constate que quelque soit le choix que l'utilisateur fait sur la question
rep1 = MsgBox("Voulez - vous valider cet enrégistrement ?", vbInformation + vbYesNo, "Alerte")
If rep1 = vbNo Then Exit Sub
même si l'utilisateur dit "non" l’enregistrement se fait toujours et c'est très curieux pour moi
Merci le forum
 

Pièces jointes

Re : Ma fonction MSGBOX ne fonctionne pas

Salut
Vire ceci tu n'as pas de . . . . option explicite
Dim rep1 As Boolean
ou bien
Dim rep1
Par habitude je ne déclare plus mes variables, mais à utiliser méthodiquement
Bruno
 
Re : Ma fonction MSGBOX ne fonctionne pas

Bonsoir Baguidi, bonsoir le forum,

Tu as déclaré la variable rep1 comme Boolean... Essaie comme ça :
Code:
Dim rep1 As Integer

[Édition]
Bonsoir Bruno on s'est croisé... Très mauvaise habitude. Je ne peux pas te laisser dire de pareilles choses ! Déclarer ses variables correctement c'est éviter de nombreux plantages...
 
Dernière édition:
Re : Ma fonction MSGBOX ne fonctionne pas

Bonsoir.
Pour être tout à fait dans le ton, on peut la déclarer As VBA.VbMsgBoxResult
Ça a l'avantage de proposer les valeurs possible derrière un "=" qui la suit.
Cordialement.
 
- 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

Réponses
0
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…