Discussion :

[Ender]

Bonjour,
Pour le moment, lorsque que j'écris quelque chose dans Texte1 et que j'appuie sur Entrée, le texte contenu dans Texte1 est copié dans Texte2 comme l'indique mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Texte1_KeyDown(KeyCode As Integer, Shift As Integer)
'si touche Entrée,
    If KeyCode = vbKeyReturn Then
        Texte2= Texte2 & Texte1.Text
        KeyCode = 0     'annuler l'effet de la touche Entrée
    End If
End Sub

J'ai mis KeyCode=0 pour que Texte1 ne perde pas le focus.

Ma question est : comment faire pour que quand j'appuie sur Entrée, et après avoir copié Texte1 dans Texte2, tout le texte de Texte1 soit selectionné ?

Merci

[User]

Slt,

tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Texte1_KeyDown(KeyCode As Integer, Shift As Integer)
'si touche Entrée,
    If KeyCode = vbKeyReturn Then
        Texte2= Texte2 & Texte1.Text
        KeyCode = 0     'annuler l'effet de la touche Entrée
 
    Texte1.SelStart = 0
    Texte1.SelLength = Len(Texte1.Text)
    End If
 
End Sub

@+

[Ender]

Merci User