Création d'une base de données à partir de plusieurs onglets

Bonjour à tous,

J'aimerais avoir votre aide concernant le problème suivant:

J'ai un fichier excel comprenant environ 25 onglets avec les memes titres pour les colonnes

Chaque onglet possède 0, 1 ou plusieurs lignes renseignées

Je cherche un moyen de regrouper toutes les infos de chaque onglet dans un seul et unique onglet.

Je vous remercie d'avance pour votre aide

Cisco

Bonjour et bienvenue,

Si tous les onglets ont la même structure,

envoie-en un

+ la feuille récap (avec quelques lignes anonymisées)

Amicalement

Claude

Merci Claude,

donc ci-joint le fichier avec 2 onglets anonymisés

le seul moyen est-il d'effectuer une macro ?

Cisco

re,

le seul moyen est-il d'effectuer une macro ?

Pourquoi , t'es allergique aux macros ?

Je ne sais pas faire autrement.

Y-a t-il dans le classeur des onglets à ne pas traiter ?

si oui, combien et lesquels ?

à te relire

Claude

non mais je pensais qu'il existait une variante de la fonction "consolider" qui permettait de reprendre toutes les données des différents onglets au sein d'un seul et même fichier.

non en fait tous les onglets sont à prendre en compte pour créer la BdD

Cisco

re,

Tu place la feuille "Base" ou récap en 1er, les feuilles suivantes seront

copiées dedans.

Sub Regroupe()
'Macros par Claude Dubois pour "Cisco28" Excel-Pratique le 9 juin 2010
Dim i As Byte, Lg%
'---- feuille "Base" à placée en 1er ----
Application.ScreenUpdating = False
Sheets(1).Range("a2:m" & Sheets(1).[a65000].End(xlUp).Row).ClearContents 'efface

    For i = 2 To Worksheets.Count
        With Sheets(i)
            Lg = .Range("a65536").End(xlUp).Row
            .Range("a2:m" & Lg).Copy Destination:=Sheets(1).Range("a65536").End(xlUp)(2)
        End With
    Next i
End Sub

Amicalement

Claude

Hello Claude,

Merci pour tout !

ca marche nickel

Cisco

Pour clôturer un poste, c'est ici

tu peux toujours décocher et revenir si problème.

Bonjour,

Cette Macro marche parfaitement, j'ai simplement remplacé le comtpage des onglets par un chiffre en dure pour ne pas qu'il me copie mes petits onglets TCD et procédure...

Par contre il me copie les onglets suivant seulement de la colonne A à M... Je ne comprends pas pourquoi ??? Je pensais que c'était car les cellules étaients vide parfois mais non...

Merci pour votre réponse !

Cdt

Benjamin

Bonjour

Poissonnet a écrit :

Par contre il me copie les onglets suivant seulement de la colonne A à M..

C'est cette partie du code que tu dois modifier pour inclure les colonnes que tu veux copier

            .Range("a2:m" & Lg).Copy Destination:=Sheets(1).Range("a65536").End(xlUp)(2)

Super merci... C'est logique ha!

En tout cas merci pour la rapidité de la réponse c'est la première fois que je viens sur un forum VBA je ne pensai pas que cela serai aussi rapide !

A bientôt sur d'autre sujets

Benjamin