Discussion :

[Nono Sto]

Chères amies, chers amis du forum

J'ai codé un bout de macro qui a pour but de supprimer une sélection de cellule visible après avoir filtrer:

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
 
With Sheets("BDD")
    Nrow = Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Count
    Ncol = Range(Cells(4, 1), Cells(4, 1).End(xlToRight)).Count
    .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
        .Range(Cells(5, 1), Cells(intNrow, intNcol)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilter
    Next j
    If .FilterMode = True Then .ShowAllData
End With

La selection par critere via le vecteur vntTmpVector fonctionne, cepandant lorsque l'on passe à la ligne suivante vba ne supprime pas les lignes et j'ai le message derreur suivant:

Impossible d'utiliser cette commande sur des selections qui se regroupent.

Auriez vous une idée SVP?

Merci

[Daniel.C]

Bonjour,

Difficile de dire, tu ne montres pas comment sont renseignées les variables "intNrow" et "intNcol". Par contre, tu devrais mettre :

Code :

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

.Range(.Cells(5, 1), .Cells(intNrow, intNcol)).SpecialCells(xlCellTypeVisible).EntireRow.Delete

et de même sur les autres lignes.

[Daniel.C]

Quelle est ta version d'Excel ?

[Nono Sto]

Merci

Bienvu le souci vient bien de intRow et intCol qui sont des variable public, je dois utiliser Nrow et Ncol pour cette partie du code, et là sa marche.

Ma version est Office 2013.

Avant de mettre résolu pourquoi j'ai du ajouter des point devant l'instruction cell, alors que precedemment sa marché sans?

Merci

[Daniel.C]

Avant de mettre résolu pourquoi j'ai du ajouter des point devant l'instruction cell, alors que precedemment sa marché sans?

Ca marche sans points parce que la feuille sur laquelle tu filtres est la feuille active. Sélectionne une autre feuille et ton code va planter, parce que ".Range" fait référence à la feuille "BDD" indiquée par :

Code :

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

With Sheets("BDD")

alors que "Cells..." sans point fait référence à la feuille active.

[Nono Sto]

Merci pour tous