Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Comptage du nombre de ligne avec commentaire dans un tableau filtré

deboD

XLDnaute Nouveau
Bonjour,

J'aimerais pouvoir compter le nombre de ligne avec un commentaire dans la colonne 'P' ou 'S' ET sans valeur dans les colonnes 'V' ou 'X' respectivement. Ma difficulté est que je ne veux regarder que les lignes qui ont été filtrées (filtres sur colonnes B, I et AA)...

Est-ce que quelqu'un pourrait m'aider? Voici ce que j'ai déjà essayé :


VB:
Dim Fiscal As String
Dim nom As String
Dim compteur As Integer
Dim ligne As Range

'récupération des valeurs
compteur = 0
Fiscal = Range("Z2")
nom = "BR"

'filtres du tableau NC
    Sheets("Suivi NC").Range("$5:$15000").AutoFilter Field:=2, Criteria1:=Fiscal
    Sheets("Suivi NC").Range("$5:$15000").AutoFilter Field:=27, Criteria1:=""
    Sheets("Suivi NC").Range("$5:$15000").AutoFilter Field:=9, Criteria1:="=*" & nom & "*"

'comptage des lignes sans commentaire
For Each ligne In Sheets("Suivi NC").AutoFilter.Range.SpecialCells(xlCellTypeVisible)
    If Range(", 16").Comment Is Nothing Then
        If ligne(", 22").Comment Is Nothing Then
        Else
            If ligne(", 24").Value = "" Then
                compteur = compteur + 1
            End If
        End If
    Else
        If ligne(", 19").Value = "" Then
            compteur = compteur + 1
        End If
    End If
Next


'retrait des filtres
Sheets("Suivi NC").ShowAllData

'ajout du résultat
Range("Z3").Value = compteur


Merci beaucoup
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Une idée :

Compteur = Compteur + -(Not Cells(,ligne).EntireRow.Hidden))

où -(Not Cells(,ligne).EntireRow.Hidden)) renverra 1 si la ligne est visible (not Hidden) et 0 si elle est cachée (Hidden)
- transforme true (-1) en 1 et faux (0) en 0

Cordialement
 

Discussions similaires

Réponses
49
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…