Discussion :

[JessieCoutas]

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

[LeForestier]

Bonjour,
Avec quelque chose dans ce genre là...

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
    If TextBox1 = "" Or TextBox2 = "" Or Combobox1.ListIndex < 0 Then
        MsgBox "Vous devez remplir toutes les données"
    Else
        'Fermeture de la fenêtre
        Unload Me
    End If
End Sub

A+

[JessieCoutas]

Merci encore à toi LeForestier

[MarcelG]

Bonjour,
Humblement, car après mon prédécesseur, je proposerais une solution que j'ai trouvée récemment.
Dans mon userform, je dispose d'un bouton nommé "Valid" qui contôle les contrôles puis génère une action d'impression.

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
16
17
18
19
20
21
22
23
 
Option Base 1
 
Private Sub Btn_Valid_Click()     
 
Dim Liste_Control_test As Variant
Dim Liste_Control_test_alpha As Variant
Dim Control_test As Variant
 
 
        Liste_Control_test = Array(Me.saisie_Titre, Me.saisie_Prénom)
        Liste_Control_test_alpha = Array("Titre", "Prénom")
 
        A = 0
        For Each Control_test In Liste_Control_test
            A = A + 1
            If Control_test.Value = "" Then
                MsgBox "La saisie du champ -- " & Liste_Control_test_alpha(A) & " -- est obligatoire."
                Control_test.SetFocus
                Exit Sub
            End If
        Next Control_test
End Sub

Cette méthode a pour avantage de localiser l'info manquante (SetFocus), et d'envoyer un message clair, grâce au compteur A. Elle s'opère pour des contrôles de type Texte mais elle peut être adaptée à mon avis.
Qu'en pensez vous ? Cordialement.

[Umaro137]

Voilà une autre façon de faire si tu regroupe tout tes textbox ou combobox dans la frame Frame1

Code :

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

1
2
3
4
For Each control In Frame1.Controls
       If control.Value = "" Then test = False
Next
If test = False Then MsgBox "Please fill the required informations areas"

[LeForestier]

Oui, mais si vous voulez compliquer l'affaire, il y a les modules de classe qui permette de savoir exactement les données qui manques....

[JessieCoutas]

Bonjour,

Pour résoudre mon problème, j'ai suivi les conseils de LeForestier. Le code fonctionne mais je souhaite que l'userform ne se ferme pas tant que les champs dits comme obligatoires ne sont tous remplis.

Que dois-je rajouter au code?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Clic sur OK
Private Sub CommandButton1_Click()
 
 
    If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Or ComboBox3.ListIndex < 0 Or ComboBox4.ListIndex < 0 Or ComboBox5.ListIndex < 0 Then
        MsgBox "Les champs disposant d'un astérix sont obligatoires."
    Else
        'Fermeture de la fenêtre
        Unload Me
    End If
 
End Sub

Merci à vous.
Bonne journée.

[LeForestier]

Re,
Si c'est tout ce qu'il y a dans le code du bouton, l'UF ne SAIT PAS se fermer si le message est afficher. Tu a certainement d'autre ligne de code dans ce bouton.
Montre toute la partie code du bouton.

[jfontaine]

Bonjour,

Le mieux est de mettre ton test dans dans l'evenement QueryClose de tn userForm

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
16
17
18
19
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
    If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Or ComboBox3.ListIndex < 0 Or ComboBox4.ListIndex < 0 Or ComboBox5.ListIndex < 0 Then
        MsgBox "Les champs disposant d'un astérix sont obligatoires."
        Cancel = True
    Else
        'Fermeture de la fenêtre
        Cancel = False
    End If
 
End Sub
 
 
Private Sub CommandButton1_Click()
 
         Unload Me
 
End Sub

[JessieCoutas]

Voici tout mon code pour ce commandbutton:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
'Clic sur OK
Private Sub CommandButton1_Click()
 
 
    If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Or ComboBox3.ListIndex < 0 Or ComboBox4.ListIndex < 0 Or ComboBox5.ListIndex < 0 Then
        MsgBox "Les champs disposant d'un astérix sont obligatoires."
    Else
        'Fermeture de la fenêtre
        Unload Me
    End If
 
 
Dim l As Integer  'ligne où l'on doit écrire
 
Sheets("Suivi déchets NON DANGEREUX").Select
 
    'On recherche la première ligne libre
    For i = 12 To 5000
 
        If Range("A" & i) = "" Then
            l = i
           Exit For
       End If
 
    Next
 
    'On renseigne la ligne
    Range("A" & l).Value = TextBox1.Value
    Range("B" & l).Value = ComboBox1.Value
    Range("C" & l).Value = TextBox2.Value
    Range("D" & l).Value = ComboBox2.Value & "/" & ComboBox3.Value & "/" & ComboBox4.Value
    Range("E" & l).Value = TextBox3.Value
    Range("F" & l).Value = ComboBox5.Value
    Range("G" & l).Value = TextBox4.Value
    Range("H" & l).Value = TextBox5.Value
    Range("I" & l).Value = TextBox6.Value
    Range("J" & l).Value = IIf(CheckBox1, "OUI", "NON")
    Range("K" & l).Value = TextBox7.Value
    Range("L" & l).Value = TextBox8.Value
 
    'Classement des données par prestataire
    Call Tri_par_prestataire
 
    'Fermeture de la fenêtre
    Unload Me
 
End Sub