Probleme sur une macro excel qui ne copie pas tout

Probleme sur une macro excel qui ne copie pas tout - VB/VBA/VBS - Programmation

Marsh Posté le 23-04-2008 à 14:25:03    

Salut a tous, j'ai un petit soucis avec une macro au taff,  
 

Code :
  1. Sub Macro1()
  2.     Sheets("base" ).Select
  3.     Range("A2:H4000" ).Select
  4.     Selection.ClearContents
  5.     Range("A2" ).Select
  6.    
  7.    
  8.     ChDir "Le repertoire"
  9.     Workbooks.OpenText Filename:="Le chemin^^", Origin:= _
  10.         xlWindows, StartRow:=1, DataType:=xlFixedWidth, _
  11.         FieldInfo:=Array(Array(0, 2), Array(2, 2), Array(6, 9), _
  12.         Array(9, 2), Array(15, 9), Array(16, 9), Array(22, 2), Array(23, 2) _
  13.         , Array(24, 2), Array(54, 1), Array(67, 1), Array(80, 9), Array(86, _
  14.         1))
  15.     'RéperChanger "A:\"
  16.     Range("A1:H4000" ).Select
  17.     Selection.Copy
  18.     Windows("recup05test.xls" ).Activate
  19.     Range("A2" ).Select
  20.     ActiveSheet.Paste
  22.     Range("A1:I4000" ).Select
  23.     Range("A1:I4000" ).AdvancedFilter Action:=xlFilterCopy, _
  24.         CriteriaRange:=Range("K1:S4" ), CopyToRange:=Range("M10:P10" ), _
  25.         Unique:=False
  26.     Range("A1" ).Select
  27.     ActiveWindow.LargeScroll ToRight:=1
  28.     Range("J1" ).Select
  29.     Application.Goto Reference:="edition"
  30.     Selection.Copy
  31.     Sheets("edit" ).Select
  32.     Range("B8" ).Select
  33.     ActiveSheet.Paste
  34.     Application.CutCopyMode = False
  35.     'ActiveWindow.SelectedSheets.PrintOut Copies:=1
  36.     Sheets("edit" ).Select   
  37.    
  38.    
  39. End Sub


 
Quand ma macro est executé ,cela copie une partie du tableau dans  mon premier onglet base qui est trier comme il faut (celui la est bon), puis cela recopie le tableau dans un autre onglet "edit", mais cela ne copie que les 300 premieres lignes, et je n'arrive pas a voir le probleme (pour moi cela se situe dans les lignes 23 a 36)
 
 
Merci de votre aide.


Message édité par aureliens le 23-04-2008 à 14:25:45
Reply

Marsh Posté le 23-04-2008 à 14:25:03   

Reply

Marsh Posté le 07-05-2008 à 10:43:13    

Euh je ne saisis pas toute la macro. J'imagine qu'elle a été enregistrée. Je te suggère de virer à peu près tout ça :
 
Range("A1:I4000" ).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("K1:S4" ), CopyToRange:=Range("M10:P10" ), _
        Unique:=False
    Range("A1" ).Select
    ActiveWindow.LargeScroll ToRight:=1
    Range("J1" ).Select
    Application.Goto Reference:="edition"

 
... et de tenter ta chance. Fais bien une sauvegarde de ton travail parce que là pour le coup je ne suis pas sûr de moi avec mon petit niveau.
 
A plus !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed