fusion plusieurs feuille en une seule

[titooooo]

Bonjour,

j'ai un fichier excel avec plus au moins 23 feuille (résultat sport championnat européen)

même format

voila je veux que toute ces feuille seront présenter sur une seule feuille de la façon suivante

si feuille 1comporte 25 ligne

il coie ces 25 ligne et la 26 ligne ca sera la 1ére de la feuille 2 etc......


merci 10000 d"avance

 

[CPk]

Re : fusion plusieurs feuille en une seule

Bonjour, une petite macro pour le faire

Sub transfert()
    Dim f As Worksheet
    Sheets.Add before:=Sheets(1)
    
    For Each f In Worksheets
        If Not f.Index = 1 Then
            a = f.UsedRange
            Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2).Resize(UBound(a, 1), UBound(a, 2)) = a
        End If
    Next f

    a = Sheets(1).UsedRange
    For i = UBound(a) To 3 Step -1
        If a(i, 1) = "Div" Then Sheets(1).Rows(i + 1).EntireRow.Delete
    Next i
    Sheets(1).Rows("1:1").Delete
End Sub

 

[titooooo]

Re : fusion plusieurs feuille en une seule

merci bien et bon courage

 

[CPk]

Re : fusion plusieurs feuille en une seule

Pareillement