Macro suppression de lignes via filtre prob si selection vide

tamtam43 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention - 16 févr. 2014 à 16:51

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

A voir également:

Macro suppression de lignes via filtre prob si selection vide
Forcer suppression fichier - Guide
Photo filtre 7 gratuit - Télécharger - Retouche d'image
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Supprimer page word vide - Guide
Caractere vide - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

bonjour
essayer ceci

    Selection.AutoFilter
    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****************

cdlt

Discussions similaires

le frigo ne marche pas....

Internat nourriture

Excel ne filtre pas les derniere donnée ecrite

Comment faire les coeur vide sur FB

Votre réponse

Discussions similaires