Bonjour le Forum,
Pouvez vous m aider sur ce probleme? A la fin du code ci dessous, comment ecrire : met le curseur sur le texbox2?
Je voudrais selectionner automatiquement le textbox2 aprés execution du code ci dessous.
Merci beaucoup pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Te_SaisieCode_Change()
 
With Sheets(Année)
 
 
Derlig = .Range("A65536").End(xlUp).Row
 
For i = 2 To Derlig
 
    If .Cells(i, 3).Value = Te_SaisieCode Then
        Te_UG.Value = .Cells(i, 4).Value
        Te_Circuit = .Cells(i, 5).Value
        Te_Commune = .Cells(i, 9).Value
        Te_Distance = .Cells(i, 14).Value
        Te_Troncon = .Cells(i, 11).Value
        Te_P1Saisie = .Cells(i, 19).Value
        Te_P2SaisieLievre = .Cells(i, 20).Value
           End If
Next i
End With
 
' Pose du Curseur sur le textBox2
 
End Sub