code presse papier

jean paul

XLDnaute Junior
bonjour à tous

je viens d'enregistrer une macro pour realiser l'action "collage spécial,valeur",je souhaite ajouter un code pour l'arret de la macro si le presse papier etait vide.

Merci de vos réponses
Jean Paul

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 11/06/2008 par jp

Range("A1").Select

'JE souhaite l'arret de la macro si le presse papier etait vide


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1").Select
End Sub
 

Pierrot93

XLDnaute Barbatruc
Re : code presse papier

Bonjour Jean-Paul, Mth

une autre solution, pour tester si le presse papier contient des données de format "texte" :

Code:
Sub test()
'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject
x.GetFromClipboard
If x.GetFormat(1) = False Then MsgBox "presse-papier vide"
End Sub

Pour activer la référence "Microsoft Forms 2.0 Object Library", éditeur vba => barre de menu => outils => références.

bon après midi
@+
 

Discussions similaires

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 750
dernier inscrit
fred13340