{VBA Excel}Recopie de plusieurs Feuilles

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

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:

---

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 ;)

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)

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.

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:

---

Worksheets("A180-Produits").Delete

---

donc c'est réglé

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

mdr
j'allais te la poser et je presume que tu as une idée

Regarde là, j'ai mis l'adaptation dans "Contribuez"
A+

je suis déja allez voir
et vraiment désoler de t'avoir fait bosser autant

c'est bien ca me garde mes entete mais j'avais trouver une solution vu que j'ai les meme entetes sur tout mes feuilles je garde que la premieres comme ca
lors de la recopie avec le 1er code ca me recopie tout a la suite avec la 1er entete et quand je filtre pour faire un trie par exemple ben je vois tous mes produits sans avoir en plus dans mes choix mes entetes



par contre la ou j'ai buger c'est pour la taille de mes cellules
est ce que part un code je peux choisir la taille de mes cellules?

Pour la taille des cellules, tu enregistres la macro en faisant et tu supprime les "select". Tu remplaces

Citation:

---

rows("4:4").Select
selection.rowHeight = 20

---

par

Code:

---

Rows(NoLigne).RowHeight = 20

---

Pour le tri, tu dois préciser que tu as un en-tête.
Fais-le en enregistrant la macro et corrige les "Select" ;)
A+

quand je parlais en taille je parlais de la longeur non de la largeur

Alors on appelle ça une largeur de colonne ! :mouarf:
En anglais, ça fait ColumnWidth ;)

oki
moi j'avais juste traduit largeur et ca plantais je comprend maintenant