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