Selection texte dans textbox

[tuonoman]

Est il possible de sélectionner le texte indiqué par défaut dans un textbox quand je clic dessus.

Merci de votre aide

 

[PIEDEPLOMB33]

Re : Selection texte dans textbox

Bonjour

Personnellement je le ferais avec un double click (on clique parfois à tort)
Tu peux t'inspirer avec ce code
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i
i = TextBox1.Value
MsgBox i
End Sub

Cordialement

 

[Dull]

Salut tuonoman, le Forum

A l'Initialize de l'UserForm colle y ce code

Private Sub UserForm_Initialize()
With Me.TextBox1
    .Text = "LeMotQueTuVoudras"
    .SelStart = 0
    .SelLength = Len(.Text)
End With
End Sub

A l'ouverture de L'UserForm le Texte "LeMotQueTuVoudras" sera séléctionné
Avec Un click ...je ne sais pas... peut être avec un Double Click 🙂

EDITION: Salut Piedeplomb33
Bonne Journée

 

[tuonoman]

Re : Selection texte dans textbox

Je te remercie de ta réponse, mais le but de ma demande est de sélectionnerr le texte mis par défaut dans un textbox afin de le remplace par un autre.
Dans le principe je clic sur le textbox , le texte ce sélectionne, et je tape un autre texte , qui doit théoriquement effacer l’ancien.
Très Cordialement

 

[tuonoman]

Re : Selection texte dans textbox

Ok merci je teste

 

[tuonoman]

Re : Selection texte dans textbox

Le texte apparait bien dans la cellule mais il n'est pas sélectionner par défaut ( grisé )
merci de ton aide

 

[Dull]

Re : Selection texte dans textbox

Re le Fil

Qu'appelle-tu grisé? Chezmoic'estbleu 😀

Essaye le fichier joint dans mon dernier post
si c'est pas le cas... réitère ta question car là je ne vois pas

Bonne Journée

 

[tuonoman]

Re : Selection texte dans textbox

Comprend pas le mot est bien affiché mais pas Grisé ( ou bleuté comme tu veux )😉
voir fichier joint

 

[Hervé]

Re : Selection texte dans textbox

Bonjour ^^

la seule solution que je connaisse pour selectionner le texte d'un textbox à chaque sélection de la souris, c'est de detecter le clic de la souris grace à l'evenement mouse_up :

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With TextBox1
    .SelStart = 0
    .SelLength = Len(.Value)
End With
End Sub

c'est pas gégène, mais j'ai jamais trouvé mieux ^^

bye

 

[Dull]

Re : Selection texte dans textbox

Salut tutonam, Salut Hervé 🙂

c'est pas gégène, mais j'ai jamais trouvé mieux

C'est du n'importe quoi mais pour moi c'est génial maisouvatucherchertousça!!! 😛

Pour que dans ton fichier cela marche tutonam il faut 2 choses

1/

With Me.TextBox[COLOR=Red][B]5[/B][/COLOR] ' et non [B][COLOR=Red]Textbox4[/COLOR][/B]
    .Text = "Néant"
    .SelStart = 0
    .SelLength = Len(.Text)
End With

2/ dans les propriétés de ta TextBox5 met le TabIndex à 0 pour que cela Fonctionne

Bonne Journée

 

[tuonoman]

Re : Selection texte dans textbox

OK merci de ton aide cela fonctionne