Créer un TextBox sur un UserForm et placer le code ci-dessous dans une procédure qui donne le focus au TextBox :
(par exemple sur l'évènement Activate du UserForm)
Private Sub UserForm_Activate()
Me.TextBox1.Value = "Valeur par défaut" 'pour avoir un contenu
Me.TextBox1.SelStart = 0 'se positionne avant le premier caractère
Me.TextBox1.SelLength = Len(Me.TextBox1.Text) 'indique la longueur de la sélection
Me.TextBox1.SetFocus 'donne le focus
End Sub
Aucun commentaire:
Enregistrer un commentaire