Incrémentation copier coller d'une colonne

[Sang1]

Bonjour a tous !!!!

Je viens de faire une macro et je souhaite faire un copier coller d'une colonne dans un tableau en décallant l'emplacement du "coller" d'une colonne a chaque fois que la macro tourne.
J'espere que j'ai été assez clair....
Ci-joint le fichier...

Merci d'avance les pro d'excel

Sang1

 

[mromain]

Re : Incrémentation copier coller d'une colonne

bonjour Sang1,

voici une solution

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 08/06/2009 by sylvain laurens
'

'
    Columns("D:D").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("G7").FormulaR1C1 = "=1*RC[-3]"
    Range("G7").AutoFill Destination:=Range("G7:G36")
    Range("J7").FormulaR1C1 = "=R[8]C[-3]"
    Range("J8").FormulaR1C1 = "=R[-1]C[-3]"
    Range("J9").FormulaR1C1 = "=R[-1]C[-3]"
    Range("J10").FormulaR1C1 = "=R[1]C[-3]"
    Range("J11").FormulaR1C1 = "=R[1]C[-3]"
    Range("J12").FormulaR1C1 = "=R[1]C[-4]"
    Range("J13").FormulaR1C1 = "=R[1]C[-3]"
    Range("J12").FormulaR1C1 = ""
    Range("J12").FormulaR1C1 = "=R[1]C[-3]"
    Range("J14").FormulaR1C1 = "=R[2]C[-3]+R[3]C[-3]"
    Range("J15").FormulaR1C1 = "=R[3]C[-3]"
    Range("J16").FormulaR1C1 = "=R[3]C[-3]"
    Range("J17").FormulaR1C1 = "=R[3]C[-3]"
    Range("J18").FormulaR1C1 = "=R[4]C[-3]"
    Range("J19").FormulaR1C1 = "=R[5]C[-3]"
    Range("J20").FormulaR1C1 = "=R[5]C[-3]"
    Range("J21").FormulaR1C1 = "=R[6]C[-3]"
    Range("J22").FormulaR1C1 = "=R[6]C[-3]"
    Range("J23").FormulaR1C1 = "=R[6]C[-3]"
    Range("J24").FormulaR1C1 = "=R[11]C[-3]"
    Range("J25").FormulaR1C1 = "=R[-16]C[-3]"
    Range("J26").FormulaR1C1 = "=R[-16]C[-3]"
    Range("J27").FormulaR1C1 = "=R[3]C[-3]"
    Range("J28").FormulaR1C1 = "=R[-2]C[-3]"
    Range("J29").FormulaR1C1 = "=R[2]C[-3]"
    Range("J30").FormulaR1C1 = "=R[2]C[-3]"
    Range("J31").FormulaR1C1 = "=R[3]C[-3]"
    Range("J32").FormulaR1C1 = "=R[4]C[-3]"
    
    Range("J7:J32").Copy
    Sheets("Conso.").Select
    [COLOR=Red][B]Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).Select[/B][/COLOR]
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("AG23").Select
    
End Sub

a+

 

[Sang1]

Re : Incrémentation copier coller d'une colonne

Merci beaucoup sa marche au poil !!

A +

Sang1