Bonjour à tous,

Bon mon projet vba excel avance pas mal mais je rencontre un nouveau problème dans une ListBox . Voici le code incriminé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim N As Integer, Y As Integer
    Range("C13").Clear
    BoundColumn = 2
    With Me.ListBox3
        For N = 0 To .ListCount - 1
        If .Selected(N) = True Then
        Y = Y + 1
        If [C13] = "" Then
        [C13] = .List(N)
     Else
        [C13] = [C13] & " / " & .List(N)
        Range("C13").WrapText = True
        End If
    End If
    Next N
    [C13] = [C13] & " en g/hl de jus."
    End With
Il s'agit d'une Listbox à deux colonnes, la première étant là juste à titre informatif et la seconde contenant les infos que je souhaite coller dans la cellule "C13". C'est une ListBox à choix multiple.

Alors quel est le problème......c'est que je n'arrive pas à extraire les données de la seconde colonne. Il me colle celle de la première.
Il me semble que le problème viens de .List(N) je sais que les données qui m'intéressent sont là : ListBox4.List(ListBox4.ListIndex, 1).

Y aurait-il une âme charitable pour me m'indiquer une piste ?

merci d'avance, Paul.