Discussion :

[NEC14]

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

[NEC14]

Je pense avoir trouvé d'où vient l'erreur. Le UserForm n'est pas en modal.

Alors peut-on remettre le modal automatiquement après l'affichage de la feuille de calcul.

Voici le code qui me permet d'afficher l'UserForm. Ici, seul l'UserForm s'affiche mais pas ma feuille de calcul ("Factures"), elle ne s'affiche que si je ferme l'UF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton3_Click()
Dim Ash As Worksheet
Load UFact
Sheets("Factures").Visible = True
    For Each Ash In ThisWorkbook.Sheets
    'masque les feuilles si nom différent de "Factures"
        If Ash.Name <> "Factures" Then Ash.Visible = xlSheetVeryHidden
    Next Ash
    Sheets("Factures").Activate
UFact.Show
End Sub

[Invité]

bonjour,

Ça n’a rien à voir, ça doit marcher modal ou pas
Peux-tu te positionner dessus, et entrer du texte ?
Si le TabIndex de ce contrôle est =0 le focus devrait ce faire tout seul !
Ajoute et click sur le UserForm pour tester la prise de focus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Click()
t1.SetFocus
End Sub

[NEC14]

Lorsque je clique sur l'UF effectivement le focus est bien en T1, mais je suis obligé de cliquer, hors ce que je souhaite faire c'est que lorsque l'utilisateur ouvre l'UF qu'il n'est pas à cliquer, que le curseur soit directement en T1

Petit rectificatif : il faut que je clique dans T1 pour que le curseur apparaîsse

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Mes-le à la fin du (n’y aurait-il pas des événement Private Sub ???_Change())
Private Sub UserForm_Initialize()
Code…
 
UFact.T1.SetFocus
End sub

[Invité]

Je suis surpris je viens de positionner propriété ShowModal à false et effectivement le focus Boum je viens d’apprendre qq chose je ne le savais pas. Avant pas de problème !!!!