code pour laisser une cellule vide entre chaque cellule recopiée

[Cécile]

Bonjour,

Mon approche est peut être un peu complexe. Je souhaiterais coder une boucle d'action en VBA me permettant de copier le premier élément d'une liste de le coller dans une autre feuille puis le second etc... seulement je voudrais que tous les éléments soit collés sur une seule ligne avec une cellule vide séparant chaque élément.

voila le style de présentation que je souhaiterais :

|un| |deux| |trois| |quatre| |cinq ...|

merci de votre aide
bonne fin de journée
Cécile

 

[Jon]

bonjour

je tente quelquechose à la volée
set plage_ze_liste_source=sheets("feuil1").range("A1:A10")
set plage_ze_liste_dest=sheets("feuil2").range("A1")
for each cl in plage_ze_liste_source
plage_ze_liste_dest.offset(0,i).value=cl.value
i=i+2
next cl


bye
jon

 

[Cécile]

Bonjour,

tout d'abord merci pour ton aide, ça fonctionne. J'aurais une autre question : ma plage de données source est variable. Comment peut-on l'exprimer dans le code VBA.

dans une cellule de ma feuille j'ai une formule qui me compte le nombre d'enregistrements (par exemple la cellule G11)que j'ai. Comment lui "dire" d'aller de la cellule A1 à la cellule A(contenu de la cellule G11).
Est ce que tu vois où je veux en venir?

Merci encore pour ton aide
bonne journée

Cécile

 

[Jon]

bonjour

Set plage_ze_liste_source = Sheets("feuil1").Range("A1:A" & Range("G11").Value)

ceci devrait t'intéresser :
Set plage_ze_liste_source = Sheets("feuil1").Range(Range("A1"), Range("A65536").End(xlUp))
'il y a d'autres manières de l'écrire


bye
stephane

 

[Cécile]

merci beaucoup
Bye