Message d'erreur pour suppression de ligne sur VBA

Version imprimable

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:

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

10/08/2014, 10h23
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:

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

et de même sur les autres lignes.
10/08/2014, 10h28
Daniel.C

Quelle est ta version d'Excel ?
10/08/2014, 11h49
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
10/08/2014, 12h06
Daniel.C

Citation:

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:

With Sheets("BDD")

alors que "Cells..." sans point fait référence à la feuille active.
10/08/2014, 16h02
Nono Sto

Merci pour tous