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

MsgBox à plusieurs msg pour la gestion d'erreurs

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

M

manekimashimaro

Guest
Bonjour, 🙂

Je viens vous voir pour une question que je n'arrive pas à solutionner !!!
Je souhaiterais créer un MsgBox dont le contenu varierait.
Je m'explique, je souhaite informer l'utilisateur du programme que je développe qu'il y a une erreur de saisie. Je sais le faire, mais lorsqu'il y a plusieurs erreurs, il y a autant de MsgBox qui s'ouvre. Ce que je souhaiterais, c'est n'en avoir qu'une seule avec les messages correspondant à chaque erreur !! 😕

Je code sous VBA avec excel 2003.

Ce que je fais actuellement :

Sub ErrValeur(Err As Integer)
Dim Msg As String, MsgErr As String, Style As Long, Title As String, Reponse As Long
Select Case ErrV
Case 1
MsgErr = "La valeur 11 indiquée n'est pas valide."
Case 2
MsgErr = "La Valeur V12 indiquée n'est pas valide."
Case 3
MsgErr = "Veuillez indiquer la valeur 13."
Case 4
MsgErr = "Veuillez indiquer la valeur 14."
Case 5
MsgErr = "La valeur 15 indiquée n'est pas valide."
End Select
Msg = MsgErr
Style = vbOKOnly + vbExclamation
Title = "Erreur de Saisie"
Reponse = MsgBox(Msg, Style, Title)
End Sub

Et où je l'utilise :

Private Sub Des_Click()
Dim VHT1 As Integer, VCh1 As Single, VDFP As Integer

V12 = TOTO
If V12 = 0 Then
Call ErrValeur(1)
End If
...
...
End Sub

Dois-je plutôt utiliser un GoTo Err ?? Y a-t'il une solution autre faire appel à une fonction pour cela ??
Pouvez-vous m'aiguiller ???
Je suis un peu perdu !!!!
D'avance merci.
 
Re : MsgBox à plusieurs msg pour la gestion d'erreurs

Bonsoir

pas vraiment le temps mais je pense à quelque chose du genre :

msg=""
if v11= xx then msg=msg & "la valeur 11 n'est pas valide "
...
if V12= yy then msg = msg & "la valeur 12... "
...
...
if not msg="" then msgbox (msg, vbOKOnly + vbExclamation , "Erreur de Saisie")
 
- 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…