Remettre la value à ""

ComboBox1 = Clear

[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]

ListBox1.listindex=-1