Collage spécial (vba)

Le
j-pascal
Bonjour,

Comment puis-je passer de :

MaPlage.Copy Sh1.Range("A1")

à :

MaPlage.Copy Sh1.Range("A1").PasteSpecial Paste:=xlPasteValues

Sachant que la 2ème proposition n'est pas bonne, dans sa syntaxe ?

Merci pour vos lumières,

jp
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JLuc
Le #19217441
j-pascal a écrit :
Bonjour,

Comment puis-je passer de :

MaPlage.Copy Sh1.Range("A1")

à :

MaPlage.Copy Sh1.Range("A1").PasteSpecial Paste:=xlPasteValues

Sachant que la 2ème proposition n'est pas bonne, dans sa syntaxe ?

Merci pour vos lumières,

jp


Amha, en deux lignes :) (en regardant l'enregistrement)

MaPlage.Copy
Sh1.Range("A1").PasteSpecial Paste:=xlPasteValues
MichDenis
Le #19219601
Tu peux faire comme ceci

A ) Utilise un nom de variable qui n'existe pas déjà dans la procédure.

'Déclaration de la variable :
Dim X as variant

B )
x = MaPlage
Sh1.Range("A1").Resize(UBound(x, 1), UBound(x, 2)) = x




"j-pascal" Bonjour,

Comment puis-je passer de :

MaPlage.Copy Sh1.Range("A1")

à :

MaPlage.Copy Sh1.Range("A1").PasteSpecial Paste:=xlPasteValues

Sachant que la 2ème proposition n'est pas bonne, dans sa syntaxe ?

Merci pour vos lumières,

jp
j-pascal
Le #19220481
Bonjour J-Luc,

Merci pour cette observation ! C'était bien ça, mais tu le savais déjà
ATHA ;-)

Cette petite "optimisation" ne me choquait pas vraiment ...

JP

j-pascal a écrit :
Bonjour,

Comment puis-je passer de :

MaPlage.Copy Sh1.Range("A1")

à :

MaPlage.Copy Sh1.Range("A1").PasteSpecial Paste:=xlPasteValues

Sachant que la 2ème proposition n'est pas bonne, dans sa syntaxe ?

Merci pour vos lumières,

jp


Amha, en deux lignes :) (en regardant l'enregistrement)

MaPlage.Copy
Sh1.Range("A1").PasteSpecial Paste:=xlPasteValues


Publicité
Poster une réponse
Anonyme