boucle pour avec filtre

[paulpaul]

Bonjour,

je souhaiterais créer une macro comptant le nombre de ligne que j'ai dans mon excel , j'ai donc crée le code suivant

Dim numero As Integer
numero = 1
While Cells(numero, 1) <> ""
numero = i + 1
numero = numero + 1
Wend
Range("C3").Value = numero-1

Cependant lorsque j'applique un filtre , et que je relance le code , il prend en compte les cellules caché par le filtre et pas seulement les cellules apparentes.

Auriez vous une idée pour m'aider?

Cordialement

 

[Pierrot93]

Re : boucle pour avec filtre

Bonjour,

regarde peut être ceci.... pas tenu compte de ton -1 pas trop compris...

Range("C3").Value = Range("A1", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Count

bonne journée
@+

 

[Pierrot93]

Re : boucle pour avec filtre

Re,

au cas ou aucune ne serait visible :

On Error Resume Next
Range("C3").Value = Range("A1", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Count
On Error GoTo 0