XL 2010 Sélectionner et remonter Ligne via Combobox

[cathodique]

Bonjour,

J'ai eu beau chercher. Je n'ai pas trouvé.

Dans mon formulaire, une combobox et une listbox alimentée par un même tableau.

Je voudrai en sélectionnant un item dans la combobox, la ligne correspondante dans la listbox soit remontée tout en haut de la liste
et qu'elle soit sélectionnée via un code.

En vous remerciant.

 

[Gégé-45550]

Bonjour,

J'ai eu beau chercher. Je n'ai pas trouvé.

Dans mon formulaire, une combobox et une listbox alimentée par un même tableau.

Je voudrai en sélectionnant un item dans la combobox, la ligne correspondante dans la listbox soit remontée tout en haut de la liste
et qu'elle soit sélectionnée via un code.

En vous remerciant.

Bonjour,
C'est ça que vous voulez ?
Cordialement,

 

[job75]

Bonjour cathodique, Gégé-45550,

Pour pouvoir faire défiler la ListBox doublons sa hauteur :

Private Sub ComboBox1_Change()
Dim i
i = ComboBox1.ListIndex
ListBox1.TopIndex = i
If i > -1 Then ListBox1.Selected(i) = True
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = [TbA].Value
ListBox1.List = [TbA].Resize(2 * [TbA].Rows.Count).Value 'hauteur doublée
End Sub

Edit : ajouté le test If i > -1 Then

A+

 

[cathodique]

Bonjour,
C'est ça que vous voulez ?
Cordialement,

Bonsoir @Gégé-45550 ,

C'est exactement le résultat escompté. C'est parfait pour moi.
Merci beaucoup.

Bonne soirée.

 

[cathodique]

Bonjour cathodique, Gégé-45550,

Pour pouvoir faire défiler la ListBox doublons sa hauteur :

Private Sub ComboBox1_Change()
Dim i
i = ComboBox1.ListIndex
ListBox1.TopIndex = i
ListBox1.Selected(i) = True
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = [TbA].Value
ListBox1.List = [TbA].Resize(2 * [TbA].Rows.Count).Value 'hauteur doublée
End Sub

A+

Bonsoir @job75 ,

Je t'avoue que je n'y avais même pensé à cette éventualité.
Merci beaucoup. Très intéressante solution.
Là, maintenant j'ai vraiment le choix entre 2 solutions.

Je vous remercie beaucoup.

Excellente soirée.

 

[job75]

Bonjour cathodique, le forum,

Au post #3 j'ai ajouté le test If i > -1 Then sur la 1ère macro.

A+

 

[cathodique]

Bonjour cathodique, le forum,

Au post #3 j'ai ajouté le test If i > -1 Then sur la 1ère macro.

A+

Bonjour Job75,

Pour le moment, le code n'a pas planté. Je ne me suis rendu compte de rien.

Merci beaucoup.