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
Partager