Bonsoir à toutes et tous,
J'ai une macro qui fait des filtres sur plusieurs onglets.
Tout ce passe bien, sauf sur un onglet qui contient 78000 lignes.
Mon code plante au moment de supprimer les lignes qui ne répondent pas au critères
( erreur 1004, plage de données trop complexe).
Apparemment il y a trop de lignes. Peut-on contourner le problème
Merci de votre aide.
@+
J'ai une macro qui fait des filtres sur plusieurs onglets.
Tout ce passe bien, sauf sur un onglet qui contient 78000 lignes.
Mon code plante au moment de supprimer les lignes qui ne répondent pas au critères
( erreur 1004, plage de données trop complexe).
Apparemment il y a trop de lignes. Peut-on contourner le problème
Code:
With Worksheets("Test").Range("b3:b" & Worksheets("Test").Range("b1000000").End(xlUp).Row)
Set d = .Find(c)
If Not d Is Nothing Then
Départ = d.Address
Do
d(1, 12) = "X"
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> Départ
End If
End With
Set c = c(0, 1)
Loop
With Worksheets("TEST")
If Not AutoFilterMode Then AutoFilterMode = True
.[M1].AutoFilter 13, "<>X"
Set d = .Range("_FilterDataBase")
d.Offset(1, 0).Resize(d.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp 'plante ici
.ShowAllData
.Columns("M:M").Clear
End With
@+