Discussion :

[NEC14]

Bonjour à tous,

J'ai créé un bouton dans un UserForm sous Vba Excel qui me permet de mettre à blanc toutes les données présentes dans les Combo, TextBox et ListBox de mon User.
Normalement, après l'effacement, la Combo nommée CmbListCred devrait avoir le focus, mais cela ne fonctionnement pas. Cette Combo se trouve dans une Frame (Frame2). C'est une autre Combo qui a le focus.
Pouvez-vous m'aider à résoudre ce soucis.
J'ai inséré mon début de code.
Merci par avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
Dim vNUM As Long
If Sheets("Engagements").Range("A6").Value = "" Then
UFengt.TnumInc.Value = 1
Else
        Sheets("Engagements").Range("A5").End(xlDown).Select
            vNUM = Selection.Value + 1
 
UFengt.TnumInc.Value = vNUM
UFengt.TxtDate = Date
UFengt.CmbListeCred.SetFocus
 
End If

[Yolak]

Bizarre!
Es-tu sûr que la condition de ton If est True ?
Sinon j'vois pas...

[NEC14]

Les conditions sont bonnes. Mais la Combo n'est pas sélectionnée lors de l'effacement.
Est-ce peut-être une erreur de Tabindex dans les propriétés de la Combo ?
Je ne sais pas. J'ai déjà changé les numéro d'index mais sans succès.

[Yolak]

Et si tu mets un point d'arrêt sur

Code :

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

UFengt.CmbListeCred.SetFocus

Il passe bien dessus? Il ne se passe rien quand il passe dessus?
A priori rien a voir avec les TabIndex puisque tu lui demande de mettre le focus sur l'objet précisément.

Tu veux juste le focus ou tu veux cocher la case ?

Peut-être que tu pourrais nous mettre le code en entier...

[NEC14]

Voici le code entier. Sinon j'ai tout essayé, mais sans solution.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Private Sub CommandButton1_Click()
Dim vNUM As Long
If Sheets("Engagements").Range("A6").Value = "" Then
UFengt.TnumInc.Value = 1
Else
        Sheets("Engagements").Range("A5").End(xlDown).Select
            vNUM = Selection.Value + 1
 
UFengt.TnumInc.Value = vNUM
UFengt.TxtDate = Date
UFengt.Frame2.CmbListeCred.SetFocus
 
End If
 
Dim Vcellule As Object
    UFengt.TxtDate = Date
        For Each Vcellule In Sheets("Credit").Range("NCred")
            If Vcellule.Value <> "" Then UFengt.CmbListeCred.AddItem Vcellule.Value
    Next
        For Each Vcellule In Sheets("Tiers").Range("NumT")
            If Vcellule.Value <> "" Then UFengt.CmbListeTiers.AddItem Vcellule.Value
    Next
        For Each Vcellule In Sheets("Bât").Range("NomBat")
            If Vcellule.Value <> "" Then UFengt.CmbListeBat.AddItem Vcellule.Value
    Next
        For Each Vcellule In Sheets("Nom").Range("Noms")
            If Vcellule.Value <> "" Then UFengt.CmbNom.AddItem Vcellule.Value
    Next
        For Each Vcellule In Sheets("March").Range("Nmarch")
            If Vcellule.Value <> "" Then UFengt.CmbMarche.AddItem Vcellule.Value
    Next
            UFengt.CmbListeCred.ListIndex = 0
            UFengt.CmbListeBat.ListIndex = 0
            UFengt.CmbNom.ListIndex = 0
            UFengt.CmbMarche.ListIndex = 0
            UFengt.CmbListeTiers.ListIndex = 0
            UFengt.CmbListeCred = ""
            UFengt.CmbListeBat = ""
            UFengt.CmbNom = ""
            UFengt.CmbMarche = ""
            UFengt.CmbListeTiers = ""
            UFengt.LstImpu1.Clear
            UFengt.LstImpu2.Clear
            UFengt.LstImpu3.Clear
            UFengt.LstLigne.Clear
            UFengt.LstTiers.Clear
            UFengt.TxtNumDev = ""
            UFengt.TxtDevis = ""
            UFengt.TxtObjet = ""
            UFengt.TxtNum = ""
            UFengt.TxtMontant = "0.00"
            UFengt.TxtNome = ""
End Sub

[mayekeul]

bonjour,

Code :

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

1
2
 
UFengt.Frame2.CmbListeCred.SetFocus

essaye plutot ceci

Code :

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

UFengt.CmbListeCred.SetFocus

petit filou