Afficher le complémentaire d'une selection par auto filter

Version imprimable

Chères amies, chers amis du forum

Je suis sur un probleme qui me gache la vie depuis un paquet de mois. Ce code me permet d'afficher le resultat issu d'un autofilter:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 With Sheets("BDD") .Select For j = 2 To intNcol vntTmpVector = Application.Index(Application.Transpose(gvVNTArrayQueryData), j) strTmpName = CStr(vntTmpVector(1)) vntTmpVector(1) = Empty .Range(.Cells(4, 1), .Cells(4, 1).End(xlToRight)).AutoFilter Field:=20, Criteria1:=Array(vntTmpVector), Operator:=xlFilterValues If .FilterMode = True Then .ShowAllData Next j 'If .FilterMode = True Then .ShowAllData End With
ou vntTmpVector est un vecteur extrait d'un tableau/matrice composé de string.

Cepandant je souhaite afficher le complémentaire de cette selection, j'avais pensé à ajouter "<> " devant tout les élément du vecteur mais sa marche pas.

Auriez vous une idée SVP?

Merci

11/08/2014, 21h40
parmi

Bonjour,

Il te faudrait refaire un tableau de chaque valeur excluant celles de vntTmpVector.
Tu pourrais y arriver en bouclant ta colonne de données et vérifier si ces données sont ou non dans vntTmpVector.
Le tableau servant de filtre doit être en String.

Ou si tu peux ajouter une colonne, tu pourrais utiliser une formule pour rechercher tes valeurs dans une liste à exclure.
Il te resterait à filtrer cette colonne...
11/08/2014, 22h53
Nono Sto

Sinon est il possible de supprimer les cellule masquer par le filtre?

Si ça ne dérange pas de supprimer les lignes, on pourrait y aller avec quelque chose comme ça, j'imagine (?)

Code:

1
2
3
4
5
6
7
8
    Dim I As Long, nbLignes As Long
 
    nbLignes = Range("A1").CurrentRegion.Rows.Count
    For I = nbLignes To 2 Step -1
        If Rows(I).Hidden Then
            Rows(I).Delete
        End If
    Next

12/08/2014, 06h53
Nono Sto

Merci

Je pense passer par une autre voie supprimer toute les ligne caché prend beaucoup trop de temps (56000 ligne a effacé sa a fais planté le PC)