Comment avoir le focus ds ComboBox1, au lieu de TextBox2

[Halffy]

re,

Encore une petite requête s'il vous plait:
Dans le fichier ci-joint, le focus se trouve en TextBox2 à l'ouverture de l'UserForm1....
Comment avoir plutôt le focus en ComboBox1 au lieu de la TextBox2 à l'ouverture?

Si le sujet vous inspire / Avec tous mes Remerciements par avance,
Halffy /.

 

[Fred0o]

Re : Comment avoir le focus ds ComboBox1, au lieu de TextBox2

Bonsoir Halffy,

Il te suffit de rajouter la ligne en rouge dans le code.

Private Sub UserForm_Initialize()
   Set f = Sheets("feuil1")
   Set mondicoA = CreateObject("Scripting.Dictionary")
   For Each c In f.Range("A2", f.[A65000].End(xlUp))
     If Not mondicoA.Exists(c.Value) Then mondicoA.Add c.Value, c.Value
   Next c
   Me.ComboBox1.AddItem ""
   For Each i In mondicoA.items
     Me.ComboBox1.AddItem i
   Next
   Me.ComboBox1.ListIndex = 0
   [COLOR=red][B]Me.ComboBox1.SetFocus[/B][/COLOR]
End Sub

A+

 

[Halffy]

Re : Comment avoir le focus ds ComboBox1, au lieu de TextBox2

Bonsoir FredOo,
Merci avant tout de te pencher sur mon problème...
Je viens de faire la modif comme indiqué;
toutefois avant modif le Focus clignotait en TextBox2 /
après modif le Focus ne clignote plus en TextBox2, mais ne clignote pas non plus en ComboBox1 pour autant 🙁 /
Est-ce une propriété de la ComboBox?

Si tu as une autre idée, et si cela est possible bien-sûr?
Merci /.

 

[Fred0o]

Re : Comment avoir le focus ds ComboBox1, au lieu de TextBox2

Re-bonsoir,

Légère modification et Combobox qui s'ouvre toute seule dans le fichier ci-dessous.

A+

 

[Halffy]

Re : Comment avoir le focus ds ComboBox1, au lieu de TextBox2

re, FredOo

Effectivement, légère modif, mais qui me convient parfaitement 🙂
Encore Merci, Bonne soirée, et surtout Bon Week-End 😀
Halffy /.