Effacer tous les textbox

[joss56]

Bonjour à tous,

Je souhaite effacer le contenu de tous les textbox d'un formulaire. J'ai essayé ça mais ça ne fonctionne pas...

Private Sub CommandButton1_Click()

Dim ctl As Control

    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            ctl.Text = ""
        End If
    Next ctl
            
End Sub

Merci de vos éclaircissements

Jocelyn

 

[kjin]

Re : Effacer tous les textbox

Bonjour,

Private Sub CommandButton1_Click()
Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl)="TextBox" Then ctl = ""
    Next ctl  
End Sub

A+
kjin

 

[joss56]

Re : Effacer tous les textbox

Salut Kjin

Génial! Mais quelle est la différence entre Typeof et TypeName ?

Merci bcp

 

[kjin]

Re : Effacer tous les textbox

Re,

Private Sub CommandButton1_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Then ctl = ""
Next
End Sub

L'explication ici
Ce lien n'existe plus
A+
kjin

 

[joss56]

Re : Effacer tous les textbox

Merci et bon week end

Jocelyn