problème copier/coller après filtre

[llambry]

Bonjour

J'ai un problème avec copier coller après filtre lorsque qu'il n'y pas de données... il copie quand même toutes les valeurs ...
voilà un extrait de mon code vba
Selection.AutoFilter Field:=7, Criteria1:="=*emul*", Operator:=xlAnd
Selection.AutoFilter Field:=4, Criteria1:="=*300*", Operator:=xlAnd
' Sheets("F300").Select

On Error Resume Next
If ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible).Value(1, 1) = Empty Then '.value(1, 1)
MsgBox (Error)
Selection.AutoFilter
Exit Sub
End If


Range("B5:B550,F5:F550,J5:J550,L5:L550,P5😛550,Q5:Q550").Select
Range("P5").Activate
Application.CutCopyMode = False
Selection.Copy

 

[Pierrot93]

Re : problème copier/coller après filtre

Bonjour,

pour copier les éléments filtrés si au moins un est présent, ne copie pas la ligne de titre, à adapter à ton projet...

Dim p As Range
Set p = Range("_FilterDatabase")
If WorksheetFunction.Subtotal(3, p.Offset(1).Resize(p.Rows.Count - 1, 1)) > 0 Then
    p.Offset(1).Resize(p.Rows.Count - 1).Copy Sheets("Feuil2").Range("A1")
End If

bonne journée
@+

 

[llambry]

Re : problème copier/coller après filtre

Ok merci je vais essayer...