macros extraction lignes

[marin]

Bonjour à tous,

Je rechreche désespérément une macro me permettant d'extraire des lignes. Je m'explique : j'ai un fichier de données avec 8000 lignes. je veux extraire uniquement les lignes 4 à 8 puis 10 à 14 puis 16 à 20 ... jusqu'à la fin du doc, dans un nouveau classeur... j'ai regardé la boucle for next ? mais .... quelqu'un peut-t-il m'aider ???
merci d'avance

 

[michel]

Bonsoir marin

peux tu tester la macro ci joint
la macro doit etre insérée dans le classeur d'origine . Quand tu lances la procédure , un nouveau classeur est créé et les lignes cibles sont collées dans ce classeur . Il faudra peut etre faire des adaptations pour ton projet


Sub plage()
Dim i As Integer
Dim X As Integer

X = 1

Application.ScreenUpdating = False
Workbooks.Add

For i = 4 To 8000 Step 6
ThisWorkbook.Sheets(1).Rows(i & ":" & i + 4).Copy
ActiveWorkbook.Sheets(1).Cells(X, 1).PasteSpecial
X = X + 5
Next

Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub



Bonne soirée
Michel

 

[marin]

Vraiment, merci beaucoup pour ton aide ça marche tip top !!!

bonne nuit !