Copy entete filtre

[F2T]

Bonjour,

lors d'une selection par filtre, si aucun resultat resort.

Les titres sont selectionné et copié.

tres embettant pour ma part.

Sub Der_cel9()
DERLIGNE = RANGE("A" & Application.Rows.Count).End(xlUp).Row
Dercol = Sheets("TB").Cells(10, Application.Columns.Count).End(xlToLeft).Column + 2
RANGE(Cells(11, 1).Address & ":" & Cells(DERLIGNE, Dercol).Address).Select
End Sub

Sub EOD()
 


    Workbooks![TB.XLSM].Activate
    Sheets("TB").Select

    
   ActiveSheet.RANGE("$A$10:$BY$10").AutoFilter Field:=77, Criteria1:= _
        "CT", Operator:=xlOr, Criteria2:="NE"
    
    Call Der_cel9



End Sub

quelqu'un aurait il une formule miracle pour regler se pb.

Pour ma part aucun copy ne devrait realisé ,la zone de filtre resortant aucun resultat.





voici le code qui copy

    Selection.Copy
    Sheets("TBH").Select
    RANGE("A" & Application.Rows.Count).End(xlUp).Offset(1, 0).Select
   
     ActiveSheet.Paste

 

[Grand Chaman Excel]

Re : Copy entete filtre

Si je comprends bien... pourquoi ne pas vérifier le nombre de ligne de la sélection à copier. Si celle-ci n'a qu'une seule ligne alors ne pas copier car cela veut dire qu'il n'y a que le titre...

Ex. If Selection.Rows.Count > 1 then ...