Discussion :

[omarter]

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

[ouskel'n'or]

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

Code :

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

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

[omarter]

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