Discussion :

[benjamin002]

Bonjour,

J'aimerais pouvoir faire que mon MsgBox se modifie selon certaines conditions.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If TxtFournisseur = "" And TxtMarque = "" And TxtDate = "" And TxtClasseur = "" Then
    MsgBox ("Vous n'avez pas entré de donnée dans le formulaire")
End If
If TxtFournisseur = "" Then
    MsgBox ("Vous n'avez pas entré de Fournisseur")
End If
If TxtMarque = "" Then
    MsgBox ("Vous n'avez pas entré de Marque")
End If
If TxtDate = "" Then
    MsgBox ("Vous n'avez pas entré de Date")
End If
If TxtClasseur = "" Then
    MsgBox ("Vous n'avez pas entré de Classeur")
End If

Dans le cas présent si je n'entre pas de Fournisseur ou de Marque par exemple cela me donne 2 messages successif, or je voudrais pouvoir condenser ces messages afin qu'il me dise "Vous n'avez pas entré de Fournisseur et de Marque"

Est-ce possible?

[Invité]

Bonjour,

Vous pouvez utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
msg = ""
If TxtFournisseur = "" Then
    msg = msg & "Vous n'avez pas entré de Fournisseur" & Chr(13) & Chr(10)
End If
If TxtMarque = "" Then
    msg = msg & "Vous n'avez pas entré de Marque" & Chr(13) & Chr(10)
End If
If TxtDate = "" Then
    msg = msg & "Vous n'avez pas entré de Date" & Chr(13) & Chr(10)
End If
If TxtClasseur = "" Then
    msg = msg &"Vous n'avez pas entré de Classeur"
End If
 
MsgBox msg

[benjamin002]

Merci beaucoup jacques_jean pour cette réponse rapide et pertinente