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

[joe.levrai]

Bonjour,

tu peux passer par un tableau unidimensionnel et l'injecter dans la propriété Column

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
        With lst_articles
            .Clear ' Vide la liste d'article
            .ColumnCount = 2
            .Column = Array("col 1", "col 2")
        End With
    End If
End Sub

[the_qd]

Salut,

Effectivement ta solution fonctionne mais pourquoi le standard .Additem et .List ne fonctionne pas avec mon code?

Et si je veux utiliser ta solution dans une boucle comment je dois procéder ?

En te remerciant

[Valtrase]

Bonjour,

Effectivement ta solution fonctionne mais pourquoi le standard .Additem et .List ne fonctionne pas avec mon code?

1. Vérifier en mode création que la zone de liste comporte bien deux colonnes.
   
   1. Si une seule colonne alors utiliser la propriété ColumCount et la régler sur deux comme dans l'exemple de joe.levrai
   
   

Et si je veux utiliser ta solution dans une boucle comment je dois procéder ?

1. Pour une boucle utiliser la propriété ListCount. ListCount -1 correspond au dernier élément de la liste.

Voici un petit exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnCount = 2
        .ColumnWidths = "100,100"
 
        Dim Counter As Long: Counter = 1
        Do While Counter < 11
            .AddItem "First Colum " & CStr(Counter)
            .List(.ListCount - 1, 1) = "Second Colum " & CStr(Counter + 10)
            Counter = Counter + 1
        Loop
    End With
End Sub

Bonne programmation...

[the_qd]

Finalement, je me suis résolu à faire des arrays que j'injecte via .list

Merci pour vos réponses