Problème de Listbox à deux colonnes

Bonjour à tous,

J'espère que les fêtes de fin d'année se déroulent bien et que la peau du ventre n'est pas trop tendu.

Pendant la digestion, j'essai de réaliser un projet personnel et je bute sur un problème ! J'ai déjà effectué plusieurs recherches sur internet, mais je n'arrive pas à solutionner mon problème qui est surement simple, mais je débute.

Je souhaite dans un Userform insérer une Listbox, cette Listbox sert juste à afficher le contenu d'une feuille Excel, les cellules à afficher sont connus.

Concrètement j'aimerai que ça donne ça :

Le tableau du dessous représentant ma Listbox vous l'avez compris.

J'arrive à remplir la colonne de gauche de ma Listbox, mais pas la droite.

Avec le code qui suit :

  Dim i As Integer      

        Listbox.ColumnCount = 2

        For i = 1 To 5 Step 2      

        Listbox.AddItem Sheets("Feuil1").Cells(1, i)  

        Next i

Je vous remercie par avance pour vos lumières et vous souhaite une bonne journée !

Mouette.

Bonjour et bienvenue sur le forum

Un essai à titre d'exemple. Te convient-il ?

Bye !

Bonjour,

En imaginant que j'aie compris essaie quelque chose comme:

Private Sub UserForm_Initialize()
Dim i As Integer

        ListBox1.ColumnCount = 2

        For i = 1 To 5 Step 2

        ListBox1.AddItem Sheets("Feuil1").Cells(1, i)
        ListBox1.List(lig, 1) = Sheets("Feuil1").Cells(1, i + 1)
        lig = lig + 1
        Next i
End Sub

J'ai supposé que ta ListBox se nommait ListBox1

Salut gmb

Bonjour,

Testes ceci :

Private Sub UserForm_Initialize()

    Dim i As Integer
    Dim J As Integer

    With ListBox

        .ColumnCount = 2

        For i = 1 To 5 Step 2

            .AddItem Sheets("Feuil1").Cells(1, i).Value

            J = J + 1
            .Column(1, J - 1) = Sheets("Feuil1").Cells(1, i + 1).Value

        Next i

    End With

End Sub

Oups !

Pas rafraîchi

ça fonctionne !

Merci beaucoup, et bonnes fêtes de fin d'année.

Mouette.