Aide sur Macro

Version imprimable

Aide sur Macro

Bonjour,

J'ai créer une macro qui me permet de copier le contenu de plage de cellule (E) dans la dernière cellule de la colonne D
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Range("E3:E24").Select Selection.Copy Range("D509").Select ActiveSheet.Paste Range("E2").Select Application.CutCopyMode = False Selection.Cut Destination:=Range("C509") Range("C509").Select Selection.AutoFill Destination:=Range("C509:C530") Range("C509:C530").Select Range("E1").Select Selection.Cut Destination:=Range("A509") Range("A509").Select Selection.AutoFill Destination:=Range("A509:A530"), Type:=xlFillDefault Range("A509:A530").Select Columns("E:E").Select Selection.Delete Shift:=xlToLeft End Sub
la difficulté c'est que je n'arrive pas à corriger ce bout de code pour qu'il continue le job.

Quelqu'un peut m'aider. Merci d'avance

17/07/2007, 22h07
COCONUT2

Ca veux dire quoi continuer le job?
que veux tu qu'il fasse?
17/07/2007, 22h12
anisr

En fait, après avoir copier le continue de la plage E, il supprime le continue, c'est la plage F qui deviendra la plage E. Il copie puis il colle enfin efface le contenu ainsi de suite..
17/07/2007, 22h13
COCONUT2

Ok et jusqu'ou?

J'ai copié popur regardé comment fonctionne ta macro mais je ne vois pas à quoi ca sert de déplacer des données comme ca !
On dirait que tu vopudrais inverser un tablleau mais je ne suis pas sur!

Quelque chose comme ceci ?

Code:

1
2
3
4
5
6
7
8
9
10
Sub CopierEenD()
    Dim plage As Range
    Set plage = Range("E3")
    Set plage = Range(plage, plage.End(xlDown))
    plage.Copy
    Range("D1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Set plage = Nothing
End Sub