Discussion :

[JDDUBUC]

Bonjour
Je voudrais supprimer les lignes dont les cellules d'une colonne ( a l 'ocurance la c' est O) contient "COMPTE", quand j' execute la macro suivant ca m'efface toutes les lignes. est ce que l'on peut me dire ou est l'erreur

Code vba :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim PLG_FIL As Range
If Not ActiveSheet.AutoFilterMode Then
Range("O1").AutoFilter Field:=1, Criteria1:="compte"
End If
Set PLG_FIL = ActiveSheet.AutoFilter.Range
PLG_FIL.Offset(1, 0).Resize(PLG_FIL.Rows.Count - 1, 1).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

Merci pour l'aide

[ARTURO83]

Bonjour,

Essayez ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
    Dim PLG_FIL As Range
    DerLig = [O10000].End(xlUp).Row
    ActiveSheet.AutoFilterMode = False
    If Application.WorksheetFunction.CountIf(Range("O2:O" & DerLig), "*compte*") > 0 Then
        ActiveSheet.Range("O1:O" & DerLig).AutoFilter Field:=1, Criteria1:="*compte*"
        Set PLG_FIL = ActiveSheet.AutoFilter.Range
        PLG_FIL.Offset(1, 0).Resize(PLG_FIL.Rows.Count - 1, 1).EntireRow.Delete
        End If
    ActiveSheet.AutoFilterMode = False
End Sub

Cdlt