Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Collage spécial (vba)

Collage spécial (vba)

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
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
Avatar
MichDenis
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" a écrit dans le message de groupe de discussion :
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
Avatar
j-pascal
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