XL 2010 Sélectionner et remonter Ligne via Combobox

cathodique · 23 Mai 2024

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 · 23 Mai 2024

cathodique à dit:
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,

Gégé-45550 · 23 Mai 2024

cathodique à dit:
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 · 23 Mai 2024

Bonjour cathodique, Gégé-45550,

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

VB:

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 · 23 Mai 2024

Gégé-45550 à dit:
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 · 23 Mai 2024

job75 à dit:
Bonjour cathodique, Gégé-45550,

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

VB:

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 · 24 Mai 2024

Bonjour cathodique, le forum,

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

A+

cathodique · 24 Mai 2024

job75 à dit:
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.

XL 2010 Sélectionner et remonter Ligne via Combobox

cathodique

XLDnaute Barbatruc

Pièces jointes

Gégé-45550

Gégé-45550

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires