Obtenir le numéro de ligne de la première ligne visible par filtre

**jsige** · 21/08/2015, 15h13

Bonjour à tous,

En cherchant la solution à la même question que dans cette discussion, et en faisant quelques tests, un eu par hasard, j'arrive à obtenir le numéro de ligne de la première ligne visible, grâce à la commende suivante :

Code :

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

Premiere_Ligne_Filtre = Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase").Rows.Count - 1).SpecialCells(xlCellTypeVisible).Row

Y aurait-il des personnes qui pourraient me confirmer que ça marche ?

Et également d'autres qui pourraient m'expliquer exactement le fonctionnement de la commande.

Merci.

Jérôme.

**LASMAR** · 03/05/2016, 16h21

Je confirme

J'ai testé cette solution et ça marche pour mon exemple que voici : Un tableau de données filtré par

Code :

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

ActiveSheet.Range("$A$11:$AF$50000").AutoFilter Field:=5, Criteria1:=Target

Et puis je cherche un indice de colonne et j'accède à la première ligne des données filtrées par

Code :

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

ActiveSheet.Range(Colonnes(I) & Premiere_Ligne_Filtre).Select

C'est la cellule AZ1599 dans mon cas

**Philippe Tulliez** · 03/05/2016, 16h51

Bonjour,

Y aurait-il des personnes qui pourraient me confirmer que ça marche ?

Je confirme mais je suppose que tu l'as testée déjà mais pour ma part, je préfère cette syntaxe (dans un bloc With..End..With) plus simple à lire comme dans l'exemple ci-dessous.

Code :

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

1
2
3
4
5
Dim FirstOfRowFilter As Long
With Range("dBase")
 FirstOfRowFilter = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Row
End With
MsgBox "La première ligne filtrée est " & FirstOfRowFilter

Et également d'autres qui pourraient m'expliquer exactement le fonctionnement de la commande.

Extrait de l'aide en ligne

Range.SpecialCells, méthode
La méthode SpecialCells d'un objet Range renvoie un objet Range qui représente toutes les cellules correspondant au type et à la valeur spécifiés
Syntaxe
expression.SpecialCells(Type, Value)
expression Variable qui représente un objet Range.

donc

Code :

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

Range("dBase").SpecialCells(xlCellTypeVisible)

Renvoie un objet Range représentant les cellules visibles de la plage nommée dBase
la propriété Row, renvoie la première ligne de cet objet or comme la première ligne de cette plage de données filtrée contient les étiquettes de colonnes, elle ne répond pas aux critères du filtre et est donc visible.
Ce qui fait que Row renverrait 1.
C'est la raison pour laquelle on doit ajouter la propriété Offset avec comme valeur de l'argument RowOffset le chiffre 1 afin de se déplacer d'une ligne sur la plage de données visible.
La prochaine ligne visible est donc bien la première des lignes filtrées

Code :

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

.Offset(1).Resize(.Rows.Count - 1)

Et pour être complet, on ajoute la propriété Resize pour enlever une ligne de trop suite au décalage de une ligne d'Offset

CQFD

**DeathZarakai** · 03/05/2016, 16h56

Et pour finir l'explication de Philippe le .Resize(.Rows.Count - 1) réduit d'une ligne la plage sélectionnée, et on procède ainsi car on décalé une fois en bas avec la fameux Offset.

DeathZarakai.

P.S. : Dsl j'avais pas vu que l'avais finalement abordé^^ Méaculpa et merci pour description très précise et clair de ta part.

**cerede2000** · 03/05/2016, 17h01

Par contre on préfère en général faire le Resize avant le Offset
Car si on est à la dernière ligne du classeur on aura une erreur !

Code :

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

FirstOfRowFilter = .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Row

**Philippe Tulliez** · 03/05/2016, 18h50

Bonjour,

Par contre on préfère en général faire le Resize avant le Offset
Car si on est à la dernière ligne du classeur on aura une erreur !

Bonne remarque cerede2000 , je n'avais jamais pensé à ce cas possible même si je doute rencontrer un jour ce type de problème il est évident qu'à l'avenir j'en tiendrai compte.
Je vote