Mémorisation sélection Listbox

Bonjour à tous,

J'ai un UserForm qui contient une listbox et un bouton.
Quand je charge la listbox, elle se remplie avec les valeurs d'une feuille de mon classeur.

Lorsque l'on clique sur un item de la listbox, ça va chercher la ligne à sélectionner dans la feuille.

Je clique alors sur le bouton pour actualisation.

La listbox s'actualise alors, du coup la sélection disparaît.

Comment faire, une fois la MAJ de la listbox faite, resélectionner le dernier item ? (Sachant que la ligne de la feuille est toujours en sélection).

J'espère que vous comprendrais ma demande :)

Merci beaucoup !

Bonjour,

1- déclarer en entête du module de l'userform :

Code:

---

Private LigSel As Long

---

2- lors du clic sur le bouton de commande :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() LigSel = ListBox1.ListIndex 'blabla 'ton code ici   ListBox1.ListIndex = LigSel End Sub

---

Bien sur adapte les noms des contrôles dans ce code...

Tout simplement ...
Je m'attendais à un code à se tirer les cheveux ...

Génial, ça fonctionne parfaitement, merci beaucoup beaucoup beaucoup !!

:)

Bonjour,

une autre piste sans variable : on stocke dans la propriété Tag le ListIndex

exemple sur un userform bidon avec ListBox1 et CommandButton1

initialisation, on remplit arbitrairement avec des chiffres de 1 à 10
on stocke une première fois le listindex (en théorie -1)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() With Me.ListBox1 For i = 1 To 10 .AddItem i Next i   .Tag = .ListIndex End With End Sub

---

Au clic dans ListBox1 : on stocke le nouveau listindex

Code:

---

1 2 3 4 5

Private Sub ListBox1_Click() With Me.ListBox1 .Tag = .ListIndex End With End Sub

---

Et sur le bouton, quand on appuie on efface ListBox1 et on le reconstitue à l'identique (pour l'exemple)
Et on restaure la sélection initiale en lisant la valeur stockée dans le Tag

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() With Me.ListBox1 .Clear For i = 1 To 10 .AddItem i Next i   .ListIndex = .Tag End With End Sub

---

Merci, je testerais aussi :)