Discussion :

[Thomas69]

Bonjour

J'ai un pti soucis (hé oui comme toujours)
j'ai disons un fichier excel qui contient 21 macros pour effectuer des recopies particulières dans 20 feuilles
et j'ai une macro qui lance toutes les macros
ce que je voudrais faire

c'est de faire une macro qui recopie toutes les feuilles dans une seulle feuille
(recopier la feuil1 apres la feuil2 apres la feuil3 jusqu'a la feuil20)

j'ai tester de recopie de feuille trouver sur l'aide mais ca ne me convient pas du tout pour ce que je cherche donc si vous avez une boussole pour m'indiquer le nord

merci

[ouskel'n'or]

Déjà donné plusieurs fois sur ce forum, la solution...
Consiste à passer toutes les feuilles de ton classeur en revue sauf la feuille "cumul", de chercher la plage à copier sur chaque feuille, de chercher la dernière ligne dans ta feuille "cumul" et de copier la plage à la suite avec copy destination. Ce qui devrait donner un truc comme ça, sans filet
Sub CopieToutesLesFeuillesAlaSuite()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim LaFeuille As Worksheet
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
 
Set FL1 = ActiveSheet
FL1.Name = "FeuilleCumul"
    For Each LaFeuille In ActiveWorkbook.Worksheets
        If Not LaFeuille.Name = FL1.Name Then
           LaFeuille.Range(LaFeuille.Range("A1:" & LaFeuille.Range("A1").SpecialCells(xlCellTypeLastCell).Address).Address).Copy _
           destination:=Cells(FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1, 1)
        End If
    Next
Set FL1 = Nothing
End Sub

Tu adaptes

[Thomas69]

je n'arrive pas a adapter ton code
si tu pouvais me montrer stp

je sais on ne doit pas demander aux autres de faire son boulot
mais la je suis perdu (un peu comme toujours)

[ouskel'n'or]

Place ce code dans un module standard du classeur dont tu veux cumuler les feuilles et lance la macro. Elle s'adapte à tous les classeurs dès lors que c'est le classeur actif. Il ajoute une feuille, la rebaptise, cherche la plage à copier qu'il copie à partir de la première ligne vide de la feuille ajoutée, ici "FeuilleCumul". Tu n'as que ce nom à changer.

[Thomas69]

merci
tout marche bien

par contre j'ai un soucis que j'avais pas prevu
c'est ce fichier ce mets a jour automatiquement

donc j'efface le fichier pour recommencer l'operation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("A180-Produits").Delete

donc c'est réglé

[ouskel'n'or]

Tu as pensé aux entêtes ? J'attendais la question, moi !