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