Discussion :

[PaulG2B]

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.

[SfJ5Rpw8]

....ListBox4.List(ListBox4.ListIndex, 1)....

et pourquoi tu n'essai pas ce code ? ( enfin je suppose qu'il s'agit de listbox3 et pas 4 ..)

Code :

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

1
2
3
4
 
(...
[C13] = .List(N,1)
(...)

[PaulG2B]

Bonjour et un grand merci à toi bbil.

Oui effectivement il fallait lire ListBox3 et non pas 4....mon clavier à surement bugger lors de la saisie ...

Pourquoi je n'ai pas essayé ce code ? et bien je l'ai fait en fait. J'ai essayé de le substituer à la variable N en utilisant (ListBox3.ListIndex, 1) puis en essayant de remplacer .List(N) par ListBox3.List(ListBox3.ListIndex, 1) mais toujours sans succès car je pense que je n'ai pas bien compris les deux lignes suivantes et comment se débarrasser de N :

Code :

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

1
2
For N = 0 To .ListCount - 1
        If .Selected(N) = True Then

En fait ta proposition .List(N, 1) fonctionne très bien et cela résoud mon souci .

Merci à toi .