Récapitulatif de feuilles excels dans une

[Juju89]

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]

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]

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.

    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]

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]

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]

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