Actualisation et affichage ListBox

[malabarbe]

Bonsoir,

Dans une Macro, j'affiche une ListBox
Comment faire pour ? :
1° - Que la liste soit remplie a l'affichage (actuellement, je dois clicker dedans pour qu'elle se remplisse)
2° - Que la première ligne (l'entète de colonne) soit sélectionnée d'office
3° - Qu'a chaque affichage de la liste, celle-ci ne garde pas l'historique de la sélection précédente

A vous lire

 

[skoobi]

Re : Actualisation et affichage ListBox

Bonsoir malabarbe, le forum,

Où se trouve la listbox?
Directement dans la feuille ou dans un userform?
De plus, un fichier exemple serait le bienvenu.

Bonne soirée.

 

[malabarbe]

Re : Actualisation et affichage ListBox

Bonsoir,

La ListBox ce trouve sur la feuille
je remplis la liste par une boucle et des Additem

j'affiche la liste par :

    Worksheets("Feuil1").ListBox1.Visible = True

La liste apparait mais vide, je dois clicker dessus pour qu'elle
soit remplie

 

[Cousinhub]

Re : Actualisation et affichage ListBox

Bonsoir,

Attends, Skoobi, avant de répondre...

tu vas lui donner une solution pour 1 colonne, mais, il y en a 3..

Bref, Malabarbe, précise bien ton besoin....

 

[Cousinhub]

Re : Actualisation et affichage ListBox

Re-,

et en complément, comme tu le charges en cliquant dessus, mets tout ton code ici...

 

[skoobi]

Re : Actualisation et affichage ListBox

Re,

salut Hub, toujours un plaisir de te croiser 🙂.
Ok, wait and see...

 

[malabarbe]

Re : Actualisation et affichage ListBox

Private Sub ListBox2_GotFocus()

ActiveSheet.Unprotect

DerniereLigne = Range("A65535").End(xlUp).Row
For i = 1 To DerniereLigne
    ListBox2.AddItem (Cells(i, 1))
Next i

End Sub

C'est pour remplir la liste

mais elle est vide et il faut que je clicke dessus pour qu'elle se remplisse !

 

[Cousinhub]

Re : Actualisation et affichage ListBox

Re-,

dans le code qui te sert à faire apparaître ta listbox, essaie ainsi :

With Worksheets("Feuil1").ListBox1
    DerniereLigne = Range("A65535").End(xlUp).Row
    For i = 1 To DerniereLigne
        .AddItem (Cells(i, 1))
    Next i
    .Visible = True
    ActiveSheet.Unprotect
End With

 

[malabarbe]

Re : Actualisation et affichage ListBox

Ok bhbh,

Deux choses de résolues

- Quand j'affiche la liste, elle est maintenant remplie

- Quand je réaffiche, l'historique a disparu

Reste a voir :
Que la première ligne (l'entète de colonne) soit sélectionnée d'office

Mais déjà, un grand Merci pour tes conseils

 

[Cousinhub]

Re : Actualisation et affichage ListBox

Re-,

peut-être ainsi :

With Worksheets("Feuil1").ListBox1
    .Clear
    DerniereLigne = Range("A65535").End(xlUp).Row
    For i = 1 To DerniereLigne
        .AddItem (Cells(i, 1))
    Next i
    .Visible = True
    .ListIndex = 0
End With

 

[malabarbe]

Re : Actualisation et affichage ListBox

Non, avec (.ListIndex = 0) en plus, la liste ne s'affiche mème plus

Par contre dans ma cellule de récupération du choix dans la liste affiche maintenant la première ligne sans que j'ai pu sélectionner quelque chose

 

[Cousinhub]

Re : Actualisation et affichage ListBox

Re-,

je ne continue pas sans fichier....

Fichier ayant les codes déjà mis, mais exactement la même structure

 

[malabarbe]

Re : Actualisation et affichage ListBox

ok, je l'épure un peu et je l'envoie

 

[malabarbe]

Re : Actualisation et affichage ListBox

Voilà le fichier

L'appel de la Macro par Contrôl z

 

[malabarbe]

Re : Actualisation et affichage ListBox

Voilà le fichier

L'appel de la Macro par Contrôl z