XL 2019 Besoin d'aide "TextBox" changement de couleur suite au enter

[YAP32]

Bonjour à tous,


A l'ouverture d'une UserForm, le champ de TextBox contienne un texte par défaut comme information à entrer exemple ici "Nom et prénom" en couleur gris clair , mais quand je clic ou quand je saisie avec le clavier le TextBox change de couleur (couleur de choix ici rouge foncé)ce qui est OK.

Mais mon soucis c'est que je ne parviens pas à écrire plus qu'une lettre et y a t il moyen de raccourcir le code ?

Pourriez vous m'aider svp.

Merci d'avance
@+

 

[Compte Supprimé 979]

Bonjour Yap32

Il faut supprimer la 1ère ligne dans l'évènement KeyPress, sinon vous remettez systématiquement votre TextBox à zéro

De plus dans le fichier donné, vos Textbox contient des espaces par défaut (propriété .Value)

A+

 

[YAP32]

Bonjour Yap32

Il faut supprimer la 1ère ligne dans l'évènement KeyPress, sinon vous remettez systématiquement votre TextBox à zéro

De plus dans le fichier donné, vos Textbox contient des espaces par défaut (propriété .Value)

A+

Merci pour votre solution et l'information.
@+

 

[Eric C]

Bonjour le forum
Bonjour YAP32, Bruno

Pour coller au plus près de ce que tu désirais dans le post#1 :

Private Sub UserForm_initialize()
   TextBox1.Value = "Veuillez saisir vos Nom & Prénom"
 TextBox1.SetFocus
 TextBox1.SelStart = 0
TextBox1.SelLength = Len(Me.TextBox1)
 End Sub

Lorsque tu entres les valeurs, la phrase disparaît.

Ou alors tu mets ta phrase "Veuillez saisir vos nom & prénom" dans la propriété "ControlTipText - Ainsi, lors du survol de ton TextBox, la phrase apparaitra.

Joyeux Noël à toutes & à tous
@+ Eric c

 

[YAP32]

Bonjour le forum
Bonjour YAP32, Bruno

Pour coller au plus près de ce que tu désirais dans le post#1 :

Private Sub UserForm_initialize()
   TextBox1.Value = "Veuillez saisir vos Nom & Prénom"
 TextBox1.SetFocus
 TextBox1.SelStart = 0
TextBox1.SelLength = Len(Me.TextBox1)
 End Sub

Lorsque tu entres les valeurs, la phrase disparaît.

Ou alors tu mets ta phrase "Veuillez saisir vos nom & prénom" dans la propriété "ControlTipText - Ainsi, lors du survol de ton TextBox, la phrase apparaitra.

Joyeux Noël à toutes & à tous
@+ Eric c

Bonjour Eric,

C'était résolu.

Merci et Joyeux Noël à toutes & à tous

@+