Référence listbox depuis "ThisWorkbook"

Bonjour,

J'ai crée une listbox dont le contenu s'actualise à l'ouverture de mon fichier. Le code est placé dans la feuille ("Base de donneés ayants-droits") où se trouve ma listbox et fonctionne très bien.

J'aimerais à présent que cette même listbox s'actualise également en cas de modification d'une cellule de n'importe quelle feuille du fichier. J'ai donc compris que je devais utiliser la fonction SheetChange à insérer dans "ThisWorkbook".

Voici le code ci-dessous qui ne fonctionne pas (erreur objet requis). J'ai l'impression qu'il manque une référence pour retrouver ma Listbox "ListeAD" dans "Base de données ayants-droits".

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ListeAD.Clear
ListeAD.BackColor = RGB(217, 217, 217)
ListeAD.BorderColor = RGB(217, 217, 217)
Dim Ws As Worksheet
Set Ws = Worksheets("Base de données ayants-droits")
LastRow = Ws.Range("B" & Rows.Count).End(xlUp).Row
ListeAD.ColumnCount = 3
ListeAD.ColumnWidths = "100;100;100"
For i = 2 To LastRow
ListeAD.AddItem Worksheets("Base de données ayants-droits").Range("B" & i)
ListeAD.List(ListeAD.ListCount - 1, 1) = Ws.Range("c" & i)
ListeAD.List(ListeAD.ListCount - 1, 2) = Ws.Range("d" & i)
Next i
End Sub

J'ai essayé plusieurs références à ("Base de donneés ayants-droits"), sans succès.

Merci pour votre aide et désolé si je ne suis pas assez clair.

Maxime

Bonjour Monroe,

Si tu fais référence à un contrôle ListBox d'un formulaire, il manque la référence au nom du formulaire devant ListeAD (par exemple UserForm1.ListeAD).

Cdlt,

Cylfo

Bonjour Cylfo,

Merci pour ta réponse.

Ma Listbox est dans une feuillle et pas dans un userform mais c'est le même principe. Il suffisait simplement d'ajouter Feuil1.ListeAD.

Désolé, j'aurais pourtant juré avoir essayé mais en tout cas ça marche bien.

Merci