Problème manipulation ListBox

Bonjour,

J'ai créé une Zone de Liste (Excel 2016, onglet Développeur).

Mais j'ai l'impression que beaucoup de "fonctions" ne marchent pas avec cette listbox.

Exemple:

nb_ligne = Sheets("BD").Range("A1").End(xlDown).Row - 1

With ActiveSheet.ListBoxes("Listbox1")

For j = 0 To nb_ligne

.RemoveItem j

Next

End With

Cela ne fonctionne pas.

Idem si je fais: Activesheet.ListBoxes("Listbox1").Clear ou Activesheet.ListBoxes("Listbox1").RowSource=""

Je n'arrive donc pas à vider ma listbox!

Merci pour votre aide.

Bonjour,

Je t'ai préparé un classeur pour inspiration...

Bonjour,

Avec RowSource, pour vider la ListBox, il suffit de vider la base de données.

Utiliser RowSource est une mauvaise idée.

Private Sub UserForm_Initialize()
 Set f = Sheets("bd")
 Me.ListBox1.List = f.Range("A2:C" & f.[A65000].End(xlUp).Row).Value
End Sub

Boisgontier

Bonjour Jacques,

J'ai modifié mon fichier, et

l'avantage de ListFillRange avec le tableau structuré, c'est qu'il remplit dynamiquement la liste sans autre besoin de code.

Feuil1.LBNombre.ListFillRange = [TabNombre].Address

Qu'en penses-tu ?

Dans cette nouvelle version, j'ai synchronisé les clics sur le tableau avec la liste et inversement.