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 ...