Mettre les champs d'un formulaire à vide

[mhz]

Bonjour,
j'ai créer un formulaire mais lorsque j'enregistre, les champs ne se remette pas à zéro automatiquement et je dois rentrer un code pour cela.
Pourriez vous m'aider car je ne trouve pas vraiment de solution qui corresponde à mon problème.
Voila le code que j'ai écris :

'Pour le bouton enregistrer
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion de cette nouvelle aide ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
L = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
Range("A" & L).Value = TextBox1
Dim Date1 As Date
Date1 = DTPicker1.Value
Range("B" & L).Value = Date1
Range("C" & L).Value = ComboBox1
Range("D" & L).Value = ComboBox2
Range("E" & L).Value = ComboBox3
Dim Date2 As Date
Date2 = DTPicker2.Value
Range("F" & L).Value = Date2
Range("G" & L).Value = TextBox4
Range("H" & L).Value = TextBox5
Dim Date3 As Date
Date3 = DTPicker3.Value
Range("I" & L).Value = Date3
Range("J" & L).Value = TextBox7
Range("K" & L).Value = TextBox8
Range("L" & L).Value = TextBox9
Range("M" & L).Value = TextBox10
Range("N" & L).Value = TextBox11
Range("O" & L).Value = TextBox12
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is TextBox Then
Me.Ctrl.Value = ""
End If
Next Ctrl
End Sub

Cela ne fonctionne pas. Est ce que je dois créer un nouveau bouton qui m'efface les données ?

Merci d'avance !

 

[Paf]

Re : Mettre les champs d'un formulaire à vide

Bonjour

essayer cette modification

If TypeOf Ctrl Is msforms.TextBox Then Ctrl.Value = "" sans End If

A+