Aide pour un macro

Re : Aide pour un macro

bonjour,

Cette macro dans un module :

Sub cumul()
Application.ScreenUpdating = False
Sheets("TOTAL").Select
derli = Sheets("TOTAL").Range("A6553").End(xlUp).Row
Range(Cells(2, 1), Cells(derli, 2)).ClearContents
For Each sht In ActiveWorkbook.Sheets
a = sht.Name
If Left(a, 5) <> "Table" Then GoTo fin
derligne = Sheets(a).Range("A6553").End(xlUp).Row
Sheets(a).Select
Range(Cells(2, 1), Cells(derligne, 2)).Copy
derli = Sheets("TOTAL").Range("A6553").End(xlUp).Row + 1
Sheets("TOTAL").Select
Sheets("TOTAL").Select
Cells(derli, 1).Select
ActiveSheet.Paste

fin:
Next
End Sub

a+

Re : Aide pour un macro

bonjour,

si toutes les tables ont la même taille :
Sub cumul()
Dim sht, nm
Application.ScreenUpdating = False
Sheets("TOTAL").Range("A2:B" & Rows.Count).ClearContents
For Each sht In ActiveWorkbook.Sheets
nm = sht.Name
If Left(nm, 5) = "Table" Then
Sheets(nm).Range("A2:B50").Copy Destination:=Sheets("TOTAL").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next
End Sub

Re : Aide pour un macro

Re bonjour
merci CHALET53 et mutzik