Pour remettre à "zéro" tout ce qu'il y a dans un UserForm :
Code:
[SIZE=3][FONT=Times New Roman]Private Sub B_raz_Click()[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Dim c As Control[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] For Each c In Me.Controls[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] Select Case TypeName(c)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] Case "TextBox"[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] c.Value = ""[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] Case "CheckBox"[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] c.Value = False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] Case "ListBox", "ComboBox"[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] c.ListIndex = -1[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] End Select[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] Next c[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End Sub[/FONT][/SIZE]