Re : fonction filtre
bonjour,
heu j'avoue que non car je ne vois pas comment faire ceci le fichier est trop gros pour l'envoyer sur le site voici la macro
en faite le but est qu'il copie les données qui peuvent etre variable dans les colonnes et ensuite le remettre sur une autres feuilles au complet sans les casse vide et sans les erreurs style NA et autres
Sub recaplundi()
'
' recaplundi Macro
'
'
Sheets("recapcomlundi").Select
Selection.AutoFilter
Range("A14:C1042").Select
Selection.ClearContents
Range("A13").Select
Sheets("LUNDI").Select
Range("AC10:AD1000").Select
Selection.Copy
Sheets("recapcomlundi").Select
Range("A14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("F12").Select
Sheets("LUNDI").Select
Range("AB10:AB1000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("recapcomlundi").Select
Range("C14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A14:C14").Select
Sheets("LUNDI").Select
Range("X3").Select
Sheets("recapcomlundi").Select
Range("A14:C1000").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$14:$C$1000").AutoFilter Field:=1, Criteria1:=Array( _
"1051", "1198", "1221", "3720", "3851", "4634", "5440", "6314", "6335", "66", "7422", _
"7423", "7496", "7575", "7610", "7667", "7747", "7944", "7989", "8194", "8199", "8298", _
"8305", "8591", "8713", "8917", "9108", "9266", "9291", "9310", "9375", "9380", "9394", _
"9454", "9477", "9516", "9571", "9572", "9647", "9648", "9698", "9734", "9759", "9777", _
"984", "9902", "9917", "9982", "9987", "="), Operator:=xlFilterValues
ActiveSheet.Range("$A$14:$C$1000").AutoFilter Field:=1, Criteria1:=Array( _
"1051", "1198", "1221", "3720", "3851", "4634", "5440", "6314", "6335", "66", "7422", _
"7423", "7496", "7575", "7610", "7667", "7747", "7944", "7989", "8194", "8199", "8298", _
"8305", "8591", "8713", "8917", "9108", "9266", "9291", "9310", "9375", "9380", "9394", _
"9454", "9477", "9516", "9571", "9572", "9647", "9648", "9698", "9734", "9759", "9777", _
"984", "9902", "9917", "9982", "9987"), Operator:=xlFilterValues
Range("D20").Select
ActiveWindow.ScrollRow = 1
Range("D7").Select
Sheets("LUNDI").Select
Range("V3").Select
End Sub