[VBA]Un clic sur une textbox=text selectionné
Résolu
lml-mike
Messages postés
449
Date d'inscription
Statut
Contributeur
Dernière intervention
-
Ghost -
Ghost -
Bonjour,
J'aurais voulu savoir s'il existait un code en VBA qui permettrait en cliquant une seule fois sur une textbox de selectionner TOUT le texte présent à l'intérieur ayant précédemment été généré.
Précisions :
- la textbox est verrouillée
- La macro ctrl+a sur un textbox_click() ne fonctionne pas
- le texte est du multi-ligne et se présente sous la forme :
----------------------------------------
|blablablablablablablabla_____|
|blablablabla_____________|
|blablabla_______________|
|blablablablablablabla_______|
----------------------------------------
(je sais, je suis un maître en ascii et mes textboxs sont magnifiques :P)
merkiiiiiiii :-)
J'aurais voulu savoir s'il existait un code en VBA qui permettrait en cliquant une seule fois sur une textbox de selectionner TOUT le texte présent à l'intérieur ayant précédemment été généré.
Précisions :
- la textbox est verrouillée
- La macro ctrl+a sur un textbox_click() ne fonctionne pas
- le texte est du multi-ligne et se présente sous la forme :
----------------------------------------
|blablablablablablablabla_____|
|blablablabla_____________|
|blablabla_______________|
|blablablablablablabla_______|
----------------------------------------
(je sais, je suis un maître en ascii et mes textboxs sont magnifiques :P)
merkiiiiiiii :-)
3 réponses
-
Yep salut!
Test ça :
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
Text1.SelLength = Len(Text1.Text)
End Sub
C'est good?
A+!-
Ce code ne sélectionne le texte qu'à partir de l'endroit du clic.
Pour sélectionner le texte depuis le début, il faut rajouter un Selstart :
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
Text1.SelStart = 0 'début de la TextBox
Text1.SelLength = Len(Text1.Text)
End Sub
-
-
up...
Personne ne sait ? :s -
up ! :)
