Bonjour à tous,
Ma problématique est la suivante : lors d'une selection d'un ou plusieurs champs de la listbox 3 (connect1, connect2,...), j'aimerai remonter dans la listbox1 : les données de la feuille "données vincent" (si la valeur de la colonne 9 de "données vincent" correspond au champ selectionné dans la listbox 3).
Ci-dessous le code que j'ai essayé mais qui bug à la ligne " If CStr(Tablo(i, 9)) = ListBox3.Value Then".
Vous trouverez le fichier ci-joint pour plus de clarté.
Merci d'avance pour votre expertise. (ce bout de code se trouve dans le module 2)
Ma problématique est la suivante : lors d'une selection d'un ou plusieurs champs de la listbox 3 (connect1, connect2,...), j'aimerai remonter dans la listbox1 : les données de la feuille "données vincent" (si la valeur de la colonne 9 de "données vincent" correspond au champ selectionné dans la listbox 3).
Ci-dessous le code que j'ai essayé mais qui bug à la ligne " If CStr(Tablo(i, 9)) = ListBox3.Value Then".
Vous trouverez le fichier ci-joint pour plus de clarté.
Code:
Dim Tablo As Variant ' Déclare la variable Tablo
Sub test1()
Dim i As Integer
Dim DerLig As Long
'Définit la variable Tablo => Emplacement des Données source pour l'incrémentation de la ListBox
With Sheets("données vincent")
DerLig = .Range("A65536").End(xlUp).Row
Tablo = .Range("A2:I" & DerLig)
End With
ListBox1.Clear
For i = 1 To UBound(Tablo)
'Si la colonne 9 de la variable Tableau est égale à la valeur choisie alors
If CStr(Tablo(i, 9)) = ListBox3.Value Then
'Alors on ajoute les données correspondantes aux 6 colonnes de la ListBox
ListBox1.AddItem Tablo(i, 1) 'Colonne 1 de la ListBox = Colonne 1 du tableau de réf
ListBox1.List(ListBox1.ListCount - 1, 1) = Tablo(i, 2) 'Colonne 2 de la ListBox = Colonne 2 du tableau de réf,...
ListBox1.List(ListBox1.ListCount - 1, 2) = Tablo(i, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = Tablo(i, 5)
ListBox1.List(ListBox1.ListCount - 1, 4) = Tablo(i, 6)
ListBox1.List(ListBox1.ListCount - 1, 5) = Tablo(i, 7)
End If
Next i
End Sub
Merci d'avance pour votre expertise. (ce bout de code se trouve dans le module 2)
Pièces jointes
Dernière édition: