Mettre toutes les lignes d'une ListBox dans une variable

Bonjour,

Je chercher à mettre toutes les lignes de la deuxieme colonne de ma ListBox dans une variable. Est ce que c'est possible ? Si oui, pouvez-vous me dire comment ?

Voila la ligne de code que j'ai essayé sauf qu'il me met que la première valeur de la colonne voulue, et pas toutes les valeurs.

CBS = ListBox1.List(ListBox1.ListIndex, 1)

Merci d'avance

Bonjour,

En supposant que ces variables soient déclarées dans un module standard :

Public CBS() As Variant
Public IndiceCbs As Integer

Le code pourrait être celui-là :

Dim I As Integer

   Continuer = True
    With ListBox1
         If .ListCount > 0 Then
            IndiceCbs = 0
            For I = 0 To .ListCount - 1
                ReDim Preserve CBS(IndiceCbs)
                CBS(IndiceCbs) = .List(I, 1)
                IndiceCbs = IndiceCbs + 1
            Next I
        End If
    End With

Pour restituer :

    For IndiceCbs = LBound(CBS) To UBound(CBS)
         Debug.Print CBS(IndiceCbs)
    Next IndiceCbs

ça marche NIQUEL ! Merci BEAUCOUP !