[VBA-E]Avoir le focus sur un combobox ouvert

Version imprimable

13/10/2006, 15h25
Lexot2

[VBA-E]Avoir le focus sur un combobox ouvert

8-) Bonjour

J'ai un Userform avec un combobox comportant une liste de fournisseurs. J'ai le focus sur la combo avec le code :

Code:

ComboBox1.SetFocus

Cela marche bien avant l'ouverture de l'userform. à l'activation, mais quand l'userform est déjà ouvert ce code ne fonctionne plus.
Bien sur, je peux fermer et réouvrir l'userform, mais cette méthode me déplait (bricolage)

J'ai cherché dans la FAQ et sur les tutos mais rien! Alors, s'il vous plait, aidez-moi à retrouver ce focus perdu!!!

Cordialement
13/10/2006, 18h51
SilkyRoad

bonsoir

Citation:

mais quand l'userform est déjà ouvert ce code ne fonctionne plus

d'ou lances tu cette procédure?
le ComboBox est placé dans un Frame?

bon week end
michel
14/10/2006, 02h46
Lexot2

8-) Bonjour

Je veux lancer ma procédure à partir de "Worksheet_SelectionChange". Car quand je clique, l'userform perd le focus qui se retrouve sur la cellule cliquée. Car je n'ai trouvé que ce moyen de lancer ma procédure évènementielle.

Je ne sais pas la lancer à partir de la frappe des 1ers caractères, d'ailleurs sur le forum, je n'ai pas reçu d'aide dans ce domaine, et mes nombreuses recherches n'ont pas abouti. Je suppose que c'est compliqué, et que le jeu ne vaut pas la chandelle! Merci d'avance...

Cordialement

8-) Bonjour

Voici mon programme sur 4 niveaux. Il comporte un useform avec un combo, et 3 boutons (valider annuler et autoriser/bloquer)
Au niveau du userform (1) :

Code:

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Public co1 As Integer: Public li1 As Integer
Dim fourn As String: Dim a2 As Boolean
 
Private Sub CommandButton1_Click()
' Bouton Valider choix
 
If a1 = False Then
 
Worksheets("Feuil1").Activate
UserForm1.Hide
Application.ScreenUpdating = False
'
fourn = ComboBox1.Value
 
li1 = ActiveCell.Row
Cells(li1, 1).Value = fourn
 
Cells(li1 + 1, 1).Activate
 
End If
End Sub
 
 
Private Sub CommandButton2_Click()
' Bouton Annuler
 
If a1 = False Then
UserForm1.Hide
End If
End Sub
 
 
Private Sub CommandButton3_Click()
'  Bouton Bloquer/Autoriser
 
If a2 = False Then
a2 = True: a1 = True
CommandButton3.Caption = "Bloquer"
 
Else
a2 = False: a1 = False
CommandButton3.Caption = "Autoriser"
 ComboBox1.SetFocus
End If
 
End Sub
 
Private Sub UserForm_Activate()
 
Worksheets("Feuil1").Activate
co1 = ActiveCell.Column: li1 = ActiveCell.Row
If co1 = 1 Then
 
    Me.ComboBox1.ListIndex = -1
    ComboBox1.SetFocus
End If
 
End Sub
 
Private Sub UserForm_Initialize()
 
Me.ComboBox1.RowSource = "Feuil2!A1:A" & Sheets("Feuil2").Cells(1, 1).End(xlDown).Row
 
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
If a2 = False Then
    Cancel = False
Else
    Cancel = True
End If
 
End Sub

Au niveau de la feuille (2) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public co1 As Integer
Public li1 As Integer
 
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Worksheets("Feuil1").Select
co1 = ActiveCell.Column: li1 = ActiveCell.Row
If a1 = False Then
    If co1 = 1 Then
        UserForm1.Show
    End If
End If
 
End Sub

Au niveau du module (3) :

Code:

Public a1 As Boolean

La feuil2 comporte 4 fournisseurs à insérer dans la combo de A1 à A4 (4) :

Code:

1
2
3
4
Arquié-Composants
L'Impulsion
Radiospares
Sélectronic

Cordialement

bonjour

tu peux essayer

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '
    '
    '
    UserForm1.ComboBox1.SetFocus
    UserForm1.Show
    '
    '
End Sub

michel

14/10/2006, 21h32
Lexot2

8-) Bonsoir

ça ne marche pas! c'est pire qu'avant parce-que le focus, on ne l'a jamais...
Ce qu'il me faut, c'est un code qui force l'userform à se réactiver dans le "selection change". J'ai le focus à l'activation, donc ça marcherait. On pourrait obliger l'userform à se réinitialiser, et ça fonctionnerait aussi. Merci beaucoup pour ton aide

Cordialement
15/10/2006, 06h56
SilkyRoad

bonjour

quelle version d'Excel utilises tu?

chez moi ça fonctionne (Excel2002)

michel
15/10/2006, 19h20
Lexot2

8-) Bonsoir

J'ai Excel 2003. J'essaie de trouver un moyen, mais toujours pas de focus! L'activation est automatique à l'ouverture du userform, mais comment peut-on la forcer par un code? Encore merci de ton aide...

Cordialement
15/10/2006, 20h20
dadavyvy

Et si tu mettais le focus sur le Combobox avant de quitter la forme dans le QueryClose?
15/10/2006, 22h46
Lexot2

8-) Bonjour

Je perds le focus en cliquant sur une cellule. Alors, je ne peux utiliser le QueryClose car l'userform est ouvert.

Cordialement