Discussion :

[totow]

Bonjour a tous !

Je suis en train d’élaborer un Userform lié a tout un tas de macro, et je me demandais si il était possible de prédéfinir un texte par défaut dans les TextBox

Cela donnerait quelque chose comme ceci :



J'ai cherché dans les propriétés des TextBox mais malheureusement je n'ai rien trouvé de concluant


Merci d'avance de votre aide !

[Invité]

Bonjour,

[totow]

Merci de la rapidité de la reponse !
Malheureusement j'avais deja trouvé ce paramètre mais je voudrais quelque chose plus comme un papier peint, ou l'utilisateur ne pourras pas interagir avec les caractères
Il pourra simplement ecrire ses valeurs par dessus

On trouve ce principe sur plusieurs sites, comme celui ci :




et des lors que l'on écris dessus, le fond disparaît:

[Quentin77170]

Salut

C'est du bidouillage, mais essaye ça :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub TextBox1_Enter()
If TextBox1.Text = "Nom" Then TextBox1.Text = "": TextBox1.ForeColor = vbBlack
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Then TextBox1.Text = "Nom": TextBox1.ForeColor = RGB(200, 200, 200)
End Sub

Je viens d'essayer chez moi, ça marche très bien

EDIT : j'ai oublié que tu dois tout rentrer en gris au début (via l'éditeur visuel du UserForm), soit le mettre dans l'événement :

Code :

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

1
2
3
Private Sub UserForm_Initialize()
TextBox1.Text = "Nom": TextBox1.ForeColor = RGB(200, 200, 200)
End Sub

[totow]

Merciiiiiii beaucoup, c'est exactement ce que je recherchais !

Aha t'en fais pas je me doutais bien que ça allait être une bidouille du genre

Et bien encore merci a toi, sur ce bonne journée