Macro suppression de lignes via filtre prob si selection vide
tamtam43
Messages postés
1
Statut
Membre
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
Bonsoir,
j'arrive à faire une macro qui, entre autre, supprime les lignes issues d'un filtre. La macro désactive le filtre ensuite et continue...
Mais j'ai un problème lorsque la selection du filtre ne renvoie aucune ligne de données (ce qui peut arriver parfois). La macro s'arrête au lieu de désactiver le filtre et de continuer.
Ci-joint le code que j'utilise :
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$10000").AutoFilter Field:=1, Criteria1:="=RG", _ Operator:=xlOr, Criteria2:="=SIE"
ActiveSheet.Range("_FilterDataBase").Offset(1). _
Resize(ActiveSheet.Range("_FilterDataBase").Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.Range("$A$1:$L$10000").AutoFilter Field:=1
Merci beaucoup de votre aide si quelqu'un a la solution...
j'arrive à faire une macro qui, entre autre, supprime les lignes issues d'un filtre. La macro désactive le filtre ensuite et continue...
Mais j'ai un problème lorsque la selection du filtre ne renvoie aucune ligne de données (ce qui peut arriver parfois). La macro s'arrête au lieu de désactiver le filtre et de continuer.
Ci-joint le code que j'utilise :
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$10000").AutoFilter Field:=1, Criteria1:="=RG", _ Operator:=xlOr, Criteria2:="=SIE"
ActiveSheet.Range("_FilterDataBase").Offset(1). _
Resize(ActiveSheet.Range("_FilterDataBase").Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.Range("$A$1:$L$10000").AutoFilter Field:=1
Merci beaucoup de votre aide si quelqu'un a la solution...
A voir également:
- Macro suppression de lignes via filtre prob si selection vide
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Forcer suppression fichier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Supprimer page word vide - Guide
- Caractere vide - Guide
1 réponse
bonjour
essayer ceci
essayer ceci
Selection.AutoFiltercdlt
On Error GoTo Continuer
ActiveSheet.Range("$A$1:$L$10000").AutoFilter Field:=1, Criteria1:="=RG", _
Operator:=xlOr, Criteria2:="=SIE"
ActiveSheet.Range("_FilterDataBase").Offset(1). _
Resize(ActiveSheet.Range("_FilterDataBase").Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
Continuer:
ActiveSheet.Range("$A$1:$L$10000").AutoFilter Field:=1
'****ici la suite du programme****************
