Discussion :

[Mél3790]

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 !

[pijaku]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private LigSel As Long

2- lors du clic sur le bouton de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mél3790]

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

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mél3790]

Merci, je testerais aussi