Après avoir saisi et enregistré une phrase, vous voulez vous assurer que le contenu de tous les champs de texte peut être supprimé si nécessaire. Pour ce faire, double-cliquez sur le bouton FERMER dans l’UserForm. Ensuite, écrivez la macro suivante.
Private Sub CommandButton3_Click ()
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName (tb) = "TextBox" Then tb.Text = ""
Next tb
End Sub
Private Sub CommandButton3_Click ()
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName (tb) = "TextBox" Then tb.Text = ""
Next tb
End Sub
Private Sub CommandButton3_Click () Dim tb As Object For Each tb In UserForm1.Controls If TypeName (tb) = "TextBox" Then tb.Text = "" Next tb End Sub
Commencez par déclarer une variable d’objet afin de pouvoir ensuite parcourir l’UserForm dans une boucle For Each et la nettoyer.