Texte par défaut dans TextBox

Résolu
Utilisateur anonyme -  
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, le forum
Dans un UserForm. Je souhaite, qu'un champ TextBox contienne un texte par défaut gris, qui s'enlève dès que l'on sélectionne la TextBox.
Ex : Dans une TextBox, je voudrais afficher "nom et prénom", et dès que l'utilisateur clique dessus pour renseigner son nom, je souhaite que le texte " nom et prénom " disparaisse et le nouveau texte sera en police noir
Est-ce possible ?
Merci pour vos aides
Cordialement

1 réponse

fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
Bonjour,

Un début de code :
Private Sub textbox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If textbox1.Value = "Prénom" Then
    textbox1.Value = ""
    textbox1.ForeColor = vbBlack
End If

End Sub

les valeurs "Nom", "Prénom"...etc en gris seront paramètrés soit sur l'initialize soit directement à la création de l'userform


0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
J'ai répondu sans réfléchir à ta demande "dès que l'utilisateur clique dessus"
le code serait plus judicieux sur l’événement
Textbox1_Enter()
pour éviter que le changement de couleur de la police passe à la trappe si l'utilisateur utilise tabulation pour naviguer d'une textbox à l'autre
0
Utilisateur anonyme
 
Merci bien fabien
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59 > Utilisateur anonyme
 
Pas de quoi, passe le sujet en résolu si c'est bon pour toi
a+
0