Textbox ativeX

Bonjour,

Je souhaite, que ma TextBox active X contienne un texte par défaut et qui s'enlève dès que l'on sélectionne la TextBox puis se remet une fois efface .

j'ai regarde dans les propriété mais rien .. si vous avez une idée je suis preneur

merci

bonne fin de journée

Bonjour,

En supposant que la textbox est sur une feuille:

Dans la propriété Text ou Value de la textbox écrire le texte voulu.

Dans la feuille de code de la feuille où se trouve la textbox :

Tout en haut déclarer une variable globale à la feuille:

Dim TB as String

puis

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 TB = TextBox1.Text
 TextBox1.Text = ""
End Sub

et

Private Sub TextBox1_LostFocus()
 TextBox1.Text = TB
End Sub

Dans un userform c'est un peu différent puisque la textbox n'a pas alors les mêmes propriétés:

Pas besoin de variable globale:

Private Sub UserForm_Initialize()
TextBox1.Text = "TOTO"
TextBox1.Tag = TextBox1.Text
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 TextBox1.Text = TextBox1.Tag
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 TextBox1.Text = ""
End Sub

Bonne soirée

bonjour AlgoPlus

merci beaucoup c'es ce que je désiré

le sujet et résolu !

Rechercher des sujets similaires à "textbox ativex"