Concaténation de plusieurs onglets en un

[Claudy]

Bonjour plusieurs onglets avec les mêmes entêtes...
Je voudrais reprendre tout dans un seul onglet (Concat)
J'ai essayé la macro suivante, mais elle bugge pas(pas de msg d'erreu) mais elle ne repren pas tout!
1656 lignes ald +/-3089 lignes

Merci d'avance,
Claudy

Sub ConcatenationFeuilles()
Dim i As Long, T() As Variant

Application.ScreenUpdating = False
Sheet1.Cells.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> Sheet1.Name Then
With Sheets(i)
T = .Range("A2:V" & .Range("A" & Rows.Count).End(xlUp).Row).Value
Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With
End If
Next i
Erase T
Application.ScreenUpdating = True
End Sub

 

[Staple1600]

Re : Concaténation de plusieurs onglets en un

Bonjour à tous

Claudy:
Et avec ces modifs, cela se passe comment?

Sub ConcatenationFeuillesII()
Dim i&, T()
Application.ScreenUpdating = False
Feuil1.Cells.Clear
For i = 1 To Worksheets.Count
If Sheets(i).Name <> Feuil1.Name Then
With Sheets(i)
T = .Range("A2:V" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
End With
Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp).Offset(1, 0).Resize(UBound(T, 1), UBound(T, 2)) = T
End If
Next i
Erase T
Application.ScreenUpdating = True
End Sub

 

[Claudy]

Re : Concaténation de plusieurs onglets en un

Alors là....
oufti!!!!!..... bon travail...super...merci...
Claudy