Regrouper plusieurs données en un seul tableau

Bonjour tout le monde

Malgré mes tentatives avec ce que j'ai pu trouver de similaire sur les forums, je coince encore

Je m'explique :

j'ai plusieurs tableaux similaires avec des données variables que je voudrais regrouper sur un seul tableau

via un bouton

Je sais qu'il y a plusieurs post sur ce même sujet mais je n'ai pas réussi à le remodeler avec mon besoin

Je joins un exemple pour mieux comprendre.

Merci d'avance

Bonjour

Ce n'est qu'une solution, tout va dépendre du nom des feuilles à importer

A vérifier

Bonjour

J'ai essayé de modeler votre modification a mon fichier original et il se produit quelques erreurs

c'est surment du au nombre d'onglet qui est différent comme vous l'avez dit

Je joins un autre fichier avec le nombre d'onglet exacte ainsi que les explications

Merci encore

Bonjour

A vérifier

Bonsoir,

votre modification fonctionne parfaitement

mais je ne peux pas l'importer a mon fichier car mes onglets ne commence pas par la lettre "P"

j'aurai du le stipuler dans mon exemple, j'en suis désolé

comment puis-je l'adapter??

Bonsoir

Remplace la macro actuelle par celle-ci

Sub Regroupe()
Dim Ws As Worksheet

  Application.ScreenUpdating = False
  With Sheets("Global")
    For Each Ws In Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7"))
      If Ws.Range("A2") <> "" Then
        Ws.Range("A2:G" & Ws.Range("A" & Rows.Count).End(xlUp).Row).Copy .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        Ws.Range("A2:G" & Ws.Range("A" & Rows.Count).End(xlUp).Row).ClearContents
      End If
    Next Ws
  End With

End Sub

Et à la place de P1, P2, P3 etc .... note le nom de tes feuilles

Je l'ai testé et ça fonctionne comme je le souhaite

Milles merci (encore une fois de plus )

Cordialement Seb