Copier-coller d'un sheet à l'autre dans une page au nom variable

Bonjour le forum,

Je souhaite copier des cellules d'une feuille vers une autre, mais je séche...

Pour résumer ma demande :

Dans sheet01 (dont le nom varie) j'aimerais un bouton qui :

insère des lignes dans la page (donc Sheet01 ici)

va copier des cellules dans un sheet "Blanco" --> nom fixe

les colles dans le "sheet01"

mais je bloque sur les sélections de sheet

Pour le moment j'ai :

Sub Insert_job()
'
' Insert Job
'

'

    Rows("6:25").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Sheets("Blanco").Select
    Range("A6:G24").Select

    Sheets("Sheet01").Select
    Range("A6").Select
    ActiveSheet.Paste

End Sub

Bonjour,

Surement comme ça :

    Sheets("Blanco").Rows("6:25").Copy
    Sheet01.Range("A6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Pas de guillemets sur Sheet01 car on appel le nom de la feuille avec (name) qui lui ne va pas changer contrairement a Name qui varie (renommer l'onglet)

Image de la propriété de la feuille :

image

Je ne sais pas si il faut laisser le 0 dans Sheet01 a toi de voir les propriétés (version ENG) moi je dois mettre Feuil1

A+

Bonjour Geof52,

je me suis inspiré de ta réponse pour résoudre mon soucis, grand merci à toi.

Voici ce que donne le code :

Sub Insert_job()

    Rows("6:25").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A6").Select

    Sheets("Blanco").Rows("6:25").Copy
    ActiveSheet.Paste

End Sub
Rechercher des sujets similaires à "copier coller sheet page nom variable"