Collage Spécial et Destination

[Robert]

Bonjour le forum,

Encore (et toujours) besoin de vos lumières... Est-il possible d'utiliser le Collage Special avec le même principe :
Range(my_range).Copy Destination:=Range(my_autre_range)
Si oui de quelle manière, car je ne sais pas intégrer PasteSpecial dans ce cas de figure. En fait je voudrais éviter le résultat de l'enregistreur de macro :
Selection.Copy
Range(my_range).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


Merci d'avance pour votre aide.

À plus,

Robert

 

[@+Thierry]

Bonjour Robert, le Forum

Tiens personne ne t'a répondu... voici alors deux méthodes pour le pric d'une !


Sub CopyPasteValue()
Dim SourceRange As Range
Dim CibleRange As Range

Set SourceRange = Sheets("Feuil1").Range("B8:F8")
Set CibleRange = Sheets("Feuil3").Range("A1")

SourceRange.Copy
CibleRange.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

La seconde bien plus rapide nécessite toute fois de dimensionner la range de réception de taille similaire, alors que la première méthode ne le nécessite pas...

Sub CopyArray()
Dim SourceTab
SourceTab = Sheets("Feuil1").Range("B8:F8")
Sheets("Feuil3").Range("A1:E1") = SourceTab
End Sub


Bon Aprèm
@+Thierry

 

[Robert]

Salut Extra Terrestre, Salut le forum,

Toujours le même... No comment... (ce mec est trop !). Merci.
D'ailleurs, comme j'en ai marre de te dire merci, je te propose de venir voir si les plages de Montpellier sont plus jolies que celles de Monaco. Une très grande partie de la famille est partie en vacances jusqu'a fin août. Si le cœur t'en dit et si tu peux te libérer... c'est avec plaisir.

Robert

 

[@+Thierry]

Merci Robert pour l'invitation

Bonne Soirée
@+Thierry