Satané probleme de focus

bonjour a tous

sur le fichier joint quand j'ouvre l'unserform

je rentre un nombre en T3 puis je clique sur "ajouter" tout et parfait le nombre vient se mettre en L11 puis le focus se met en T3

mais si je clique sur la touche entrer du clavier le nombre se met en L11 mais je n'arrive pas a avoir le focus sur T3

idem si je supprime une ligne je per le focus sur T3

amicalement

re

en fouinant sur le web j'ai trouvé cela qui fonctionne "mais car il y a un mais" cela me bloque le double clik pour inscrire le résultat sur mon userform

Private Sub T3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If T3.Value = "" Then Cancel = True
End Sub

amicalement

quelqu'un aurais t'il l'amabilité de m'expliquer pourquoi quand j'arrive a la fin de ce code ( end sub) je n'arrive pas a garder le focus sur T3

Private Sub T3_KeyDown(ByVal KeyCode As ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Bt1_Click
        DoEvents
    End If
        T3.SetFocus
End Sub

amicalement

oups

en début de post il fallait voir bonjour a tous

Bonjour,

rajoute KeyCode = 0 après Do Events

ça devrait fonctionner

Private Sub T3_KeyDown(ByVal KeyCode As ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Or KeyCode = 9 Then    '13 pour Enter --- 9 pour Tab
        Bt1_Click
        DoEvents
        KeyCode = 0
    End If
        T3.SetFocus
End Sub

voilà

merci bcp

cela fonctionne parfaitement

amicalement