Discussion :

[Lexot2]

Bonjour

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

Code :

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

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

[SilkyRoad]

bonsoir

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

[Lexot2]

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

[Lexot2]

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 :

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
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 :

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
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 :

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

Public a1 As Boolean

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

Code :

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

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

Cordialement

[SilkyRoad]

bonjour

tu peux essayer

Code :

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

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

[Lexot2]

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