Soucis maj liste automatique

Bonjour à tous,

J'explique mon soucis car cela fait bientôt 2h que je suis dessus et je trouve rien sur internet.

dans le fichier ci joint, quand je clique sur la croix en feuille 1 il m'ouvre un USF dans lequel il y a une liste dans VISA. Je voudrais ne pas avoir à changer la longueur de la liste si des noms s'ajoutent donc j'ai pensé utiliser :

VISA.RowSource = "Liste!D2:D" & Range("D2").End(xlDown).Row

Le soucis est qu'il me met toute les cases jusqu'à la dernière d'Excel.

J'ai essayé dans un autre fichier et cela fonctionne alors je ne vois pas mon erreur dans celui ci...

De plus si je créé un bouton qui sélectionne exactement ce que je demande et bien cela marche comme je veux...

Range("D2:D" & Range("D2").End(xlDown).Row).Select

Merci d'avance !

Bonjour,

Je n'ai pas vu votre fichier mais j'imagine que vous pouvez définir un tableau structuré en Liste!D et sa région courante. De cette manière, vous pourrez faire référence directement à votre colonne de tableau, qui s'ajuste automatiquement.

Sinon, le code en général est plutôt celui-là :

VISA.RowSource = "Liste!D2:D" & Range("D" rows.count).End(xlup).Row 'on part d'en bas et on remonte

Cdlt,

Bonjour à tous,

Une autre proposition ...

Private Sub UserForm_Initialize()
Dim x As Integer

    day.Caption = Now

    For x = 1 To Worksheets("Liste").Cells(Rows.Count, "D").End(xlUp).Row
        VISA.AddItem Worksheets("Liste").Range("D" & x)
    Next x
End Sub

ric

Super cela marche maintenant ! Je vous remercie tout les deux