le nombre ligne dans un filtre

Bonjour Daniel,

Avec une plage de données nommée ici Zn (comportant une étiquette de
colonne)

Dans un commentaire peut t'on donner la valeur d'une cellule
comme une référence.

Sub zaza()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = [A1]
.AutoSize = True
.Visible = False
End With
End Sub

ou directement sans passer par une cellule...

Sub zaza()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Zn]) - 1 & " ligne(s) visible(s)" _
& " sur " & [Zn].Rows.Count - 1
.AutoSize = True
.Visible = False
End With
End Sub


ChrisV


"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:_OWOc.124169$9Y2.1380394@wagner.videotron.net...

Bomsoir à tous

J'ai un filtre sur une colonne qui varie et je voudrait avoir le nombre de
ligne
visible / non visible dans un commentaire.
Dans un commentaire peut t'on donner la valeur d'une cellule comme une
référence.
merci

Une petite modif à la proposition de mon petit camarade
"Zn" étant une plage nommée (Ex : A2:Ax) de la feuille "Feuil1" pour écrire un
commentaire en A1 qui reprend de façon automatique le nbre de lignes filtrées


En A1 (ou ailleurs) d'une feuille masquée :
=SOUS.TOTAL(3;Zn)
Dans le module de cette feuille masquée :
Private Sub Worksheet_Calculate()
zaza
End Sub

Dans un module ordinaire :
Sub zaza()
With [Feuil1!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Zn]) & " ligne(s) visible(s)" _
& " sur " & [Zn].Rows.Count
.AutoSize = True
End With
End With
End Sub

AV