Vider toutes les boîtes de texte d'une fiche

J'ai écrit un petit code pour vider toutes les boîtes de texte d'une fiche sans avoir à les effacer une par une.  Malheureusement, ce petit code ne marche pas correctement.  En utilisant le mode Pas à pas, j'ai remarqué que le If donnait faux comme s'il ne détectait pas que mes boîtes de texte étaient vraiment des boîtes de texte.  Pouvez-vous me dire ce qui cloche dans mon code.  Merci!

Public Sub ViderFiches()
Dim Tempo As Control

For Each Tempo In fchDonnees1.Controls
    If TypeOf Tempo Is TextBox Then Tempo = ""
Next Tempo
End Sub

Bonjour,

Si c'est du VBA, essaye avec :

Public Sub ViderFiches()
Dim Tempo As Control

For Each Tempo In fchDonnees1.Controls
    If TypeOf Tempo Is MSForms.TextBox Then Tempo = ""
Next Tempo
End Sub


wape

Bonsoir,
Ce code est valable aussi bien pour VB6, que pour VBA.

Private Sub Command1_Click()
    Dim obj As Object
        For Each obj In Me.Controls
        If TypeName(obj) = "TextBox" Then
         obj.Text = ""
       End If
Next
End Sub

jpleroisse