Discussion :

[FouJP]

Bonjour,
Par utilisation de filtre sur des données, je souhaite tester si le nombre de lignes visibles est égal à zéro.

Code :

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

 For Each RecCell In Selection.SpecialCells(xlVisible)

.....

Code :

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

Next RecCell

Afin de sortir de la boucle proprement et éviter d'aller jusqu'à la 1048576 ième ligne.
Cordialement,