Macro suppression de lignes via filtre prob si selection vide

Fermé

tamtam43 Messages postés 1 Date d'inscription mardi 11 février 2014 Statut Membre Dernière intervention 11 février 2014 - 11 févr. 2014 à 18:07
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 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
Photo filtre gratuit - Télécharger - Retouche d'image
Forcer suppression fichier - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Coeur vide ✓ - Forum Facebook

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
16 févr. 2014 à 16:51

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

Comment faire le symbole coeur vide/coeur blanc

le frigo ne marche pas....

"L'indice n'appartient à la sélection" + VBA

Formaté mais pas de connexion Internet ?

Internat nourriture

Discussions similaires

Newsletters