bonsoir a toutes et tous,
voila j'ai un soucis dans cette VBA
en faite celle ci copie plusieurs colonne ensuite les recopie sur une autre feuille et la j'effectue un filtre pour retirer les blanc et les erreur style NA. cela fonctionne mais parfois a la place de me mettre par exemple 36 produits dans le coller il met 33 et vise versa. quand j'eleve le filtre la le nombre est correct. auriez vous une idée pour que cela fonctionne ?
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
merci d'avance pour vos idées et solutions
voila j'ai un soucis dans cette VBA
en faite celle ci copie plusieurs colonne ensuite les recopie sur une autre feuille et la j'effectue un filtre pour retirer les blanc et les erreur style NA. cela fonctionne mais parfois a la place de me mettre par exemple 36 produits dans le coller il met 33 et vise versa. quand j'eleve le filtre la le nombre est correct. auriez vous une idée pour que cela fonctionne ?
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
merci d'avance pour vos idées et solutions