Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplacer Copy destination par Special Paste

Eliot59

XLDnaute Nouveau
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
 

Eliot59

XLDnaute Nouveau
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)

XLDnaute Barbatruc
Re : Remplacer Copy destination par Special Paste

Bonjour le fil,
essaye ceci...
Code:
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
 

Discussions similaires

Réponses
4
Affichages
453
Réponses
7
Affichages
528
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…