Copie de valeur sans les formules

Bonjour,

J'ai ma petite macro qui va bien mais je souhaiterais seulement copier les valeurs et non les formules qu'il y a dans la plage de donnée sélectionné.

J'ai essayé de rajouter, par-ci par-là, du "Pastespecial xlValues" mais sans succès... Donc je demande de l'aide après avoir recherché sur le forum bien entendu ;)

Voici ma macro qui fonctionne correctement :

Code:

---

1 2 3 4 5 6 7 8

Dim OS As Worksheet Dim OD As Worksheet Dim DEST As Range   Set OS = Sheets("Récap") Set OD = Sheets("Historisation TER2N") Set DEST = IIf(OD.Range("AU3") = "", OD.Range("AU3"), OD.Cells(3, Application.Columns.Count).End(xlToLeft).Offset(0, 1)) OS.Range("C3:H121").Copy DEST

---

Je demande simplement si vous pouviez m'aider à effectuer une copie des valeurs de la plage sélectionnée et ne pas copier les formules avec.

Merci d'avance =)

Bonjour,

Essaies :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub xxx() Dim OS As Worksheet Dim OD As Worksheet Dim DEST As Range   Set OS = Sheets("Récap") Set OD = Sheets("Historisation TER2N") Set DEST = IIf(OD.Range("AU3") = "", OD.Range("AU3"), OD.Cells(3, Application.Columns.Count).End(xlToLeft).Offset(0, 1)) With OS.Range("C3:H121") DEST.Resize(.Rows.Count, .Columns.Count).Value = .Value End With End Sub

---

Parfait,

Je n'avais pas pensé au ".Value=.Value"

Merci et une bonne journée à vous :D