Remplacer Copy destination par Special Paste

[Eliot59]

Bonjour
j'utilise la macro suivante pour recopier les données de différentes feuilles sur une seulle.
Cela marche trés bien sauf que certaines des données comportent des formules uniques par feuilles et je souhaiterais que les valeurs de ces données soient recopiées .
j'ai éssayé de remplacer Copy Destination par PasteSpecial mais cela ne fonctionne pas
Merci


Sub CopyPaste()
Dim i As Integer, Sh As Worksheet

For Each Sh In Worksheets
If Sh.Name <> "recap" Then
With Worksheets("recap")
i = .Range("A65536").End(xlUp).Row + 1
End With

With Sh
.Range("A17:w500").Copy Destination:=Sheets("recap").Range("A" & i)

End With
End If
Next Sh

End Sub

 

[kiki29]

Re : Remplacer Copy destination par Special Paste

Salut,Le macro recorder avec collage spécial t'apportera la solution

 

[HIJACK]

Re : Remplacer Copy destination par Special Paste

Salut ray t'es revenu d'alsace? T'y as oublié ton enregistreur?
Mais c'est qui?

 

[Eliot59]

Re : Remplacer Copy destination par Special Paste

Salut KIKI
Désolé mais je suis un peu novice en VBA. J'ai enregistré une macro en procédant avec un collage spéciale valeur puis j'ai essayé de l'adapter à cette macro mais ca ne marche pas
Merci

 

[youky(BJ)]

Re : Remplacer Copy destination par Special Paste

Bonjour le fil,
essaye ceci...

Sub CopyPaste()
Dim i As Integer, Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name <> "recap" Then
i = Sheets("recap").Range("A65536").End(xlUp).Row + 1
With Sh
'le 483 est 500-17
Sheets("recap").Range("A" & i & ":W" & i + 483).Value = _
.Range("A17:w500").Value
End With
End If
Next Sh
End Sub

 

[Eliot59]

Re : Remplacer Copy destination par Special Paste

Bonjour YOUKI
T'es un Chef
Grand merci & Bonne journée