Modification de VBA existant pour regroupement de feuilles

Bonjour à Vous,

J'avais pu regrouper des parties de feuilles excel grâce à l'aide de ce forum via VBA-new et qui m'a conçu le VBA permettant ceci.

j'aimerais modifier ce VBA afin qu'il me permet le regroupement d'autres parties. la question est bien éxpliqué dans le fichier attaché via des couleurs (feuille 4 regroupes la même partie des fauilles 1 2 3 ....)

Merci pour votre intervention

-- 23 Jan 2011, 14:58 --

Bonsoir

Veuillez trouver ci joint l'ancien VBA (en word) que je voudrais modifier selon le nouveau fichier excel

merci pour votre coopération et aide précieuse

cordialement

anzid

Bonsoir,

La feuille "Regroupe" doit être placée en dernier (on traite celles d'avant)

Sub Regroupe()
Dim cL%, i%, x%
'Macro par Claude Dubois pour "anzid" Excel-Pratique le 23/01/11
Application.ScreenUpdating = False
    For i = 1 To Worksheets.Count - 1
        cL = Sheets("Regroupe").Cells(1, 256).End(xlToLeft).Column + 1
        With Worksheets(i)
            On Error Resume Next    'si n'existe pas
            x = WorksheetFunction.Match("Distribución por comidas", .Range("a:a"), 0) + 1
            On Error GoTo 0
            If x > 0 Then
                .Range(.Cells(x, 1), .Cells(x + 7, 2)).Copy Destination:= _
                Sheets("Regroupe").Cells(1, cL)
                x = 0
            End If
        End With
    Next
End Sub

Amicalement

Claude

Bonsoir Claude

Merci pour votre intervention, je viens de la lire. Et je vais essayer de la comprendre 30% et l'appliquer. Encore une fois merci pour le secours.

Cordialement

anzid

-- 24 Jan 2011, 00:02 --

Bonjour Claude,

J'ai essayé le VBA que vous m'avez compiler, ça marché pour le classeur à trois feuilles mais quand j'ai essayé d'appliquer le VBA sur un classeur à 100 feuilles, je reçoi ce message :

Erreur d'exécution '9'

L'indice n'appartient pas à la sélection

Si vous pourriez m'expliquer que fairais je,

Merci d'avance pour votre compréhension

-- 24 Jan 2011, 00:41 --

Bonjour Claude,

En fin de compte, après plusieurs essais, votre VBA à superbien marché, merci pour votre aide si précieuse. Et bien sûr à toute l'équipe du forum

Cordialement

anzid