Discussion :

[Druddy66]

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 :

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
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,

[BENNASR]

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 :

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
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

[Franc]

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 :

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

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