Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Effacer contenu d'un TextBox en cliquant dedans

  • Initiateur de la discussion Initiateur de la discussion MisterT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MisterT

XLDnaute Occasionnel
Bonjour à chacun,

À l'ouverture d'un UserForm, une valeur par défaut est attribué au TextBox1.

Je voudrais qu'au moment où l'usager clique dans le TextBox1 pour y changer la valeur, que le contenu de celui-ci s'efface automatiquement pour éviter que l'usager ait à sélectionner (surligner) la valeur présente pour ensuite y entrer la valeur désirée.

Quel serait donc le code pour Effacer le contenu du TextBox1 en cliquant dedans ?

Merci à celui qui choisira de m'aider !

MisterT 🙂
 
Re : Effacer contenu d'un TextBox en cliquant dedans

Bonjour MisterT,

Code:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1 = ""
End Sub

Bonne journée
Guiv
 
Re : Effacer contenu d'un TextBox en cliquant dedans

Bonjour Guiv 🙂

Merci beaucoup pour le code, c'est très apprécié !

En tant que très peu connaissant dans les VBA, j'aimerais savoir quel est la fonction et l'importance d'avoir la partie entre parenthèses dans le code ?;

Code:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Merci et bonne journée,

MisterT🙂
 
Re : Effacer contenu d'un TextBox en cliquant dedans

Bonjour


MisterT
Lien supprimé 🙄

Le réflexe salvateur : ALT+F11+F1

En l'occurrence les parenthèses ici se mettent toutes seules ...

et tu n'y peux rien changer (ou si peu ... )
 
Re : Effacer contenu d'un TextBox en cliquant dedans

Bonjour Staple1600,

Pardonne-moi mon ignorance en VBA Excel mais je ne comprenais pas où je devais faire ce fameux ALT+F11+F1, j'ai fait quelques essais et je crois que tu fais référence à l'outil d'assistance, est-ce bien cela ?

Merci et bonne journée,

MisterT🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…