reset de textbox

Bonjour,

Private Sub B_raz_Click()
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
End Sub

JB

On 25 fév, 00:59, "robert martin" <robert-mar...@sympatico.ca> wrote:

Bonjour a tous

J'ai un userform avec quelque textbox et je voudrais que lorsque je click
sur valider, mes textbox soit vierge et prêt a recevoir de nouvelle do nnée

j'ai fais quelque recherche sur le forum ainsi que des sites sur excel
et je n'ai rien trouver

quelqu'un aurais t'il ces quelques ligne de code

merci a l'avance

Robert

Bonjour JB

Excuse mon ignorance mais je suis débutant en code et je sais pas trop ou
mettre tes lignes de code
j'ai placer tes lignes a la fin de mon "Private Sub
CommandButton1_Click()" apres la ligne du ComboBox4.Text
et ça marche pas ??? ou dois-je placer tes lignes
merci de ta compréhension

Robert

PS: voici les lignes de mon userform

Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value = Me.TextBox2
Feuil1.Range("a65000").End(xlUp).Offset(0, 1).Value =
uf_strat.TextBox3.Text
Feuil1.Range("a65000").End(xlUp).Offset(0, 2).Value =
uf_strat.TextBox5.Text
Feuil1.Range("a65000").End(xlUp).Offset(0, 3).Value =
uf_strat.TextBox4.Text
Feuil1.Range("a65000").End(xlUp).Offset(0, 4).Value =
uf_strat.ComboBox1.Text
Feuil1.Range("a65000").End(xlUp).Offset(0, 5).Value =
uf_strat.TextBox6.Text
Feuil1.Range("a65000").End(xlUp).Offset(0, 6).Value =
uf_strat.ComboBox2.Text
Feuil1.Range("a65000").End(xlUp).Offset(0, 7).Value =
uf_strat.ComboBox4.Text

End Sub
__________________________________________________________________________________________________________________________

Private Sub UserForm_Initialize()
TextBox2.Value = Format(Now, "dd/mm/yyyy")
End Sub
__________________________________________________________________________________________________________________________
Private Sub textbox2_Enter()
F_calendrier1dateForm.Show
End Sub
___________________________________________________________________________________________________________________________




"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1172379515.507783.259090@q2g2000cwa.googlegroups.com...
Bonjour,

Private Sub B_raz_Click()
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
End Sub

JB

On 25 fév, 00:59, "robert martin" <robert-mar...@sympatico.ca> wrote:

Bonjour a tous

J'ai un userform avec quelque textbox et je voudrais que lorsque je click
sur valider, mes textbox soit vierge et prêt a recevoir de nouvelle
donnée

j'ai fais quelque recherche sur le forum ainsi que des sites sur excel
et je n'ai rien trouver

quelqu'un aurais t'il ces quelques ligne de code

merci a l'avance

Robert