Userform Combobox: se positionner sur un élément

[MJ13]

Bonjour à tous

Je fais des tests actuellement sur des comboboxs dans un userform.

Je voudrais à l'initialisation me positionner sur le combobox au niveau n, de façon à ne pas avoir à recliquer sur les N combobox pour gagner du temps en développement.

Quel est le code VBA?

Merci pour le coup de pouce 🙂.

 

[Pierrot93]

Re : Userform Combobox: se positionner sur un élément

Bonjour Michel🙂

regarde peut être ceci :

Private Sub UserForm_Activate()
With ComboBox1
    .DropDown
    .TopIndex = 3
End With
End Sub

bonne journée
@+

 

[laetitia90]

Re : Userform Combobox: se positionner sur un élément

bonjour MJ13 utiliser listindex??

ComboBox1.ListIndex = x

bonjour Pierrot🙂

 

[Pierrot93]

Re : Userform Combobox: se positionner sur un élément

Re,

tu as aussi ceci :

Private Sub UserForm_Initialize()
With ComboBox1
    .List = Range("A1:A10").Value
    .ListIndex = 3
End With
End Sub

Après tout dépend ce que tu veux au juste...

Edition : bonjour Laetitia

 

[MJ13]

Re : Userform Combobox: se positionner sur un élément

Bonjour Pierrot, Laetitia

Eric pour vos réponses qui m'ont mis sur la voie 🙂.

J'ai fais ce code qui fonctionne.

Il y a peut être plus simple, mais je m'y perd entre ces list, listindex,topindex...😕.

Par contre, il me semble qu'avec le sendkeys, on pouvait mettre un nombre pour répéter le {DOWN} 😕

Private Sub UserForm_Initialize()
'Stop
ActiveSheet.ChartObjects("Graphique 1").Activate
ComboBox1.AddItem "rouge"
ComboBox1.AddItem "Vert"
ComboBox1.AddItem "Bleu"
ComboBox2.AddItem "rouge"
ComboBox2.AddItem "Vert"
ComboBox2.AddItem "Bleu"
ComboBox3.AddItem "rouge"
ComboBox3.AddItem "Vert"
ComboBox3.AddItem "Bleu"
'ComboBox1.TopIndex = 1 '.SetFocus ' = 1
'ComboBox2.ListIndex = 2
'ComboBox3.ListIndex = 3
With ComboBox1
    .DropDown
    '.TopIndex = 3
    Application.SendKeys ("~")
    Application.SendKeys ("{DOWN}")
End With
With ComboBox2
    .DropDown
    '.TopIndex = 3
    Application.SendKeys ("~")
    Application.SendKeys ("{DOWN}")
    Application.SendKeys ("{DOWN}")
End With
With ComboBox3
    .DropDown
    '.TopIndex = 3
    Application.SendKeys ("~")
    Application.SendKeys ("{DOWN}")
    Application.SendKeys ("{DOWN}")
    Application.SendKeys ("{DOWN}")
End With