Copier coller une ligne sur deux

[Octopus05]

Bonjour à tous,

Je vous explique mon problème:

J'ai deux fichier ps.xls et cs.csv.
Le but est de copier la colonne A du fichier ps.xls pour la coller dans la colonne A du fichier cs.csv, en laissant vide une ligne sur 2.

Exemple:

ps.xls cs.csv

A1:abc A1:abc
A2:def
A3:ghi A3:def
A4:jkl
A5:mno A5:ghi
...
A7:jkl
...

Ma question est: est-il possible de réaliser ce collage spécial à l'aide d'un code vba?

Merci d'avance.

 

[francedemo]

Re : Copier coller une ligne sur deux

bonjour,
à tester dans un module:
dim i as integer
For i = 1 To Range("A1:A" & [A65536].End(xlUp).Row) Step 2
Worksheet(cs.csv).Sheets(1).Range("A" & i) = Worksheet(ps.xls).Range("A" & i)
Next i
à +

 

[Octopus05]

Re : Copier coller une ligne sur deux

Merci pour la réponse très rapide!

Après essais dans un module, un message d'erreur s'affiche: Erreur de compilation: Sub ou function non définie et surligne le 2ème Worksheet de la ligne: Worksheet(cs.csv).Sheets(1).Range("A" & i) = Worksheet(ps.xls).Range("A" & i)

 

[francedemo]

Re : Copier coller une ligne sur deux

dsl, erreur de ma part ...🙁
c'est Workbooks(cs.csv).Sheets(1).Range("A" & i) = Workbooks(ps.xls).Range("A" & i)
...
à+