Copie d'une selection vers une autre feuil (macro)

Bonjour,

Je suis en train de créer un fichier qui doit me permettre de crée une sorte de fiche en fonction d'une liste de logement.

Je bloque sur la seclection de ses fameuses fiches, ca me selectionne uniquement la première case de cette fiche.

De même je ne parviens pas a faire changer de feuil une fois qu'une liste de logement est terminé.

Je vous laisse le code ainsi qu'une epure de mon fichier afin de mieux me faire comprendre.

Sub Rectangle1_Clic()
'
Dim Lg_logement As Long
Dim Type_logement As Long

For Lg_logement = 2 To Sheets("liste").Range("A65000").End(xlUp).Row
For Type_logement = 2 To Sheets("liste").Range("J65000").End(xlUp).Row

Worksheets("model").Cells((Type_logement - 2) * 6 + 1, 1).Copy 'copier le "model" correpondant au logement
Worksheets("bat 1").Select 'selection feuil batiment correspondant

Cells((Lg_logement - 2) * 6 + 1, 1).Select 'copier le tableau à la suite des tableau précedents
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Next Type_logement
Next Lg_logement

End Sub

cordialement,

Vinny

Bonjour

A tester

Bonjour,

Merci pour le ficher, il fonctionne bien.

Par contre le nom et le nombre des bâtiments appelés "bat 1, 2..." peut changer

du coup le code suivant ne fonctionne plus

For Each Ws In Sheets(Array("bat 1", "bat 2", "bat 3", "bat 4"))

Peut-on avoir une plage de tail variable?

Cordialement,

vinny

Edite 11h13 : il y a surtout la selection de la range qui me posse problème. comment savoir quel est la dernière ligne du tableau? il faut tester toutes les colones?

Range("E2:H8")

Bonjour

La macro à comme défaut c'est qu'elle est adaptée à un certain contexte, et en changer entraine des modifications (souvent importantes)

Mais si c'est juste une histoire de nom ou de plage de recherche tu peux corriger directement dans le code

Je veux bien essayer autre chose, mais il faut un fichier ayant la structure réelle du fichier original, sinon on n'en finira pas de faire des modifications

Voila le ficher original, un peu simplifié.

Tout fonctionne sauf la fin de la marcro 3 qui correspond au bout de code que tu a proposé.

Bonjour

2 manières de faire

La 1ère : Comme tu l'as envisagée : Reconstruire le tableau etc ....

La 2ème : en se servant uniquement de la page "Liste logement"

A voir

Merci beaucoup, ca me semble parfait!

Quand je vois ton code, je me dit que j'etais encore loin de trouver!

J'ai ragdé la première solution, qui me paratit plus abordable.

vinny