Discussion :

[AidezMoiSvp]

Bonjour,

Je bloque sur un point :
Via vba je filtre un tableau (tblCotisations).
Je voudrais par la suite récupérer les résultats du tableau filtré (donc ne pas afficher les lignes masquées par le filtrage) pour l'afficher dans une zone de liste.

Code :

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

1
2
3
ActiveSheet.ListObjects("tblCotisations").Range.AutoFilter Field:=2, Criteria1:=USFListeAdherents.lstListeAdherents
    Me.lstListeCotisations.ColumnCount = 3
    Me.lstListeCotisations.RowSource = ??

Merci beaucoup.

[defluc]

Il faut passer par une boucle sur les lignes de la feuille et tester si elles sont masquées pour les ajouter dans la zone de liste.

Code :

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

1
2
if Rows(i).Hidden then 
lstListeCotisations.AddItem ValueToAdd

[Marc-L]

Bonjour,

penser à la propriété SpecialCells … (exemple ici)

[AidezMoiSvp]

Bonjour,

Merci à vous deux.
J'avoue que le specialcell m'intéresse plus que la boucle mais ça ne fonctionne pas.

Code :

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

Me.lstListeCotisations.RowSource = Feuil1.Columns("A:C").SpecialCells(xlCellTypeVisible)