Transfert donnée entre feuille

[matrix]

Bonjour,

J'ai un petit problème avec une macro.

Avec cette partie de la macro:

Dest.Offset(0, 47) = .Cells(Y.Row, 20)

Je veux que dans la colonne 47 de la même ligne, qu'il transfère ta valeur de la colonne 20 de la feuille "DE - LCE Load Matrix".

Le problème c'est qu'il ne veut pas se transférer de feuille.

Comment faire s.v.p?



Voici ma macro:

With Sheets("DE - LCE Load Matrix")
For Each X In .Range("a4:" & .Range("a4").End(xlToLeft).Address)
    For Each Y In .Range(X.Offset(1, 0), .Cells(65536, X.Column).End(xlUp))
        If Y <> "" Then
            Set Dest = Sheets("Order File").Range("G65536").End(xlUp).Offset(1, 0)
            Dest.Value = Y.Value
            Dest.Offset(0, 7) = .Cells(Y.Row, 1).Value
            Dest.Offset(0, 47) = .Cells(Y.Row, 20)
            Dest.Offset(0, -1) = ComboBox1
        End If
    Next
Next
End With

Merci pour votre aide.

 

[skoobi]

Re : Transfert donnée entre feuille

Bonjour matrix,

attention, pour l'instant tu décales de 47 colonnes vers la droite à partir de la colonne G: offset(0, 47).
essaye plutôt: offset(0, 40).

 

[matrix]

Re : Transfert donnée entre feuille

Bonjour,

J'ai fais la modification et même là, ça ne fonction pas.

Voici le fichier.

 

[matrix]

Re : Transfert donnée entre feuille

Je viens de changer pour:

Dest.Offset(0, 40) = .Cells(Y.Row, 20).Value

Et là, ça fonctionne.

Merci