Discussion :

[Airahn]

Bonjour,

J'utilise un autoFilter sur un tableau pour supprimer certaines lignes. Le problème est que quoiqu'il arrive, que le critère soit bon ou non, la première ligne de mon tableau est supprimée.

y'a-t-il un moyen de ne pas supprimer la première ligne si le critère ne correspond pas?

Voilà un exemple de ce que j'utilise et son résultat:

Code :

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

1
2
ActiveSheet.Range("A1:A8").AutoFilter Field:=1, Criteria1:="F"
    Rows("1:8").Delete

Merci d'avance

[BENNASR]

bonjour
à tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub filtreetsupprimer()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1")
Dim I As Long
 Application.ScreenUpdating = False
 With F1
 .Activate
I = .Cells(Rows.Count, 1).End(xlUp).Row
 .Range("A1:A" & I).AutoFilter Field:=1, Criteria1:="F"
 .Range("A2:A" & I).SpecialCells(xlCellTypeVisible).EntireRow.Delete
 .ShowAllData
End With
 Application.ScreenUpdating = True
End Sub

[Airahn]

Bonjour,

Yes merci ça fonctionne parfaitement

Bonne journée à toi

[Airahn]

Rebonjour,


Rectification, ça ne fonctionne pas. Lorsque ma première ligne correspond au critère, elle n'est pas supprimée, et si aucune ligne ne correspond j'ai une erreur notant:

Erreur 1004, Pas de cellules correspondantes.

J'avoue ne pas comprendre d'où vient cette erreur.

[BENNASR]

donner un exemple svp
pour moi la cellule A1 est dédiée pour le titre de la colonne non??

[BENNASR]

A TESTER
NB : un autodidacte VBA

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 filtreetsupprimer()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1")
Dim I As Long
 Application.ScreenUpdating = False
 
 With F1
 
 .Activate
I = .Cells(Rows.Count, 1).End(xlUp).Row
 .Range("A1:A" & I).AutoFilter Field:=1, Criteria1:="F"
 On Error Resume Next
 .Range("A2:A" & I).SpecialCells(xlCellTypeVisible).EntireRow.Delete
 If .FilterMode = True Then .ShowAllData
End With
 Application.ScreenUpdating = True
End Sub

[Airahn]

Oui effectivement je viens juste de comprendre que la cellule où est placé le filtre n'est pas filtré, excuse moi j'apprend encore.

Quand à l'autre soucis, l'erreur quand aucune cellule ne match, je crois que le problème viens du SpecialCells(xlCellTypeVisible). Si aucune cellule visible ne contient de valeur c'est là que j'ai mon erreur.
Il me faudrait juste pouvoir tester si des valeurs sont visibles après le filtre.

J'ai tenté un

Code :

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

If Not ActiveSheet.Range("A2:A" & i).SpecialCells(xlCellTypeVisible) Is Nothing Then

Mais j'obtient la même erreur

Actuellement mon code ressemble à ça après les changements et le if qui ne fonctionne pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub testFiltre()
    Dim i As Long
    i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row
 
    ActiveSheet.Range("A1:A" & i).AutoFilter Field:=1, Criteria1:="F"
    'If Not ActiveSheet.Range("A2:A" & i).SpecialCells(xlCellTypeVisible) Is Nothing Then
        ActiveSheet.Range("A2:A" & i).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    'End If
    ActiveSheet.ShowAllData
 
End Sub