Contenu d'une listBox

Bonjour à tous,

J'ai créé une ListBox et l'ai remplie avec le code suivant :

    sh = Sheets("Bdd").Name
    der = Cells(Rows.Count, 1).End(xlUp).Row
        For i = 3 To der
            .Lb_nom.AddItem Sheets(sh).Cells(i, 1)
        Next i

pas de problème ça marche, mais après le dernier nom de ma liste, dans la ListBox il y a encore de nombreuses lignes vides.
J'ai pensé ajouté au début, avant de remplir la liste

.Lb_list.Clear

mais rien n'y change

Qu'en pensez vous ?

Jacky a écrit :

Qu'en pensez vous ?

Hello,

Ben, que nulle part, tu ne fais référence à "sh", dans le calcul de "der"?

Peut-être?

der = sh.Cells.........

Bonne soirée

Bonsoir Cousinhub,

En effet dans le calcul de der je ne faisais pas référence à la feuille qui contient les données
De plus le sh est le nom de la feuille "Bdd", donc der = Bdd. Cela ne suffit pas dans le calcul de der, j'ai donc misder = Sheets("Bdd"). Cells(Rows.Count, 1).End(xlUp).Row

Cette bétise m'avait complètement échapée
Merci et au plaisir

Hi,

Jacky a écrit :

Merci et au plaisir

You welcome