Texte par défaut en fond dans TextBox d'un UserForm

**teteve45** · 16/08/2010, 16h58

Bonjour à tous,

Je souhaite, à l'ouverture d'une UserForm, qu'un champ TextBox contienne un texte par défaut, qui s'enlève dès que l'on sélectionne la TextBox.
Ex : Dans une TextBox, je voudrais afficher "nom", et dès que l'utilisateur clique dessus pour renseigner son nom, je souhaite que le texte "nom" disparaisse.
L'idéal serait même que le texte "nom" soit en "fond" dans la TextBox.
Est-ce possible ?
(si ce n'est pas assez clair, je préciserais avec un exemple en image)

**Didier Gonard** · 16/08/2010, 17h35

bonjour,

vois dans l'aide VBA à Textbox ses évènements, notamment Enter.

pour le texte d'origine, il suffit de la mettre en dur à la construction ou à l'initialize de l'USF.

Ensuite, il faut jouer des filtres et des différents évènementiels pour maintenir ou non la valeur quand on passe le focus au textbox et qu'il ressort..

Si tu précises sous quelle application tu fais ça, ça serait mieux

cordialement,

Didier

**teteve45** · 16/08/2010, 18h33

Au temps pour moi pour l'info minimum : je suis sous Word et Excel 2003. (j'aurais besoin de le faire sous les 2 applis)
J'ai actuellement une valeur par défaut dans la TextBox ("nom", "prénom"...etc...), mais je voudrais qu'à partir du moment où l'utilisateur place le curseur dans cette TextBox, la valeur par défaut disparaisse. Comme dans des formulaires qu'on trouve un peu partout. Le premier exemple qui me passe par la tête : msn. Quand vous lancez msn, vous avez "saisir l'adresse mail" dans un champ. Vous cliquez dessus, ce texte par défaut disparait pour laisser place à un champ vide.
Quant aux évènements, je n'ai rien trouvé de très probant...

**teteve45** · 17/08/2010, 09h50

Bon, je viens de découvrir l'aide VB sous Word... ^^
Je ne m'en étais encore jamais servie. L'évènement "Enter" correspond effectivement à ce que je cherche. J'ai mis en valeur par défaut de TextBox2 "Tapez votre texte", et en code pour tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox2_Enter()
 If TextBox2.Value = "Tapez votre texte" Then
  TextBox2.Value = ""
 End If
End Sub

Par contre, en regardant d'autres évènements, je ne comprends pas tout...
J'ai regardé par exemple les évènements "MouseMove" et "MouseUp", mais je ne comprends pas trop comment les utiliser. Voici ce qu'indique l'aide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub object_MouseMove( ByVal Button As fmButton, ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub object_MouseUp( ByVal Button As fmButton, ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)

Si quelqu'un pouvait mettre un petit exemple pour expliciter... (Button est défini avant la procédure, et rappelé dans la procédure, ou est juste utilisé dans la procédure... ?...etc...)
Merci d'avance.