Excel 2007 - Essayer de copier et coller des valeurs uniquement par défaut et supprimer la source dans vba

J'essaie de trouver un moyen d'utiliser couper et coller spécial, valeurs seulement. D'après ce que j'ai lu jusqu'à présent, il semble que ce ne soit pas possible. Donc, l’autre moyen que j’ai trouvé est d’utiliser vba, de copier et coller les valeurs uniquement sur ma feuille de calcul. Maintenant, je voudrais ajouter une ligne pour supprimer la source après qu'elle ait été collée.

voici ce que j'ai trouvé jusqu'à présent (désolé je suis complètement nouveau pour vba).

Sub PasteAsValue()
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

puis sous le nom de macro "PasteAsValue" j'entre un raccourci clavier ctrl + v

Merci pour l'aide.

microsoft-excel vba copy-paste

— René Bourgoin
source

Clic droit - Coller les valeurs ne fonctionne pas, vous voulez un raccourci clavier?

— BruceWayne

Voulez-vous mettre à jour le code VBA pour supprimer la source après l'opération de collage?

— Prasanna

Bonjour Brucewayne, le problème est que c'est une feuille de travail partagée et que les gens continuent de bousiller le format lorsqu'ils utilisent la méthode copier-coller. S'il existe un moyen d'utiliser des valeurs copier-coller, je ne sais pas comment. Avec le copier-coller spécial (valeurs uniquement), cela fonctionne très bien, mais nous devons effacer manuellement le contenu de la cellule en cours de collage dans une autre cellule. Tous les conseils seront appréciés. Je suis sûr que c'est un moyen facile que je ne vois pas.

— René Bourgoin

Prasanna, c'est exactement ce que je recherche ;-)

— Rene Bourgoin le

Par curiosité, utiliser la commande cut au lieu de copier fonctionnerait-il? Ensuite, votre VBA fonctionnerait pour la commande de collage?

— jrichall

Puisque vous n'avez pas spécifié la ou les lignes à couper, coller et supprimer, j'ai donc assumé la ligne source et la ligne de destination. Mieux vaut modifier la portée selon vos besoins.

Sub CutPaste()    

        Worksheets("Sheet1").Activate
        Range("A2").Select
        Selection.Cut
        Range("A10").Select
        ActiveSheet.PasteSpecial Paste:=xlPasteValues
        Range("A2").EntireRow.Delete

    End Sub

J'espère que cela vous aidera.

— Rajesh S
source