Bonjour,

J'ai un userform dans lequel j'ai des textbox et comboBox, et un CommandButton1 "OK".
Je souhaite avoir des champs obligatoires, c'est à dire qu'un message du type "Veuillez remplir les champs obligatoires*" s'affiche quand on clique sur la touche OK du userform et que les textbox et comboBox ne sont pas remplis.

Je ne sais pas du tout comment m'y prendre.



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub ComboBox1_Change()
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub ComboBox2_Change()
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
'Clic sur OK
Private Sub CommandButton1_Click()
 
 
    'Fermeture de la fenêtre
    Unload Me
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub TextBox1_Change()
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub TextBox2_Change()
 
End Sub

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
Private Sub UserForm_Activate()
 
    UserForm1.Caption = "Ajouter une benne"
 
    'Initialisation des listes
    ComboBox1.Clear
    ComboBox1.AddItem ("Production Propre")
    ComboBox1.AddItem ("Démolition/Curage/Terrassement")
 
    ComboBox2.Clear
    ComboBox2.AddItem ("DIB Mélangés")
    ComboBox2.AddItem ("Inertes")
    ComboBox2.AddItem ("Bois")            
 
End Sub
Merci pour votre aide