Discussion :

[had4789]

Bonjour à tous,

Ma question ne devrait pas vous posez trop de problème étant donné votre efficace légendaire à résoudre les problèmes.

j'ai des feuilles numérotées de 2 à 11. Je veux regrouper les informations contenues dans ces feuilles dans la feuille "Export".

Voici le début de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro2()
Application.ScreenUpdating = False
 
    Sheets("Export").Columns("A:Y").ClearContents
 
 
 
 
 
 
     Sheets("Feuil2").Range("A:Y").Copy Destination:=Sheets("Export").Range("A1")
     Sheets("Feuil3").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
     Sheets("Feuil4").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
     Sheets("Feuil5").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
     Sheets("Feuil6").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
     Sheets("Feuil7").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
     Sheets("Feuil8").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
     Sheets("Feuil9").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
     Sheets("Feuil10").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
     Sheets("Feuil1").Range("A:Y").Copy Destination:=Sheets("Export").Range("A60000").End(xlUp)
 
 
 
End Sub

Merci par avance

[Menhir]

Tu expliques ce que fait ton code mais tu n'expliques pas quel est ton problème...

[Philippe Tulliez]

Bonjour,
S'il s'agit de regrouper toutes les données de plusieurs feuilles sur une feuille cible et qu'elles sont organisées de la même manières (même nombre de colonnes, et même orthographe pour les étiquettes de colonnes), une solution dans cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010)