Discussion :

[mouftie]

Bonjour,
Ce pb a déjà été traité et même résolu, mais "ça" ne foncitonne pas pour moi.
http://www.developpez.net/forums/d71...omatique-vide/
J'ai inséré un tableau appelé DonnGrc, dans lequel j'ai appliqué un filtre pour repérer les "Non trouvés". s'il n'y en a pas je veux sortir de la procédure.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.ListObjects("DonnGrc").Range.AutoFilter Field:=1, Criteria1:= _
        "=*Trouvé*", Operator:=xlAnd
NbNt = ActiveSheet.ListObjects("DonnGrc").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows.Count

or Debug.Print NbNt répond 1 alors que j'ai 18 non trouvés.
Est-ce quelqu'un peut m'aider svp.
Merci.

[casefayere]

Bonjour,
et si tu essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim NbNt As Integer
ActiveSheet.Range("DonnGrc").AutoFilter Field:=1, Criteria1:= _
        "=*Trouvé*", Operator:=xlAnd
NbNt = ActiveSheet.Range("DonnGrc").SpecialCells(xlCellTypeVisible).Rows.Count
MsgBox NbNt

[Invité]

commence par trouver un exemple qui ne retourne rien!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim r As Range
Set r = ActiveSheet.UsedRange
For I = 2 To r.Rows.Count
If r(I, 1).EntireRow.Hidden Then MsgBox "Pas Visible"
Next

[mouftie]

Bonjour Dominique,
Ta solution ne change rien, j'ai toujours 1 au lieu de 18.
Je vais essayé la solution de rdurupt

[mouftie]

Bonjour Robert,
Ta solution passe en revue toutes les lignes de la feuille non triées (j'ai reçu plus de 18 messages "Pas visibles".
j'ai également testé avec un filtre vide, mais c'est pareil, je boucle.
Merci de votre aide

[Invité]

Oui elle passe en revue toutes les ligne.
dans mon exemple je test le ligne masquées.

Code là 18 normalement! :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
 
Dim Nb As Long
Dim r As Range
Set r = ActiveSheet.UsedRange
Nb = 0
For I = 2 To r.Rows.Count
If r(I, 1).EntireRow.Hidden = False Then Nb = Nb + 1
Next
Debug.Print Nb
End Sub

[mouftie]

Robert,
effectivement, cela fonctionne (même quand le filtre renvoie aucune donnée), mais j'ai des fichiers très gros, et ta solution liste toutes les lignes du tableau avant le filtre ; j'aurai préféré (si possible ;>) quelque chose qui compte que les lignes filtrées.

[casefayere]

Perso, tu m'étonnes car j'ai testé ce que je t'ai proposé, au hasard, es-tu sur que le filtre est sur le mot "trouvé" et non "trouve" ?

[mercatog]

l'erreur initiale vient du faite que Plage.Rows.count donne si Plage est une plage discontinue seulement le nombre de lignes de de la première zone.

testez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test2()
Dim Plage As Range
 
Set Plage = Union(Range("A1:A2"), Range("A12:X16126"))
 
MsgBox Plage.Rows.Count
End Sub

2!! comme résultat

Pour la question initiale, faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
Dim NbNt As Long
 
With ActiveSheet.ListObjects("DonnGrc")
    .Range.AutoFilter Field:=1, Criteria1:="=*Trouvé*"
    NbNt = .Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 'pour ne pas compter la ligne des titres
    MsgBox NbNt
End With
End Sub

[mouftie]

Oui, j'ai 18 "non trouvé" et 0 "zz", j'ai testé avec Criteria1:= "=*Trouvé*" et Criteria1:= "=*zz*"
Quand je fais le pas à pas, il passe de If r(i, 1).EntireRow.Hidden = False Then
à
next, sans passé par NB le nombre de fois que j'ai de ligne dans mon fichier initiale

[mouftie]

Bonjour mercatog,
c'est exactement ce que je voulais faire...
Merci beaucoup à vous trois.
Bonne soirée