Discussion :

[basto]

Bonjour à tous

J'ai une jolie macro qui applique des filtres automatique dans une feuille

Tout ce passe bien et quand je regarde le résultat dans la feuille, c'est le bon filtre

Maintenant mon souci est :

Comment je fais pour connaitre le numéro de la ligne qui correspond au résultat ?

J'avoue être perdu car le résultat de l'application du filtre est : True.

D'avance merci pour votre retour.

[basto]

Bon après avoir en vain tenter de récupérer la bonne info, j'ai choisi de passer par un find et d'utiliser l'adresse de la réponse.

Je suis preneur de la réponse à ma première question même si j'en suis convaincu maintenant ce n'est pas la bonne méthode.

Bien à vous

[Philippe Tulliez]

Bonjour,
Pour obtenir la liste de toutes les lignes filtrées; tu peux utiliser la méthode SpecialCells avec comme argument la constante xlCellTypeVisible
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub t()
 Dim rngFilter As Range, rngData As Range, Cell As Range
 With ThisWorkbook.Worksheets("db")
  Set rngData = .Range("A1").CurrentRegion
 End With
 ' Conserve uniquement la première colonne
 Set rngFilter = rngData.Columns(1).SpecialCells(xlVisible)
 Debug.Print rngFilter.Address
 ' Liste toutes les lignes filtrées
 For Each Cell In rngFilter
  Debug.Print Cell.Row
 Next
End Sub