Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Collage Spécial

alain18

XLDnaute Occasionnel
Bonjour au forum,
Je souhaite pouvoir aller dans un fichier quelconque copier des données, donc sans connaitre à l'avance la référence de la plage de cellules (chose que je fais manuellement de manière classique) et ensuite copier ces données avec la fonction "Collage Spécial/Valeur" pour éviter de transférer des formules.
J'ai donc mis le code ci-dessous pour effectuer cette opération et cela fonctionne bien. Mais lorsqu'il n'y a rien de copié sur un autre fichier je souhaiterais qu'un clic inopiné sur le bouton de cette commande ne provoque pas un bug de la macro ci-dessous.
Mon code:
Sub CollageSpécial()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Pour résumé: Interdire un clic si aucune valeur ont au préalable été copiées.
Merci de votre aide.
 

vgendron

XLDnaute Barbatruc
bonjour

Peut etre en ajoutant une "gestion" des erreurs
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 

Discussions similaires

Réponses
5
Affichages
136
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…