macro reporte une colonne de plus

[olive323]

Bonjour à tous,

cette macro me reporte des données c.Offset(, 2) je souhaite qu'elle reporte une colonne de plus.
Pouvez vous m'aider

Cordialement

Dim classeur As Workbook
Set classeur = Application.Workbooks.Open("d:\BaseExpCentraleV19.xls~RF71ebd1.TMP", , True)

Set wbkSource = Workbooks(fichier)
Set shtSource = wbkSource.Worksheets("BaseExp")

With shtSource
Set liste = CreateObject("scripting.dictionary")
For Each c In .Range("c2:c" & .Range("c" & Rows.Count).End(xlUp).Row)

liste(c.Value & "#" & c.Offset(, 1)) = liste(c.Value & "#" & c.Offset(, 1)) + c.Offset(, 2)
Next c
Workbooks("TRI expedition par module.xls").Sheets("resultat du tri").Range("A3:d10000").ClearContents
x = 3
For Each elem In liste.Keys
Workbooks("TRI expedition par module.xls").Sheets("resultat du tri").Range("A" & x).Resize(1, 2) = Split(elem, "#")
x = x + 1
Next elem
Workbooks("TRI expedition par module.xls").Sheets("resultat du tri").Range("c3:c" & liste.Count + 2) = Application.Transpose(liste.Items)


Workbooks(fichier).Close

End With
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True
Range("A3").Select


End Sub
[/QUOTE

 

[Fred0o]

Re : macro reporte une colonne de plus

Bonjour Olive,

cette macro me reporte des données c.Offset(, 2) je souhaite qu'elle reporte une colonne de plus.

Qu'entends-tu exactement par :

je souhaite qu'elle reporte une colonne de plus

?

A+