Compter les lignes non masquées de A17:A78

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier cette macro (auteur gbinforme). Cette macro compte les lignes visibles de la colonne A et donne le résultat dans une MsgBox.

Ce que je souhaiterais c'est la même action mais dans la zone A17:A78 et inscrire le résultat cellule K83.

Merci pour votre aide.
Bien à vous,
Christian

la macro ;

Private Sub CommandButton3_Click()
Dim R As Double
Dim l As Double
For l = 1 To Cells(65536, 1).End(xlUp).Row
If Not Rows(l).Hidden Then R = R + 1
Next l
MsgBox ("il y a " & R & " lignes visibles dans la colonne A")
End Sub

 

[job75]

Bonjour Christian0258,

Amnésie passagère ou coup de mou après 1533 posts ?

Private Sub CommandButton3_Click()
Dim r As Range, n As Byte
For Each r In Rows("17:78")
    If Not r.Hidden Then n = n + 1
Next
[K83] = n & " lignes visibles"
End Sub

A+

 

[Christian0258]

Re, le forum, Job75

Merci job75, les deux peut-être...lol

Bien à toi,
Christian