Bonjour,
je débute dans la programmation VBA et je cherche à remplir ma listbox (avec deux colonnes) que j'ai créé sur un userform à partir de données provenant d'une feuille Excel


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub UserForm_Initialize()
     Set Ws = Sheets("Base_de_données")
    With Me.ListBox1
    .ColumnCount = 2
    .Font.Size = 20
    .AddItem
    .List(0, 0) = Ws.Cells(2, 2)
    .List(0, 1) = Ws.Cells(2, 3)
    .List(1, 0) = Ws.Cells(2, 4)
    .List(1, 1) = Ws.Cells(2, 7)
    .List(2, 0) = Ws.Cells(2, 5)
    .List(2, 1) = Ws.Cells(2, 6)
     End With
End Sub
j'obtiens un message erreur d’exécution 381 : " impossible de définir la propriété list. index de table de propriétés non valide."
j'ai cherché sur internet mais sans succès jusqu'à présent...
D'avance merci pour vos lumières en cette heure bien matinale...