[VBA-E] Compter le nombre de cellule apparante apres avoir fait un filtre

Bonjour a tous,

Je suis nouveau sur ce forum, et apres avoir chercher dans les FAQ, je vous expose mon probleme :

Je souhaite compter le nombre de cellule "non-vide" apparante d'un tableau excel apres avoir effectué une fonction "filtre".
J'ai le code pour compter les non-vides, mais avec ce code il me compte toutes les cellules de mon tableau (les cellules apparantes + les non apparentes (celles qui n'apparaissent plus suite au filtre)).

J'espere etre explicite et clair....

Auriez vous un code pour faire compter que les cellules que l'on voit ?

Merci de votre aides

Olivier

Bonjour omarter, bienvenue sur le forum. Pour connaître les numéros de lignes du résultat d'un filtre, essaie ça

Code:

---

1 2 3 4 5 6 7 8 9

Dim NoLigne(), i, j For Each ligne In Sheets("feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows i = i + 1 ReDim Preserve NoLigne(i) NoLigne(i) = ligne.Address(RowAbsolute:=False, ColumnAbsolute:=False) Next For j = 1 To i MsgBox NoLigne(j) Next

---

Tu dis

Je viens d'integrer ta ligne de commande en l'adaptant a mon besoin et ca fonctionne très bien.

Merci de ton aide et de la rapidité de ta réponse

:king: