Macro - Copier/coller en valeur

(Re) bonjour,

Voici un code qui me sert a copier-coller des cellules dans un autre fichier, en se décalant d'une colonne à chaque mise à jour:

Dim CS As Workbook

Dim OS As Worksheet

Dim CD As Workbook

Dim OD As Worksheet

Dim DEST As Range

Set CS = Workbooks("Suivi.xlsx")

Set OS = CS.ActiveSheet

Set CD = Workbooks("essai.xlsm")

Set OD = CD.ActiveSheet

Set DEST = IIf(OD.Range("D5") = "", OD.Range("D5"), OD.Cells(5, Application.Columns.Count).End(xlToLeft).Offset(0, 1))

DEST.Select

OS.Range("E6:E12").Copy DEST 'copie A21 de l'onglet source et le colle dans DEST

End Sub

J'aimerai que le code copie en valeur les données présentes dans les cellules E6 à E12, et non la formule.

J'ai déjà essayé en mettant des .value et des PasteSpecial, mais sans succès jusqu'à présent ( ma syntaxe n'étant surement pas la bonne).

Qulequ'un aurait-il une idée?

As tu essayé de remplacer

DEST.Select
OS.Range("E6:E12").Copy DEST 'copie A21 de l'onglet source et le colle dans DEST

Par

DEST.Resize(1, 7).Value = OS.Range("E6:E12").Value

Merci beaucoup, ça fonctionne

Par contre, c'est pas DEST.Resize(1, 7).Value = OS.Range("E6:E12").Value mais DEST.Resize(7, 1).Value = OS.Range("E6:E12").Value

Si je comprend bien, cela signifie que la macro prend les valeurs de E6 à E12 et les retraduit en valeur dans une colonne de 7 lignes à partir de la cellule D5 ?

C'est ça !