Discussion :

[Swiper]

Bonjour chers developpeurs,
Je viens vous voir, comme vous pouvez vous en douter, pour vous exposez mon petit problème avec les filtres d'excell.

J'ai appliquer un filtre à une série de valeur qui sont placé à la suite des unes et des autres. Lorsque les critères de filtrage sont selectionnés, alors les lignes non concernés sont masquées. Je voudrais pouvoir compter le nombre de ligne restante après le filtrage.

Comment dois-je m'y prendre ?

J'ai déja essayer ce code :

Code :

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

1
2
Range("A1").End(xlDown).Select
NbLigne = Range("A1" , "A" & ActiveCell.row). Count

Le résultat est celui de la ligne finale : 11, au lieu d'être : 7

Merci d'avance, n'hésitetz pas à me dire s'il manque des choses.

[SilkyRoad]

bonjour

il existe plusieurs solutions

Code :

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

MsgBox Range("A1:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Count

Code :

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

MsgBox Feuil1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count

Code :

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

MsgBox Evaluate("=subtotal(3,A:A)")

michel

[Swiper]

Es ce que je pourrais te remercier déja mais ensuite te demander juste une explication par solution, merci

Et au passage, es ce que le "specialcells(xlcelltypevisible)" ,peut marcher pour manipuler directement les cellules avec la méthode offset(1,0), par exemple, mais qu'il prenne la cellule visible du dessous et pas celle qui est masquée ?

[Swiper]

Réponse trouvée, dans un autre topic merci encore ^^