Manque Offset(1,0) variable

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:

---

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

---

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:

---

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

---

c'est la ou je ne comprend pas

Code:

---

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

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:

---

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

---

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

Bonsoir Patricktoulon

Code:

---

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