Discussion :

[Chewee08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 =)

[Patrice740]

Bonjour,

Essaies :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chewee08]

Parfait,

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

Merci et une bonne journée à vous