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

Commencez par déclarer une variable d’objet afin de pouvoir ensuite parcourir l’UserForm dans une boucle For Each et la nettoyer.