Discussion :

[Denis_67]

Recherchant une méthode pour supprimer les lignes affichées par filtrage.
J'ai trouvé cette solution.
Malheureusement dans mon cas j'ai une erreur 424.
La lecture du forum et de l'aide ne m'ont pas aidé sur cette erreur "générique" sur le objets.

Dois-je définitivement renoncer à faire du code ou quelq'un serait-il assez aimable pour ajouter la déclaration éventuelle qui manque.
Voir le gif ci-joint
Merci beaucoup.

Denis

[mercatog]

Bonjour
Il fallait adapter à ton classeur (d'autant plus que ta variable Plageliée n'as été ni déclarée ni instanciée)

Regarde ce code et adapte

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
Sub LaMacro()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil1") 'adapte le nom de ta feuille
    .AutoFilterMode = False
    LastLig = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("A1:D" & LastLig).AutoFilter field:=3, Criteria1:=25
    .Range("A1:D" & LastLig).AutoFilter field:=4, Criteria1:="H"
    If .Range("A1:A" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then
        .Range("A2:A" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End If
    .AutoFilterMode = False
End With
End Sub

[Denis_67]

Je me disais bien que ces deux seules lignes de codes étaient un peu justes !

Cette séquence complète fonctionne sur mon jeu d'essai, je vais le mettre en place dans mon application et le stocker précieusement dans ma bibliothèque.

Donc je vais continuer à faire un peu de code

Merci pour cette réponse efficace et rapide.

Denis