code presse papier

jean paul · 11 Juin 2008

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 · 11 Juin 2008

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 · 11 Juin 2008

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

jean paul · 11 Juin 2008

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 · 11 Juin 2008

Re : code presse papier

Bonjour,

A essayer, placé après le collage:

Code:

Application.CutCopyMode = False

Bien cordialement,

mth

jean paul · 11 Juin 2008

Re : code presse papier

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

encore merci et bonne soiree

code presse papier

jean paul

XLDnaute Junior

mth

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

jean paul

XLDnaute Junior

mth

XLDnaute Barbatruc

jean paul

XLDnaute Junior

Discussions similaires