Discussion :

[lecastorlapon]

Bonjour,

J'ai un classeur Excel avec de nombreuses feuilles et je voudrais copier une même section de chaque feuille et la coller sur une feuille unique ("Synthese") en décalant à chaque fois l'endroit où je colle afin d'avoir les données les unes à côté des autres.
J'ai essayé le code suivant mais sans succès :

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
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 08/09/2015 par lecastorlapon
'
Dim LaFeuille As Excel.Worksheet
Dim step As Integer
step = 0
 
    Set MesfeuillesTest = Workbooks("toto.xlsm").Worksheets
 
    For Each LaFeuille In MesfeuillesTest
 
    Range("D3:D30").Select
    Selection.Copy
    Sheets("Synthese").Select
    Range("A3").Offset(0, step).Select
    ActiveSheet.Paste
    step = step + 1
    Next
 
End Sub

La copie se fait à partir de la même feuille ce qui ne me convient pas.
Avez-vous une solution ?

Merci

[joe.levrai]

Bonjour,

une proposition à adapter si besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro4()
Dim Feuille As Worksheet
Dim i As Long
i = 0
 
For Each Feuille In ThisWorkbook.Worksheets
    If Feuille.Name <> "Synthese" Then
        Feuille.Range("D3:D30").Copy ThisWorkbook.Worksheets("Synthese").Range("A3").Offset(0, i)
        i = i + 1
    End If
Next Feuille
 
End Sub

[lecastorlapon]

OK à priori ça a marché.
Merci beaucoup !!!