Texte par défaut dans TextBox

Résolu
Utilisateur anonyme -  
fabien25000 Messages postés 697 Statut Membre -
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

  1.
    fabien25000 Messages postés 697 Statut Membre 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
    1. fabien25000 Messages postés 697 Statut Membre 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
    2. Utilisateur anonyme
       
      Merci bien fabien
      0
      1. fabien25000 Messages postés 697 Statut Membre 59 > Utilisateur anonyme
         
        Pas de quoi, passe le sujet en résolu si c'est bon pour toi
        a+
        0

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses