Actualisation et affichage ListBox

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

Bonsoir,

1 : le listbox se trouve sur une feuille(UserForm)? si oui, au load de la dite feuille
2 : Propriété ListIndex=0 (première ligne)
2 : Propriété Value=""

Christophe

La liste box n'est pas dans une feuille(UserForm)

Dans les proprités, il n-y a pas ListIndex

voila comment je remplis la liste

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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

---

Bonjour ,


En cliquant sur les propriétés de l'objet listbox (via menu contexte)

On renseigne deux propriétés

ListFillrange=plage de cellules ou plage nommée

LinkCell=Cellule qui conserve la sélection de la listbox

et on ne peut pas sélectionner l'entête si la columnHeads est à True
dans le cas contraire à ca sert de sélectionner l'entête si on veut garder la dernière sélection

:ccool:

Bonjour,

Merci de m'avoir répondu.

J'ai changé mon fusil d'épaule car une liste sur la feuille, c'était le foutoir...

J'ai donc créé un UserForm et placé dedan une ListBox

Comment faire pour remplir cette liste avec les données de ma colonne 1 ?

A vous lire

comme dans mon dernier message

mais la il faut nommer les plages une pour la liste des valeur et une autre pour la cellule qui réceptionne la sélection

:ccool:

Dans un Tuto, j'ai vu pour remplir la liste :

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() ListBox1.RowSource = "Feuil1!A1:A100" End Sub

---

Mais ou ce trouve ce " Private Sub UserForm_Initialize() " je ne le trouve nul part ?

J'ai fini par trouver

encore merci

@ +