Discussion :

[Nono Sto]

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 :

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

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

[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...

[Nono Sto]

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

[parmi]

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

Code :

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

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

[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)