Comment effacer la ligne filtrée sous VB ?

Bonjour,

Lorsque je filtre mon tableau j'obtiens une seule ligne (en A??) de la forme :

A5 NOM PRENOM FONCTION

A?? Martin Pierre Responsable

Je voudrais pouvoir effacer cette ligne, et uniquement cette ligne, qui peut se situer entre A6 et A200 automatiquement apres mon filtre sous VBA, j'ai bien essayé :

Range(Range("A6"), Selection.End(xlUp)).EntireRow.Delete 

mais ça ne marche pas....

Vous auriez une idée ?

Merci d'avance

Bonjour,

Merci d'éviter de poster deux fois ton message sur le forum.

Si tu n'as pas encore reçu de réponse à ta demande, réutilise ton premier message et crèe un nouveau post. Cette façon permettra à ta demande d'être remontée automatiquement en première position.

Pour ton pb, essaye ceci :

With ActiveSheet.Rows(6)
If .Hidden = False Then .EntireRow.Delete
End With

Cela suppose que la ligne à supprimer est toujours la ligne 6.

Amicalement

Dan

Bonsoir,

regarde ce code, que je t'avais déjà donné, dans un précédent fil

Sub efface_choix()
Dim Lig As Integer, x As Integer
Lig = [A65000].End(xlUp).Row
If Range("A5:A" & Lig).SpecialCells(xlCellTypeVisible).Areas(1).Count > 1 Then
    x = 6
  Else
    x = Range("A5:A" & Lig).SpecialCells(xlCellTypeVisible).Areas(2).Item(1).Row
  End If
  Rows(x).Delete
ActiveSheet.ShowAllData
End Sub