Copy Paste en VBA

**LaPanic** · 22/04/2010, 22h15

Bonjour tlm,
Le code ci-dessous ne veux pas passer et ca bloque au niveau de la première ligne, j'ai essayé d'optimiser le code mais ca foire en sachant que la feuille Input contient un tableau A1:C5 et je voudrais récupérer le tableau A2:C4 c'est a dire éviter de prendre ni la première ligne ni la dernière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Report()
 
    Windows("Daily.xls").Sheets("Input").Activate
    Range("A2", Range("A2").End(xlDown).End(xlToRight)).Copy
 
    Windows("Historical_Report.xls").Activate
    Sheets("Historical").Range("A2").End(xlDown).Select
    Cells(ActiveCell.Row + 1, 1).Select
    ActiveSheet.Paste
 
End Sub

Merci pour votre aide

**sabzzz** · 22/04/2010, 23h49

bonjour LaPanic,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
Set fSh1 = Workbooks("Daily.xls").Sheets("Input")
ligne1 = fSh1.Range("A65536").End(xlUp).Row - 1
colonne1 = fSh1.Range("IV1").End(xlToLeft).Column
 
Set fSh2 = Workbooks("Historical_Report.xls").Sheets("Historical")
ligne2 = fSh2.Range("A65536").End(xlUp).Row
colonne2 = fSh2.Range("IV1").End(xlToLeft).Column
 
fSh1.Range("A2:" & Cells(ligne1, colonne1).Address).Copy fSh2.Cells(ligne2, colonne2)
End Sub

**LaPanic** · 25/04/2010, 19h19

Merci sabzzz,
J'ai essayé ton code mais ça bloque a la première ligne en plus j'ai pas su comment faire pour insérer le copier/coller

Je voudrais savoir s'il y a moyen d'optimiser le code ci-dessous (ce code marche très bien mais c'est pour un souci de délais de traitement)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Windows("Daily.xls").Activate
Sheets("Input").Range("A2", Range("A2").End(xlDown).End(xlToRight)).Copy
 
Windows("Historical_Report.xls").Activate
Sheets("Historical").Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Merci pour votre aide