Comment avoir le focus ds ComboBox1, au lieu de TextBox2

Fred0o

XLDnaute Barbatruc

• 12 Mars 2010

• #2

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.

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+

 

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 12 Mars 2010

• #3

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 /.

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 12 Mars 2010

• #4

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+

 

Pièces jointes

• Halffy.xls

  36 KB · Affichages: 53
• Halffy.xls

  36 KB · Affichages: 53
• Halffy.xls

  36 KB · Affichages: 50

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 12 Mars 2010

• #5

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 /.

 

Vote positif 0 Vote négatif