Récapitulatif de feuilles excels dans une

Juju89 · 1 Juillet 2013

Bonjour à tous,
je suis nouvelle sur ce genre de forum.. et commence dans les macros et VBA !
Du coup même après plusieurs essais (en reprenant des codes sur différents forums)
je n'ai jamais réussi à faire exactement ce que je voulais.

Je voudrai:
-rassembler tous les éléments de mon classeur (les données de toutes les feuilles) dans
une feuille récapitulative...
-commencer à copier à la 2eme ligne des différentes feuilles
-commencer à coller à la 2eme ligne de mon fichier "recap" pour laisser la 1ere ligne de titre
-avoir un "bouton" pour réactualiser ma feuille "recap" lorqu"il y a des changements dans les autres (ça je sais le faire !)

Toutes mes feuilles ont le même nombre de colonne ( 9 ) et un nombre de lignes différent et indéfini...
Par contre des feuilles peuvent se rajouter ou être éliminer: donc un nombre de feuilles non défini également.

J'espere avoir été claire... j'ai mis quelques données dans le fichier joint
Merci par avance

john · 1 Juillet 2013

Re : Récapitulatif de feuilles excels dans une

Bonjour,

Voici ton fichier modifié avec ce que tu voudrai obtenir (enfin j'espère )

BàT

John

Hulk · 1 Juillet 2013

Re : Récapitulatif de feuilles excels dans une

Hello,

Une autre version... adaptée d'une idée de Doublezero, merci à elle !

À coller dans la feuille "Recap" avec un bouton.

Code:

    Dim i As Long
    Dim tabloNomsFeuilles() As String
    
    Application.ScreenUpdating = False
    
    Sheets("Recap").[A1].CurrentRegion.Offset(1, 0).Clear
    
    For i = 1 To ActiveWorkbook.Sheets.Count
        ReDim tabloNomsFeuilles(1 To i)
        tabloNomsFeuilles(i) = Sheets(i).Name
        If Sheets(i).Name <> "Recap" Then
            Sheets(i).[A1].CurrentRegion.Offset(1, 0).Copy Sheets("Recap").[A65000].End(xlUp).Offset(1, 0)
        End If
    Next i

    Application.ScreenUpdating = True

MJ13 · 1 Juillet 2013

Re : Récapitulatif de feuilles excels dans une

Bonjour à tous

Une autre version... adaptée d'une idée de Doublezero, merci à lui !

Hulk , cela me rappelle quelque chose. Tu es sur que ce n'est pas plutôt merci à Elle .

Hulk · 1 Juillet 2013

Re : Récapitulatif de feuilles excels dans une

Re, slt MJ

My god, la honte c'est une gente dame Doublezero ? j'savais même pô !

MILLE excuses miss Doublezero !

Juju89 · 1 Juillet 2013

Re : Récapitulatif de feuilles excels dans une

Merci à tous !

tous ce que vous m'avez donné fonctionne comme je le voulais.

Je vais maintenant essayer de le decripter pour bien comprendre...

Bonne journée et encore merci

Juju

Récapitulatif de feuilles excels dans une

Juju89

XLDnaute Nouveau

Pièces jointes

john

XLDnaute Impliqué

Pièces jointes

Hulk

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Juju89

XLDnaute Nouveau

Discussions similaires