UserForm TextBox_Enter action identique sur +sieurs TextBox

Bonjour,

Dans un UserForm j'ai plusieurs TextBox sur lesquels je veux faire la même action pour l'instant je l'écris comme ceci :

'Remet la TextBox1 à blanc

Private Sub TextBox1_Enter()

TextBox1.Value = ""

End Sub

'Remet la TextBox2 à blanc

Private Sub TextBox2_Enter()

TextBox2.Value = ""

End Sub

Mais comme c'est répétitif, je me demande s'il ne serait pas possible d'écrire quelque chose de plus intelligent.

Si vous avez des idées, je suis preneur.

Bonjour,

Dans un module de classe l'évènement "Enter" n'est pas disponible.

Si tu as beaucoup de TextBox, tu peux mettre un bouton "Reset" à qui tu attribut le code ci-dessous :

Private Sub CommandButton1_Click()

    Dim Ctrl As Control

    For Each Ctrl In Me.Controls

        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""

    Next Ctrl

End Sub

Merci Theze,

La fonction Typename() permet de vérifier le type d'une variable, de ce que je comprends.

Je vois l'idée mais ici l'action de remettre à blanc une TextBox se fait en appuyant sur un bouton. J'ai besoin que ce soit le fait de cliquer dans la TextBox qui la remette à blanc.

Après s'il n'est pas possible d'éviter de récrire la même chose plusieurs fois, je peux l'accepter

Bonjour,

Si l'idée est que chaque textbox, de façon indépendante, se vide au clique... le code de ton post #1 et excellent ...

Gelinotte

C'est pas faux finalement.

Désolé pour la perte de temps