Code 400 dans script VBA

Version imprimable

Bonjour à tous,

J'ai une macro VBA pour supprimer les lignes qui ne contiennent pas CCPACK dans la colonne 29 de mon fichier. Cela me remonte un code 400 sur la ligne en gras :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'*********************************
' DelLign <>CCPACK
'*********************************
Sub DelLign()


Dim onglet As Worksheet
Dim dernière_colonne As Long
Dim dernière_ligne As Long
Set onglet = Worksheets(1)

dernière_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
dernière_colonne = onglet.Cells(1, Columns.Count).End(xlToLeft).Column



    Range("AC2").Select
    onglet.Range(onglet.Cells(1, 1), onglet.Cells(dernière_ligne, dernière_colonne)).AutoFilter Field:=29, Criteria1:="<>*CCPACK*", Operator:=xlAnd
        Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    onglet.Range(onglet.Cells(1, 1), onglet.Cells(dernière_ligne, dernière_colonne)).AutoFilter Field:=29
    
End Sub

Pourriez-vous me dire quelle est mon erreur ?

Je vous remercie par avance,

Bonjour
peut être tu appelle le code depuis un autre onglet donc j'ai juste onglet. devant chaque range
aussi et si tu fais le filtre sur une seule colonne je ne voie pas pourquoi , Operator:=xlAnd
essayer avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub DelLign()
 
 
Dim onglet As Worksheet
Dim dernière_colonne As Long
Dim dernière_ligne As Long
Set onglet = Worksheets(1)
 
dernière_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
dernière_colonne = onglet.Cells(1, Columns.Count).End(xlToLeft).Column
    onglet.Range("AC2").Select
    onglet.Range(onglet.Cells(1, 1), onglet.Cells(dernière_ligne, dernière_colonne)).AutoFilter Field:=29, Criteria1:="<>*CCPACK*"
    onglet.Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    onglet.Range(onglet.Cells(1, 1), onglet.Cells(dernière_ligne, dernière_colonne)).AutoFilter Field:=29
 
End Sub

Salut,
Sans connaître ton projet complet, j'ai juste créé un petit tableau ou j'ai inscrit "CCPACK' de facon aléatoire dans la colonne AC2 et des données dans les lignes adjacentes.
J'ai fait tourner la macro ci-dessous et le résultat est un tableau où seules les lignes contenant CCPACK sont visibles les unes en dessous des autres.
J'ai supposé que tu ne filtrais que la colonne AC2, et donc la remarque de BENNASR est pertinente et pas besoin de xlAnd.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub DelLign() Dim onglet As Worksheet Dim dernière_ligne As Long Set onglet = Worksheets(1) dernière_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row onglet.Range(onglet.Cells(1, 29), onglet.Cells(dernière_ligne, 29)).AutoFilter Field:=1, Criteria1:="<>*CCPACK*" onglet.Range("AC2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp onglet.ShowAllData End Sub