Recopie de données en décalées

Bonjour à tous,

je souhaite recopier certaines données d'une page source vers un autre fichier dans une mise en forme différente.

Pour ce faire, je met un fichier avec un onglet source et un onglet résultat reprenant les couleurs des cellules à recopier.

Les 13 premières lignes du fichier source sont toujours vides.

Je ne sais pas si je suis très clair mais le fichier aidera à la compréhension.

Merci pour votre aide.

Bien cordialement

Salut pcaille,

Salut le Forum,

Voici un code à insérer dans un module standard :

Sub Export()
'déclaration des variables
Dim p As Range, fi As String, wb As Workbook, thsh, sh As Worksheet
'saisie des éléments nécessaire à l'export des données
On Error GoTo ABSdeSaisie
Set thsh = ThisWorkbook.ActiveSheet
Set p = Application.InputBox("Merci de bien vouloir selectionner les lignes que vous souhaitez exporter vers votre fichier de sortie :", "Selection plage", Type:=8)
MsgBox "Merci d'indiquer le chemin vers votre fichier de sortie via la boîte de dialogue qui va suivre.": fi = Application.GetOpenFilename(FileFilter:="XML Style Sheet (*.xls*),*.xls*")
'ouverture du fichier de sortie et traitement
Set wb = Workbooks.Open(fi)
Set sh = wb.ActiveSheet
For x = p.Row To p.Row + p.Rows.Count - 1
    y = Range("A" & Rows.Count).End(xlUp).Row + 1
    thsh.Range("L" & x & ":M" & x).Copy sh.Cells(y, 1)
    thsh.Range("P" & x).Copy sh.Cells(y, 3)
    thsh.Range("Y" & x).Copy sh.Cells(y, 9)
    thsh.Range("N" & x & ":O" & x).Copy sh.Cells(sh.Range("A" & Rows.Count).End(xlUp).Row + 1, 1)
Next
'fin de la procédure ou gestion des erreurs
Set p = Nothing: Set wb = Nothing: Set sh = Nothing: Set thsh = Nothing
Exit Sub
ABSdeSaisie:
MsgBox "Procédure interrompue !", vbCritical, "ABSdeSaisie"
End Sub

Il te demandera de renseigner les lignes à exporter et sur quelle fichier.

A dispo si tu a des questions

Cdt

Merci Juice,

je fais le test et te dis si ça fonctionne avec un fichier plus complexe.

Par avance merci pour le code effectué.

Bien cordialement.

Re,

je viens de faire le test sur un fichier de 400 lignes.

Le résultat est parfait.

Encore un super merci pour le coup de pouce.

Bien cordialement.