XL 2010 coller juste les valeurs

[fablog]

Bonjour,

J'aimerai avoir votre aide pour modifier la macro ci-dessous afin qu'elle fasse un collage des valeurs seulement. Actuellement, cela colle également la mise en forme.

Merci par avance!

Sub CopierCollerToutActions()
'
' Macro1 Macro

Dim WsC As Worksheet
Dim T, Plages
Dim i As Long, j As Long
Dim P1 As String, P2 As String, P3 As String
    Set WsC = Workbooks("Processus.xlsm").Worksheets("2. Actions")
    P1 = "E2:X4"
    P2 = "E5:X5"
    P3 = "C6:X107"
    Plages = Array(P1, P2, P3)
    For j = 0 To UBound(Plages)
        T = Split(Range(Plages(j)).Address, ",")
        For i = 0 To UBound(T)
            Sheets("2. Actions").Range(T(i)).Copy WsC.Range(T(i))
        Next i
    Next j
End Sub

 

[Jacky67]

Bonjour,
Essaye comme ceci

Sub CopierCollerToutActions()
'
' Macro1 Macro

Dim WsC As Worksheet
Dim T, Plages
Dim i As Long, j As Long
Dim P1 As String, P2 As String, P3 As String
Set WsC = Workbooks("Processus.xlsm").Worksheets("2. Actions")
P1 = "E2:X4"
P2 = "E5:X5"
P3 = "C6:X107"
Plages = Array(P1, P2, P3)
For j = 0 To UBound(Plages)
  T = Split(Range(Plages(j)).Address, ",")
  For i = 0 To UBound(T)
    Sheets("2. Actions").Range(T(i)).Copy
    WsC.Range(T(i)).PasteSpecial Paste:=xlPasteValues
  Next i
Next j
End Sub

Non testé, mais cela devrait faire

 

[fablog]

Ça fonctionne parfaitement, merci Jacky67!