copier en boucle à chaque téléchargement successif

[albert]

Bonjour à tous et à toutes,


J’ai construit une macro qui télécharge des données sur yahoo, avec une boucle sur une liste située en L2 :L4 ,
puis, une formule calcule dans la colonne P =((E2-E21)/E21)*100 au fur et à mesure du téléchargement (et donc à chaque tour de boucle)

je cherche à copier les calculs successifs de la colonne P vers la Feuil2 (1 colonne par téléchargement)


le code suivant copie 3 fois la même colonne à chaque passage et l’envoie au fur et à mesure dans les colonnes A à C…ce qui fait qu’au lieu d’obtenir 3 colonnes différentes, j’obtiens 3 fois le résultat du dernier téléchargement :

Sub COPIE()
compte = Range("L2", Range("L2").End(xlDown)).Count
For n = 1 To compte Step 1
Range("P260").Select
Selection.Copy
Sheets("Feuil2").Select
Cells(1, n).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil1").Select
Range("A1").Select
Next
End Sub

Je n’arrive pas à régler cette boucle… (pieds dans l'tapis)

Quelqu’un peut-il m’aider à sortir de là…

Merci d’avance

albert

 

[albert]

trouvé tout seul....
je vous fais partager ma joie...

Sub COPIE()
'----------copie dates-------------
Sheets("Feuil1").Select

Range("A1", Range("A1").End(xlDown)).Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
'--------installe un compteur EN 256-------------
Range("IV2").FormulaR1C1 = "=COUNTA(RC[-255]:RC[-1])"
'---------référence au compteur---------------
c = Cells(2, 256)
Sheets("Feuil1").Select
For n = c + 1 To c + 1
Range("P260").Select
Selection.Copy
Sheets("Feuil2").Select

Cells(2, n).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil1").Select
Range("A1").Select
Next

End Sub

 

[albert]

j'ai râté mon gif il y avait peut-être un espace....