Autre regroupement des parties de feuilles excel 2007

[anzid]

Bonjour à vous

Me revoilà encore pour la question de regroupement de feuilles via un VBA, en effet je ne maîtrise pas encore la création des VBA mais au fur et à mesure de votre aide j'y arriverais à 30%
Ma question est schématisé via le fichier attaché,
veuillez y jeter un coup d'oeil et merci pour votre intêret
anzid

[vba-new]

Bonjour anzid, forum,

Essaie avec ce code :

Code: Tout sélectionner

Sub regroupe()
Dim i As Integer, cpt As Integer, derlign As Integer, tablo
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        With Sheets(i)
            If .Name <> "Résultat souhaité" Then
                cpt = .[A8].End(xlDown).Row + 2
                tablo = .Range("A" & cpt & ":D" & .Range("A" & cpt).End(xlDown).Row)
                Sheets("Résultat souhaité").Select
                derlign = [A65536].End(xlUp).Row
                Range(Cells(derlign + 1, 1), Cells(derlign + 4, UBound(tablo, 1))) = Application.Transpose(tablo)
            End If
        End With
    Next i
    If [A1] = "" Then Rows(1).Delete
    Cells.EntireColumn.AutoFit
End Sub


[anzid]

Salam vba-new

Merci beaucoup pour votre intervention que je viens de le voir et je vais l'essayer et vous répondre