Discussion :

[the_qd]

Bonjour,

Je veux simplement ré-alimenter une listbox préalablement remplie mais ça ne fonctionne pas

Lors de l'initialisation du userform, je rempli ma listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
derniere_ligne = Worksheets("Base articles").Range("A" & Rows.Count).End(xlUp).Row
lst_articles.List = Worksheets("Base articles").Range("A6:A" & derniere_ligne).Value

Puis dans une txtbox sur mon userform, lorsque j'appuie sur "Enter", je veux vider la liste et ajouter une ligne avec une valeur dans chaque colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub txt_article_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
If KeyCode = 13 Then 'Si on appuie sur OK dans le champt txt_article
        lst_articles.Clear ' Vide la liste d'article
        lst_articles.AddItem "col 1"
        lst_articles.List(0, 1) = "col 2"
End If
End Sub

Mais avec ce code j'ai systématiquement cette erreur



Si je supprime la ligne de remplissage à l'initialisation, ça fonctionne
Si je laisse la ligne de remplissage et que je retire la ligne "lst_articles.list" ça fonctionne pour "additem"

Quelle est mon erreur ?

En vous remerciant