Christian0258
XLDnaute Accro
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
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