Macro filtrer et supprimer

Bonjour à tous,

Voila mon problème, Je n'arrive pas a supprimer les lignes qui déjà filtrés

Je souhaite ajouter le code qui supprime les lignes filtrées dans la feuille'' Mouv''.

Merci d'avance.

Cordialement.

veuillez trouver ci joint mon fichier

24faturzine.xlsm (109.09 Ko)

Bonjour Zinelamri,

Je propose le code suivant:

Sub DeleteRowsAutofiltered()
    Dim Ws As Worksheet
    Dim Nblg As Long
    Dim oRange As Range

    Application.ScreenUpdating = False
    Set Ws = ThisWorkbook.Sheets("Mouv")
    Set oRange = Ws.Range(Ws.Rows(6), Ws.Rows(Ws.UsedRange.Rows.Count))
    'on teste pour savoir si un filtre est actif et dans ce cas, on supprime les lignes filtrées
    If oRange.SpecialCells(xlCellTypeVisible).Rows.Count < oRange.Rows.Count Then
        oRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End If

    'On fait le ménage
    Set Ws = Nothing
    Set oRange = Nothing
End Sub

bonjour forum

bonjour GVIALLES

Merci beaucoup pour cette réponse rapide.

il s'agit d'intègre le code de suppression à mon code actuel dans même bouton VALIDER.

je souhaite supprimer la liste qui déjà filtré ( et les vides ) dans la feuille "mouv" .

Merci beaucoup pour votre attention.

Cordialement.

Bonjour le forum ,

Bonjour Gérard,

Après quelques tentatives, j'ai pu intégrer votre code vba dans mon application.

ça marche très bien

je vous remercie infiniment pour votre aide, Je m'excuse pour le retard de ma réponse.

cordialement zine

Rechercher des sujets similaires à "macro filtrer supprimer"