code presse papier

[jean paul]

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

 

[mth]

Re : code presse papier

Bonjour Jean Paul,

Ce lien, avec la réponse de Samimi, pourra certainement t'aider:

https://www.excel-downloads.com/threads/test-sur-presse-papier.92990/

Bien à toi,

mth

 

[Pierrot93]

Re : code presse papier

Bonjour Jean-Paul, Mth

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

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
@+

 

[jean paul]

Re : code presse papier

merci à tous
j'ai utilisé le code de Pierrot c'est impeccable, maintenant je vais regarder pour vider le presse papier en fin de code

bonne soiree

 

[mth]

Re : code presse papier

Bonjour,

A essayer, placé après le collage:

Application.CutCopyMode = False

Bien cordialement,

mth

 

[jean paul]

Re : code presse papier

merci pour la réponse ,je venais d'essayer cette solution et ca marche

encore merci et bonne soiree