Fusionner plusieurs feuille en 1 seul et meme feuille

Bonjour la communauté

Comment puis je faire pour fusionner plusieurs feuilles d'un classeur en une seule feuille tout en gardant la meme organisation bien sur ?

peut etre que quelqu'un a une petite idée

Je vous remercie

peace

il faudrait automatiser le processus bien sur ...

Bonjour,

un exemple

ici, on copie les feuilles dans "Récap"

Sub RegroupeFeuilles() 'dans "Récap"
Dim Lg&, Sh As Worksheet, f As Worksheet
        Set f = Sheets("Récap")
    f.Range("a2:g" & f.[a65000].End(xlUp).Row).ClearContents    'efface Récap

    For Each Sh In Worksheets
        If Sh.Name <> f.Name And Sh.Name <> "bibi" Then         'feuilles à ne pas traiter
            Lg = Sh.Range("a" & Rows.Count).End(xlUp).Row
            Sh.Range("a3:g" & Lg).Copy Destination:= _
            f.Range("a" & Rows.Count).End(xlUp)(2)
        End If
    Next
End Sub

à régler selon ton fichier

Amicalement

Claude

ok merci beaucoup

Bonjour A tous,

j ai fait le tour sur le forum, et je me suis tombé sur cette macro qui est très convenable pour mon cas, mais les résultats s ’affichent uniquement jusqu’a la colonne G

Pourriez vous s’il vous plait étendre les colonnes le plus loin possible

merci d ’avance

Bonjour Chermiti,

d'après le code de dubois,

    Sub RegroupeFeuilles() 'dans "Récap"
    Dim Lg&, Sh As Worksheet, f As Worksheet
            Set f = Sheets("Récap")
        f.Range("a2:g" & f.[a65000].End(xlUp).Row).ClearContents    'efface Récap

        For Each Sh In Worksheets
            If Sh.Name <> f.Name And Sh.Name <> "bibi" Then         'feuilles à ne pas traiter
               Lg = Sh.Range("a" & Rows.Count).End(xlUp).Row
                Sh.Range("a3:g" & Lg).Copy Destination:= _
                f.Range("a" & Rows.Count).End(xlUp)(2)
            End If
        Next
    End Sub

, il suffit de modifier les plage dans la ligne 4 et 8 en remplaçant le G par la lettre de colonne qui convient.

cdt,

Zongo86 a écrit :

Bonjour Chermiti,

d'après le code de dubois,

    Sub RegroupeFeuilles() 'dans "Récap"
    Dim Lg&, Sh As Worksheet, f As Worksheet
            Set f = Sheets("Récap")
        f.Range("a2:g" & f.[a65000].End(xlUp).Row).ClearContents    'efface Récap

        For Each Sh In Worksheets
            If Sh.Name <> f.Name And Sh.Name <> "bibi" Then         'feuilles à ne pas traiter
               Lg = Sh.Range("a" & Rows.Count).End(xlUp).Row
                Sh.Range("a3:g" & Lg).Copy Destination:= _
                f.Range("a" & Rows.Count).End(xlUp)(2)
            End If
        Next
    End Sub

, il suffit de modifier les plage dans la ligne 4 et 8 en remplaçant le G par la lettre de colonne qui convient.

MERCI BEAUCOUP

cdt,

MERCI

Bonjour à tous,

J'ai cherché un peu partout, avant de tomber sur ce sujet qui réponds en grande partie à ma requête.

J'ai 25 feuilles dans mon fichier, et je souhaites fusionner seulement les 20 dernières.

Ne m'y connaissant pas du tout en VBA, je n'arrives pas à lui dire d'ignorer les 4 premières feuilles, j'y arrive uniquement pour une feuille et il me copie colle les 23 autres sur la 24eme

Voici ce que j'ai mis en VBA

If Sh.Name <> f.Name And Sh.Name <> "feuil1""feuil2""feuil3""feuil4" Then 'feuilles à ne pas traiter

Merci d'avance,

Cordialement;

Bonjour,

Il doit il y avoir plus simple mais voici ça fonctionne.

If Sh.Name <> f.Name And Sh.Name <> "feuil1" And Sh.Name <> "Feuil2" And Sh.Name <> "Feuil3" Then

@+

Bonjour

Ce code marche super bien

Etant donné que l'on compile plusieurs feuilles (1 tableau / feuille pour moi), est il possible d'avoir le nom de la feuille qui s'affiche à chaque tableau inséré ?

Merci