probleme pour compter les lignes d une liste filtree

  • Initiateur de la discussion Initiateur de la discussion alexistak
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alexistak

XLDnaute Occasionnel
Bonjour a tous,
Je viens de chercher sur internet comment proceder pour compter le nombre de ligne d une liste filtree avec le filtre automatique.
Apparament il faut utilise subtotal (soustotal).
Mais j ai un message d'erreur et la case me renvoie 0.
On va prendre l exemple de ma piece jointe.
Je veux afficherla derniere ligne de la colonne B. (case en jaune) le nombre de ligne de ma liste triee.

Merci de votre aide.

PS: comment le coder en VBA?
 

Pièces jointes

Re : probleme pour compter les lignes d une liste filtree

Bonjour,

Il faut mettre
=SOUS.TOTAL(3;B6:B94)

Quand tu utlises la fonction SOMME, il met par défaut 9 alors que dans ton cas c'est 3 qu'il faut.
Voici la liste des possibiltés :
1 MOYENNE
2 NB
3 NBVAL
4 MAX
5 MIN
6 PRODUIT
7 ECARTYPE
8 ECARTYPEP
9 SOMME
10 VAR
11 VAR.P
En VBA tu peux par exemple en sélectionnant une colonne comme dans ton cas c.a.d la colonne B et lancer le code qui suit :
Code:
Sub NombreLignes()
    Dim Plage As Range
    If ActiveSheet.AutoFilterMode Then
        Set Plage = Selection
        NoColonne = Plage.Column
        LeNombre = Application.Subtotal(3, ActiveSheet.AutoFilter.Range.Columns(NoColonne)) - 1
        MsgBox "Le nombre de lignes de cette colonne filtrée est de :  " & LeNombre & " ", vbInformation, "Nombre de valeurs filtrées ..."
    Else
        MsgBox "Cette opération n'est pas possible car vous" & vbCr & "n'avez pas mis de filtre automatique.", vbInformation, "© DEUTSCH - Macros personnalisées"
    End If
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
306
Affichages
31 K
Retour