Fusion de 3 feuilles de calcul en une seule

[ddrcldnn]

Je souhaite fusionner les feuilles de calcul A, B, C en une seule en reportant A, puis B et C. Les entetes ont la meme structure

merci

Fichier joint

 

[kiki29]

Re : Fusion de 3 feuilles de calcul en une seule

Salut, une approche, à toi de poursuivre, lancer la macro ConcatenationFeuilles

 

[ddrcldnn]

Re : Fusion de 3 feuilles de calcul en une seule

Merci, pour le code.
Mais j'ai d'autres feuilles dans le classeur.
Je pensais utiliser : array mais ca ne marche pas .

Sub ConcatenationarrayFeuilles()
Dim i As Variant, T() As Variant

Application.ScreenUpdating = False
ShFusion.Cells.Clear

For i = 1 To Sheets(Array("A", "B", "C"))
With Sheets(i)
Select Case Sheets(i).Name
Case "A"
T = .Range("A1:AG" & .Range("A" & Rows.Count).End(xlUp).Row).Value
ShFusion.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
Case Else
T = .Range("A2:AG" & .Range("A" & Rows.Count).End(xlUp).Row).Value
ShFusion.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
End Select
End With

Next i
Erase T
ShFusion.Rows("1:1").Delete Shift:=xlUp
Application.ScreenUpdating = True
End Sub


Avez-vous la solution

Merci

 

[kiki29]

Re : Fusion de 3 feuilles de calcul en une seule

Rz, remplacer

Case Else

par

Case "B", "C"

Array pourrait fonctionner mais comme tu fais n'importe quoi

 

[ddrcldnn]

Re : Fusion de 3 feuilles de calcul en une seule

merci, et c'est effectivement plus simple.