boucle pour avec filtre

paulpaul · 24 Juin 2013

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

Code:

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 · 24 Juin 2013

Re : boucle pour avec filtre

Bonjour,

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

Code:

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

bonne journée
@+

Pierrot93 · 24 Juin 2013

Re : boucle pour avec filtre

Re,

au cas ou aucune ne serait visible :

Code:

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

boucle pour avec filtre

paulpaul

Guest

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

boucle pour avec filtre

paulpaul

Guest

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency