affichage dans ListBox

[serge]

Bonjour @ toutes & tous
Pour commencer, merci a michel pour la réponse à mon précédent message
mais j'ai toujours le même souci et n'y parvient pas tout seul.
En quelques mots: je voudrais afficher dans une lisbox le contenu de mes colonnes filtrées. Je joint un exemple car je ne sais pas si je suis suffisament clair ou explicite.
Merci à toutes & tous par avance
serge

 

[myDearFriend]

Bonsoir Serge, le Forum.


Ci-joint une exemple avec une autre approche du problème...

L'évènement Change du ComboBox déclenche la mise à jour de la liste par un simple test dans une boucle et la méthode AddItem :

Private Sub ComboBox1_Change()
Dim TabTemp As Variant
Dim L As Long
'Charge les données dans un tableau variant temporaire
With Sheets(1)
L = .Range("A65536").End(xlUp).Row
TabTemp = .Range(.Cells(2, 1), .Cells(L, 5)).Value
End With
'Mise à jour de la liste
With ListBox1
'RAZ
.Clear
'Pour chaque ligne de la base
For L = 1 To UBound(TabTemp)
'Si la catégorie correspond au choix
If TabTemp(L, 5) = ComboBox1.Value Then
'Ajout d'une ligne supplémentaire dans la liste
.AddItem TabTemp(L, 1)
'Mise à jour des élémnents en colonnes
For c = 1 To 3
.List(.ListCount - 1, c) = TabTemp(L, c + 1)
Next c
End If
Next L
End With
End Sub


Cordialement,
Didier_mDF

 

[serge]

pour myDearFriend
GENIAL !!!
MERCI
j'ai envi de comprendre et ai pliens de questions
mais pour l'instant, j'essai de comprendre comment tu en ai arrivé à ce résultat qui me convient parfaitement
encore merci TROP BALAISE
Bye
serge