Texte par défaut dans TextBox

Résolu/Fermé
Utilisateur anonyme - 11 oct. 2018 à 13:53
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 - 11 oct. 2018 à 14:53
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 mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58
Modifié le 11 oct. 2018 à 14:23
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 mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58
11 oct. 2018 à 14:36
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
11 oct. 2018 à 14:50
Merci bien fabien
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58 > Utilisateur anonyme
11 oct. 2018 à 14:53
Pas de quoi, passe le sujet en résolu si c'est bon pour toi
a+
0