À propos d'un copier-coller

[Magic_Doctor]

Bonjour à tous,

Voilà, je voudrais faire via une macro un copier-coller. Mais je veux faire un collage spécial avec uniquement les valeurs.
Ma foi, ce n'est pas trop compliqué avec la sentence suivante :

Worksheets("BD").[ListeItems2].Copy
Worksheets("BD").[ListeItems3].Select
Selection.PasteSpecial Paste:=xlPasteValues

J'ai trouvé une autre sentence que je trouve plus élégante et concise :

Worksheets("BD").[ListeItems2].Copy Destination:=Worksheets("BD").[ListeItems3]

Seulement je ne parviens pas avec cette alternative à faire un collage spécial.
Est-ce possible ?

Il s'agit là essentiellement d'une question de curiosité, mais merci d'avance pour toute explication.

 

[laetitia90]

Re : À propos d'un copier-coller

bonjour Magic_Doctor🙂
exemple

 Dim t As Variant
 t = [a1]: [a2] = t

bien sur on peut faire

[a2] = [a1]

ou

Range("a2") = Range("a1")

ps: attention a l'utilisation des crochets !!!!

 

[job75]

Re : À propos d'un copier-coller

Bonjour Magic_Doctor, Laetitia 🙂

Worksheets("BD").[ListeItems3] = Worksheets("BD").[ListeItems2].Value

Si les noms sont définis dans le classeur ceci suffit :

[ListeItems3] = [ListeItems2].Value

Bien entendu les 2 plages doivent avoir les mêmes dimensions...

A+

 

[Magic_Doctor]

Re : À propos d'un copier-coller

Bonjour Laetitia, job,

Merci à tous les deux pour vos réponses.
Décidément, pourquoi faire compliqué quand on peut faire simple ?

Effectivement les 2 plages sont identiques (mêmes dimensions).

Même si les 2 réponses sont en fait similaires, celle de job marche car il faut impérativement écrire :
[ListeItems3] =[ListeItems2].Value

Si on ne met pas le "suffixe" .Value, ça ne marchera alors pas.
Ne me demandez pas pourquoi, car [ListeItems3] =[ListeItems2] aurait logiquement très bien pu faire l'affaire. Et pourquoi ne pas devoir alors écrire : [ListeItems3].Value =[ListeItems2].Value ?

Bon, l'essentiel c'est que ça marche !