Discussion :

[thomasdu40]

Bonjour,

J'ai créé un userform avec différentes zones à compléter (TextBox, Combobox,...). Ce Userform possède deux boutons (Valider, Annuler). Je voudrai rajouter un troisième bouton intitulé Effacer.

Le rôle de ce bouton effacerait tout ce qui est marqué dans les différentes zones du Userform. Comment dois-je m'y prendre ?

J'ai testé avec ce code que j'ai affecté au troisième bouton mais il n'efface pas les données.

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton3_Click()
Dim Confirm As Single
Confirm = MsgBox("Si vous annulez la procédure, vous perdrez toutes les données d'entrées." & "Etes-vous sûr de vouloir continuer?", vbYesNo + vbCritical, "abandon de la procédure")
If Confirm = vbYes Then
UserForm1.Hide
Exit Sub
End If
End Sub

Faut-il que j'utilise ClearContents ?

Voici le code présent dans le bouton Valider :

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
Private Sub CommandButton1_Click()
With Worksheets(1)
derlign = .Range("a65536").End(xlUp).Row + 1
            .Cells(derlign, 1).Value = TextBox1
            .Cells(derlign, 2).Value = TextBox2
            .Cells(derlign, 3).Value = TextBox3
            .Cells(derlign, 4).Value = TextBox4
            .Cells(derlign, 5).Value = ComboBox1
            .Cells(derlign, 6).Value = ComboBox2
            .Cells(derlign, 7).Value = ComboBox3
            .Cells(derlign, 8).Value = TextBox5
            .Cells(derlign, 9).Value = TextBox6
            .Cells(derlign, 10).Value = TextBox7
            .Cells(derlign, 11).Value = TextBox8
            .Cells(derlign, 12).Value = TextBox9
            .Cells(derlign, 13).Value = ComboBox5
            .Cells(derlign, 14).Value = ComboBox4
            .Cells(derlign, 15).Value = TextBox10
            .Cells(derlign, 16).Value = TextBox11
            .Cells(derlign, 17).Value = ComboBox8
            .Cells(derlign, 18).Value = TextBox12
            .Cells(derlign, 19).Value = IIf(CheckBox1, -1 * CheckBox1, "")
            .Cells(derlign, 20).Value = IIf(CheckBox2, -1 * CheckBox2, "")
            .Cells(derlign, 21).Value = IIf(CheckBox3, -1 * CheckBox3, "")
            .Cells(derlign, 22).Value = IIf(CheckBox4, -1 * CheckBox4, "")
            .Cells(derlign, 23).Value = IIf(CheckBox5, -1 * CheckBox5, "")
            .Cells(derlign, 24).Value = IIf(CheckBox6, -1 * CheckBox6, "")
            .Cells(derlign, 25).Value = IIf(CheckBox7, -1 * CheckBox7, "")
            .Cells(derlign, 26).Value = TextBox13
            .Cells(derlign, 27).Value = ComboBox6
            .Cells(derlign, 28).Value = TextBox14
            .Cells(derlign, 29).Value = TextBox15
End With
    Select Case MsgBox("La quantité de produit non-conforme que vous avez saisie concerne t'elle uniquement ce produit ?", vbYesNo + vbQuestion, "Attention")
    Case vbYes
    Case vbNo
        UserForm2.Show
    End Select
End Sub

[thomasdu40]

J'ai trouvé,

Après recherche voici le code. Bien sur le code est à associé au bouton effacer. Ci-joint aussi une image du formulaire regroupant TextBox, ComboBox, CheckBox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim c As Control
For Each c In Me.Controls
     Select Case TypeName(c)
        Case "TextBox"
         c.Value = ""
        Case "CheckBox"
         c.Value = False
        Case "ListBox", "ComboBox"
         c.ListIndex = -1
     End Select
Next c