regroupement des donnée a partir de plusieurs feuille

[hpa]

bonjour a tous
comment regrouper les donnée des plusieurs ( feuille 2 a feuille 6 ) feuilles sur une nouvelle feuille merci d'avance

 

[excfl]

Re : regroupement des donnée a partir de plusieurs feuille

Bonjour,

Voir le fichier joint.

excfl

 

[DoubleZero]

Re : regroupement des donnée a partir de plusieurs feuille

Bonjour à toutes et à tous,

Bienvenue sur XLD, hpa.

Une autre suggestion en pièce jointe. Mais... je crains que le résultat fourni ne corresponde pas vraiment au résultat souhaité 😕.

A bientôt 🙂

 

[Efgé]

Re : regroupement des donnée a partir de plusieurs feuille

Bonjour hpa, exclf, Bonjour 00 🙂 🙂
Pas compris la même chose (il faut dire que la demande laisse libre cour à l'imagination)
Choix de la banque en RECAP $A$1
On peux masquer toutes les feuilles (sauf RECAP)

@ 00 Je n'ai pas pu ouvrir ton fichier

Cordialement

 

[hpa]

Re : regroupement des donnée a partir de plusieurs feuille

merci pour vos réponse
apparemment la question est mal pose 🙂 ma question c'est comment regrouper les donnée sur un seul tableau avec un code vba le fichier original contient 53 feuille [exemple les donnée de feuil 2 de ligne 1 a ligne 15 puis les donnée de la feuille 3 de ligne 16 a ligne 30 ainsi de suite ] .... merci

 

[DoubleZero]

Re : regroupement des donnée a partir de plusieurs feuille

Re-bonjour, hpa, exclf, Efgé 😀, le Forum,

...@ 00 Je n'ai pas pu ouvrir ton fichier...

Je ne sais pas ce qui s'est produit 🙄.

Peut-être celui-ci 😕...

Quoi qu'il en soit, il ne répond pas aux précisions fournies en #5 !

A bientôt 🙂

 

[hpa]

Re : regroupement des donnée a partir de plusieurs feuille

merci merciii

 

[DoubleZero]

Re : regroupement des donnée a partir de plusieurs feuille

Re-bonjour,

... le fichier original contient 53 feuille ...

Dans ce cas, afin d'accélérer la macro, il faudrait ajouter :

- sous Dim o As Worksheet :

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With

- au-dessus de End Sub :

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With

A bientôt 🙂