Copier/coller une sélection en boucle et sauter des lignes

Bonjour, Madame, Monsieur,

Je souhaiterais obtenir de l'aide afin de réaliser une formule VBA permettant de copier/coller une sélection en boucle (Feuille Modele) selon une variable contenue dans une cellule (Feuille ventes cellule C1) en sautant après chaque boucle 2 lignes pour ne pas écraser la copie effectuée.

Voir Excel ci-joint.

Merci d'avance.

Bonne journée.

Bonjour,

C'est très possible mais ce serait encore plus facile si la plage de cellules étaient transformée en tableau structuré (qui n'offre que des avantages ). Pour cela, il faudrait, défusionner les cellules des colonnes J et K et M et N et mettre des titres en colonnes O et P sinon elles ne feront pas partie du tableau.

D'accord ?

Bonjour,

Merci de votre retour.

J'aurais besoin d'aide de quelqu'un pour modifier le code sur le tableur.

Sub Ecritures()

'Aller sur la feuille Modele'

(Voir tableur modifié)

Sheets("Modele").Activate
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Boucle'
With Sheets("Ecritures")
For x = 1 To 2552 Step 4 (à la place d'un nombre que je rajoute manuellement, je voudrais qu'il prenne le nombre contenu dans la feuille Ventes cellule C1).
'Coller sur feuille Ecritures'
ActiveSheet.Range(Cells(3, 1), Cells(6, 7)).Copy .Cells(x, 1) (sélectionner la plage A2:G5 de la feuille Modele).
Next x
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Merci d'avance.

Bonne journée.

Bonjour,

Il suffit de modifier comme ci-dessous :

For x = 1 To ThisWorkbook.Worksheets("Ventes").Range("C1").Value Step 4