[XL-2007] Reproduire l'évenement MouseDown avec "Entrée" et "TAB" [Résolu]

[apt]

Bonsoir à tous,

Dans un UserForm, j'ai par exemple deux TextBox.

Le deuxième Textbox2 (tbTr) contient "Tr" comme texte de début.

Quand je clique avec la sourie dans le TextBox, le texte changera en "T", Avec l'événement MouseDown :

Code :

1
2
3
Private Sub tbTr_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tbTr.Text = "T"
End Sub

J'aimerais reproduire le même événement mais avec la touche "Entrée" ainsi que la touche "Tabulation".

Merci de votre aide.

[mercatog]

Utilise l'évènement Enter de ton TextBox

[apt]

Bonsoir mercatog,

J'ai utilisé ce code qui en cas de détection de la frappe des touches "Return" ou "Tab", écrit dans le deuxième Textbox "T" tout en mettant le curseur sur la 2eme position.

Code :

1
2
3
4
5
6
7
8
9
Private Sub tbN_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Or vbKeyTab Then
        With tbTr
            .Text = "T"
            .SelStart = Len(.Text)
            .SetFocus
        End With
    End If
End Sub

Mais voila j'ai un problème :

Lorsque je tape le premier caractère dans tbN (premier Textbox), le curseur est envoyé directement dans le deuxième Textbox (tbTr) sans rien écrire dans tbN

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
Private Sub tbN_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
        With tbTr
            .Text = "T"
            .SelStart = Len(.Text)
            .SetFocus
        End With
    End If
End Sub

[apt]

Le premier problème est résolu, mais un autre à pris place.

Quand j'enfonce la touche tab dans le premier Textbox, le curseur se positionne à la dernière position dans le deuxième Texbox au lieu de la position 2

[apt]

Envoyé par Qwazerty

Salut
Je n'avais pas saisi le fonctionnement désiré.

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub tbN_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
        KeyCode = 0
        With tbTr
            .Text = "T"
            .SelStart = Len(.Text)
            .SetFocus
        End With
    End If
End Sub

Merci Qwazerty, ça marche maintenant.