Bonsoir, Bonjour le forum,
 
Je me casse les dents sur l'alimentation d'une Listbox de 2 colonnes (avec option de sélection). J'ai retourné le code dans tous les sens sans succès ; il semble que le plantage soit en rapport avec la méthode AddItem, mais en fait je ne suis même pas sûr du reste, sachant que le but c'est aussi d'initialiser la sélection (cochée ou non) et là encore je fais choux blanc ; j'aurais bien besoin d'un coup de main... Merci.
 
 
    Dim cw As String
    Dim i, iMax As Integer
     
    iMax = Worksheets("Prestations" ).Range("A1" ).End(xlDown).Row
     
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = Worksheets("Prestations" ).Columns(1).Width & ";" & Worksheets("Prestations" ).Columns(2).Width
    ListBox1.ListIndex = 0
    For i = 2 To iMax
        cw = Worksheets("Prestations" ).Cells(i, 1).Value & ";" & Worksheets("Prestations" ).Cells(i, 2).Value
        ListBox1.AddItem (cw)
    Next i