Discussion :

[gaston64]

Je n'arrive pas à trouver mon erreur dans la macro
La macro bloque sur la derniere ligne f1.range ....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub miseenforme()
 
For i = 2 To Sheets.Count
Set f1 = Sheets("synthese")
 
dernierecolonne1 = f1.Range("iv1").End(xlToLeft).Column
derniereligne1 = f1.Range("A1048576").End(xlUp).Row
 
dernierecolonne2 = Sheets(i).Range("iv1").End(xlToLeft).Column
derniereligne2 = Sheets(i).Range("A1048576").End(xlUp).Row
 
derligne3 = derniereligne1 + derniereligne2 - 1
 
Sheets(i).Range(Cells(1, 1).Address & ":" & Cells(derniereligne2, 12).Address).Copy
f1.Range(Cells(derniereligne1, 1).Address & ":" & Cells(derligne3, 12).Address).Paste
 
 
Next i
 
End Sub

merci pour votre aide

[Guiiand]

Bonjour,

Tu n'es pas obligé de passe par .Address sur ces lignes :

Code :

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

1
2
Sheets(i).Range(Cells(1, 1).Address & ":" & Cells(derniereligne2, 12).Address).Copy
f1.Range(Cells(derniereligne1, 1).Address & ":" & Cells(derligne3, 12).Address).Paste

Remplace ces lignes par :

Code :

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

1
2
Sheets(i).Range(Cells(1, 1), Cells(derniereligne2, 12)).Copy
f1.Range(Cells(derniereligne1, 1), Cells(derligne3, 12)).Paste