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