Bonjour,

J'ai fait ce code qui permet l'initialisation de plusieurs chose à l'initialisation de l'UserForm.
Je n'arrive pas à faire en sorte que le curseur soit dans le TxtBox T1 dès l'ouverture. J'ai pourtant mis le code qui fallait, mais rien n'y fait.

J'ai bien 0 dans les propriétés du TextBox - TabIndex
Merci de m'apporter votre éclairage.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
UFact.T1.SetFocus
Sinon voici le code complet :
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub UserForm_Initialize()
Unload UFConsult
Unload UFEngt
Unload UFsign
 
    UFact.T1.SetFocus
 
Dim vCellule As Object
    For Each vCellule In Sheets("Tiers").Range("NumT")
        If vCellule.Value <> "" Then UFact.T10.AddItem vCellule.Value
    Next
 
    For Each vCellule In Sheets("Bât").Range("NomBat")
        If vCellule.Value <> "" Then UFact.T11.AddItem vCellule.Value
    Next
 
    For Each vCellule In Sheets("Nom").Range("Noms")
        If vCellule.Value <> "" Then UFact.T9.AddItem vCellule.Value
    Next
    UFact.T10.ListIndex = -1
    UFact.T11.ListIndex = -1
    UFact.T9.ListIndex = -1
    UFact.T1 = ""
    UFact.T2 = ""
    UFact.T3 = ""
    UFact.T4 = ""
    UFact.T5 = ""
    UFact.T6 = ""
    UFact.T7 = ""
    UFact.T8 = ""
    UFact.T9 = ""
    UFact.T10 = ""
    UFact.T11 = ""
    UFact.T12 = ""
    UFact.L1.Clear
 
End Sub