ListBox à deux colonnes Multichoix récupérer les valeurs de la seconde
Bonjour à tous,
Bon mon projet vba excel avance pas mal mais je rencontre un nouveau problème dans une ListBox :roll:. Voici le code incriminé :
Code:
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...:mrgreen:...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.
