Initialiser tous les champs de texte dans un formulaire UserForm, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x