Actualisation et affichage ListBox

skoobi

XLDnaute Barbatruc

• 16 Juin 2009

• #2

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.

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 16 Juin 2009

• #3

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 :

Code:

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

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Juin 2009

• #4

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Juin 2009

• #5

Re : Actualisation et affichage ListBox

Re-,

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 16 Juin 2009

• #6

Re : Actualisation et affichage ListBox

Re,

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

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 16 Juin 2009

• #7

Re : Actualisation et affichage ListBox

Code:

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 !

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Juin 2009

• #8

Re : Actualisation et affichage ListBox

Re-,

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

Code:

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

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 16 Juin 2009

• #9

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Juin 2009

• #10

Re : Actualisation et affichage ListBox

Re-,

peut-être ainsi :

Code:

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

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 17 Juin 2009

• #11

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 17 Juin 2009

• #12

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

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 17 Juin 2009

• #13

Re : Actualisation et affichage ListBox

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

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 17 Juin 2009

• #14

Re : Actualisation et affichage ListBox

Voilà le fichier

L'appel de la Macro par Contrôl z

 

Pièces jointes

• Test-Ville.xls

  43.5 KB · Affichages: 59
• Test-Ville.xls

  43.5 KB · Affichages: 61
• Test-Ville.xls

  43.5 KB · Affichages: 58

Dernière édition: 17 Juin 2009

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 17 Juin 2009

• #15

Re : Actualisation et affichage ListBox

Voilà le fichier

L'appel de la Macro par Contrôl z

 

Pièces jointes

• Test-Ville.xls

  43.5 KB · Affichages: 51
• Test-Ville.xls

  43.5 KB · Affichages: 54
• Test-Ville.xls

  43.5 KB · Affichages: 49

Vote positif 0 Vote négatif