MsgBox à plusieurs msg pour la gestion d'erreurs

[manekimashimaro]

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.

 

[ERIC S]

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")

 

[manekimashimaro]

Re : MsgBox à plusieurs msg pour la gestion d'erreurs

Merci, je regarde ta solution !!!
Bonne journée