Discussion :

[Vadorblanc]

Bonjour
Je souhaite que le copier de chaque Sheets se colle les uns en dessous des autres et non pas les uns en dessus des autres comme ce code.Je commence par la 2è Sheets car la première est la Sheets("Music"). Il me manque la variable i=1+1 que je n'arrive pas finaliser.

Merci

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
 
For i = 2 To Sheets.Count
            Sheets(i).Range("K1:O100").Copy
            Sheets("Music").Range("A" & Rows.Count).End(xlUp).Offset(2, 7).Select  'toute version
            ActiveSheet.Paste
Next i

[patricktoulon]

bonjour

ca n'est pas bien clair ta question au vue de la macro

que veut tu faire exactement


si je comprend bien tu copie a chaque sheets la meme selection

Code :

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

Sheets(i).Range("K1:O100").Copy

c'est la ou je ne comprend pas

Code :

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

1
2
Sheets("Music").Range("A" & Rows.Count).End(xlUp).Offset(2, 7).Select  'toute version
            ActiveSheet.Paste

offset (2..... ok pour laisser 2 ligne pour separer chaque copie

mais 7 soit 7 colonnes en plus
pourquoi?

au plaisir

[mercatog]

Bonsoir
Prends la colonne H de la feuille Music comme référence pour trouver la première cellule vide (et non la colonne A)

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
 
With Sheets("Music")
    For i = 2 To Sheets.Count
        Sheets(i).Range("K1:O100").Copy .Range("H" & .Rows.Count).End(xlUp)(2)
    Next i
End With

[Vadorblanc]

Bonsoir mercatog
Tout est parfait,un grand merci à toi.

Bonsoir Patricktoulon

Code :

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

Sheets("Music").Range("A" & Rows.Count).End(xlUp).Offset(2, 7).Select

Colle à la 2è ligne vide et à la 7è colonne, colonne H.
Toujours difficile d'exposer les données clairement...
Merci à toi pour le temps que tu as bien voulu me consacrer.

A tous les deux encore MERCI