Discussion :

[phoenix974]

Bonjour à tous

Je cherche à supprimer des données à l'aide d'un filtre. La base fait 35000 ligne et je filtre sur la colonne J avec le critere "PRIVATE". Cependant j'ai une erreur 1004 "la methode delete de la classe range a échoué.

Pouvez vous m'aider à trouver d'ou vient le problème.

Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub supprime2()
Dim N As Long
Application.ScreenUpdating = False
 
With ThisWorkbook.Sheets("Data")
    .AutoFilterMode = False
    N = .Range("J" & .Rows.Count).End(xlUp).Row
    .Range("J1:J" & N).AutoFilter field:=10, Criteria1:="PRIVATE"
    If .Range("J1:J" & N).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("J2:J" & N).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilterMode = False
End With
 
End Sub

[joe.levrai]

Bonjour,

si ton filtre ne remonte aucun résultat, alors ta plage des cellules visibles est nulle, d'où un problème pour la supprimer

sachant que supprimer des lignes filtrées, c'est très gourmand en temps de traitement, surtout s'il y a des milliers de lignes et que les données ne sont pas triées ... est-ce qu'un export des données à conserver et une suppression de la feuille source serait envisageable dans ton contexte ?

avec l'outil Filtre Avancé, on peut recréer à l'identique ta base initiale, épurée des éléments voulus


un exemple, attention à bien tester ça sur un fichier brouillon car ça supprime la feuille initiale

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
18
19
20
21
22
Sub supprime2()
Dim ShSource As Worksheet: Set ShSource = ThisWorkbook.Sheets("Data")
Dim NomFeuille As String: NomFeuille = ShSource.Name
    ' création d'une feuille
    With Worksheets.Add
        ' écriture du critère du filtre
        .Range("A1").Value = ShSource.Cells(1, 20).Value ' titre de la colonne T
        .Range("A2").Value = "<>PRIVATE"                 ' critère
 
        ' application du filtre
        ShSource.Range("J1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("A1:A2"), .Range("J4")
 
        ' suppression de la zone de critère
        .Range("A1:A3").EntireRow.Delete
 
        ' suppression de la feuille initiale
        Application.DisplayAlerts = False: ShSource.Delete: Application.DisplayAlerts = True
 
        ' nomme la nouvelle feuille par le nom de l'ancienne feuille
        .Name = NomFeuille
    End With
End Sub

le résultat devrait être instantané, même pour 35 000 lignes

[Marc-L]

Bonjour,

une rapide suppression peut se faire par formule de calculs puis par tri afin d'effacer un unique bloc de lignes !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[phoenix974]

Bonjour,

si ton filtre ne remonte aucun résultat, alors ta plage des cellules visibles est nulle, d'où un problème pour la supprimer

sachant que supprimer des lignes filtrées, c'est très gourmand en temps de traitement, surtout s'il y a des milliers de lignes et que les données ne sont pas triées ... est-ce qu'un export des données à conserver et une suppression de la feuille source serait envisageable dans ton contexte ?

avec l'outil Filtre Avancé, on peut recréer à l'identique ta base initiale, épurée des éléments voulus


un exemple, attention à bien tester ça sur un fichier brouillon car ça supprime la feuille initiale

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
18
19
20
21
22
Sub supprime2()
Dim ShSource As Worksheet: Set ShSource = ThisWorkbook.Sheets("Data")
Dim NomFeuille As String: NomFeuille = ShSource.Name
    ' création d'une feuille
    With Worksheets.Add
        ' écriture du critère du filtre
        .Range("A1").Value = ShSource.Cells(1, 20).Value ' titre de la colonne T
        .Range("A2").Value = "<>PRIVATE"                 ' critère
 
        ' application du filtre
        ShSource.Range("J1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("A1:A2"), .Range("J4")
 
        ' suppression de la zone de critère
        .Range("A1:A3").EntireRow.Delete
 
        ' suppression de la feuille initiale
        Application.DisplayAlerts = False: ShSource.Delete: Application.DisplayAlerts = True
 
        ' nomme la nouvelle feuille par le nom de l'ancienne feuille
        .Name = NomFeuille
    End With
End Sub

le résultat devrait être instantané, même pour 35 000 lignes

Merci Joel pour ton code cel fonctionne bien le probleme c'est que derrier j'ai un TCD qui à pour source une plage dynamique et du coup avec cette méthode je supprime ma référence de base

Code :

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

=DECALER(#REF!$A$1;;;NBVAL(#REF!$A:$A);NBVAL(#REF!$1:$1))

Comment remédier à cela?