Discussion :

[anisr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[COCONUT2]

Ca veux dire quoi continuer le job?
que veux tu qu'il fasse?

[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..

[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!

[zazaraignée]

Quelque chose comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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