K
KTRD
Guest
Bonjour à tous,
Cela fait quelques temps déjà que je butte sur un pb qui me semblait simple au premier abord:
Sous excel 97, comment sélectionner tout le texte d'un contrôle de type textbox quand l'utilisateur clique sur ce dernier?
J'ai essayé l'évènement Enter associé au Textbox
mais sans succès. Il doit y avoir une histoire de focus ou autre car la procédure SelectText fonctionne quand je l'appelle depuis un bouton de commande avec le bon argument....
Dans l'attente de vos lumières.
Cordialement.
KTRD
Cela fait quelques temps déjà que je butte sur un pb qui me semblait simple au premier abord:
Sous excel 97, comment sélectionner tout le texte d'un contrôle de type textbox quand l'utilisateur clique sur ce dernier?
J'ai essayé l'évènement Enter associé au Textbox
mais sans succès. Il doit y avoir une histoire de focus ou autre car la procédure SelectText fonctionne quand je l'appelle depuis un bouton de commande avec le bon argument....
Code:
Private Sub TextBox1_Enter()
SelectText (Me.ActiveControl.Name)
End Sub
Private Sub CommandButton1_Click()
SelectText ('TextBox1')
End Sub
Sub SelectText(TheControl As String)
With Me.Controls(TheControl)
.SelStart = 0
.SelLength = Len(Me.Controls(TheControl).Value)
.SetFocus
End With
End Sub
Dans l'attente de vos lumières.
Cordialement.
KTRD