problème dans VBA

[saverloo]

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

 

[Compte Supprimé 979]

Re : problème dans VBA

Bonjour Saverloo,

Tu peux essayer ce code, non optimisé, pour une meilleure compréhension (j'espère)

Sub RecapLundi()
  Dim DLig As Long
  ' En cas d'erreur on continue
  On Error Resume Next
  ' supprimer le filtrage de la feuille recap et effacer les datas
  With Sheets("recapcomlundi")
    .ShowAllData
    .Range("A14:C" & .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row).ClearContents
  End With
  
  With Sheets("LUNDI")
    .Range("AC10:AD" & .Range("AC" & Rows.Count).End(xlUp).Row).Copy
  End With
  
  With Sheets("recapcomlundi")
    .Range("A14").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  End With


  With Sheets("LUNDI")
    .Range("AB10:AB" & .Range("AC" & Rows.Count).End(xlUp).Row).Copy
  End With


  With Sheets("recapcomlundi")
    .Range("C14").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    With .Range("A14:C" & .Range("A" & Rows.Count).End(xlUp).Row)
      .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", "=")
    End With
  End With
End Sub

A+

 

[saverloo]

Re : problème dans VBA

Hello et merci pour ton aide, cela ne fonctionne pas non plus. je continue a chercher une solution

 

[mutzik]

Re : problème dans VBA

bonjour,

un fichier joint nous serait bcp plus utile