Copie de plusieurs feuilles dans une feuile

[roro69]

Bonsoir et merci d'avance de l'aide apporté et du temps passé
Donc voici:
J'ai dans x feuilles un tableau(A1:B25) identiques donc là je veux copier ce tableau
donc je mets ce code

Sub Recap()
Dim k%
For k = 9 To Sheets.Count 'Ici 9 car mes tableaux sont à partir de la feuilLE 9
Sheets(k).Range("A1:B25").Copy
Next k
End Sub

Et ou çà bloque c'est que je veux récupérer les x tableaux (minimum 15) dans une feuille mais pas les uns au desous des autres,
Mais 4 tableaux par ligne c''est à dire:
1er tableau Range("A1:B25")
2ième tableau Range("D1:E25")
3ième tableau Range("G1:H25")
4ièmetableau Range("J1:K25")
La je laisse deux lignes vides je continu
5ième tableau Range("A27:B51")

ECT........😀

Merci de vos réponses
A++

 

[Pierrot93]

Re : Copie de plusieurs feuilles dans une feuile

Bonjour Roro

essaye peut être ainsi :

Sub test()
Dim k%, c%, l%, i As Byte
c = 1: l = 1
For k = 9 To Sheets.Count
    Sheets(k).Range("A1:B25").Copy Sheets("NomFeuilleDestination").Cells(l, c)
    i = IIf(i < 4, i + 1, 1)
    c = IIf(i < 4, c + 3, 1)
    l = IIf(i < 4, l, l + 26)
Next k
End Sub

bonne journée
@+

 

[roro69]

Re : Copie de plusieurs feuilles dans une feuile

Bonjour pierrot 93
Merci beaucoup c'est exactement ce que je voulais.
Un grand merci
A++