Bonjour à tous,
Voilà deux essais avec "filterdatabase" et "Spit" en espérant que cela vous sera utile. Toute amélioration ou suggestion seront grandement apprécier. Merci !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Selection_Des_Lignes_filtrées() Dim plg As Range, x As Variant, x1 As String, xx As String Set plg = ActiveSheet.Range("_filterdatabase").SpecialCells(xlCellTypeVisible) x = Split(plg.Address, ",") If Not UBound(x) = 0 Then x1 = x(1) ' premiere ligne filtrer xx = x(UBound(x)) ' derniere ligne filtrer Range(x1 & ":" & xx).Select End If End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub Boucle_sur_les_Lignes_filtrées() Dim plg As Range, x As Variant, i As Integer, y As Integer Set plg = ActiveSheet.Range("_filterdatabase").SpecialCells(xlCellTypeVisible) x = Split(plg.Address, ",") For i = LBound(x) + 1 To UBound(x) 'vérifier les valeurs de chaque ligne filter For y = 1 To Range(x(i)).Count MsgBox "Ligne(" & Range(x(i)).Row & "), Colonne(" & y & ") = " & Range(x(i)).Item(y) Next Next End Sub
Partager