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
@+
Pièces jointes
test.xlsm
15.9 KB · Affichages: 6
Solution
C
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)
Pour coller au plus près de ce que tu désirais dans le post#1 :
VB:
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.
Pour coller au plus près de ce que tu désirais dans le post#1 :
VB:
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.