[VBA]Un clic sur une textbox=text selectionné
Résolu
lml-mike
Messages postés
455
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 :-)
A voir également:
- Vba textbox.text
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
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+!
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+!
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