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

Autres tester si le Presse Papier (Clipboard) esi vide

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous

Clipboard
vider Excel ok
vider Windows ok

Je cherche à tester si le Presse Papier (Clipboard) est vide.
Pour avertir avec un MsgBox, genre "rien à coller refaire le copier"

Malgré mes tests et nombreuses recherches (également sur des sites anglais), je n'ai pas trouvé.
Je suis sur office2021 (64k)
Je n'ai pas trouvé "la bibliothèque d'objets Microsoft Forms 2.0"

Auriez-vous le bon code ?
Je joins un petit fichier test et je continue mes recherches...
Dans le fichier, un code de @patricktoulon que je ne parviens pas à faire fonctionner.

Grand MERCI à toutes et à tous
 

Pièces jointes

  • Clipboard test si vide.xlsm
    22.8 KB · Affichages: 2
Dernière édition:
Solution
Bonjour

Glané sur le net
Code: 
Sub CheckClipboard()
Dim myDataObject As DataObject
Set myDataObject = New DataObject
myDataObject.GetFromClipboard
If myDataObject.GetFormat(1) = True Then
MsgBox "Clipboard non vide"
Else
MsgBox "Clipboard vide"
End If
End Sub
• A propos de Microsoft Forms 2.0
Chez moi FM20.dll est dans C:\Windows\system32
(Windows 10)
Trier par date Trier par votes

Staple1600

XLDnaute Barbatruc
Bonjour

Glané sur le net
Code: 
Sub CheckClipboard()
Dim myDataObject As DataObject
Set myDataObject = New DataObject
myDataObject.GetFromClipboard
If myDataObject.GetFormat(1) = True Then
MsgBox "Clipboard non vide"
Else
MsgBox "Clipboard vide"
End If
End Sub
• A propos de Microsoft Forms 2.0
Chez moi FM20.dll est dans C:\Windows\system32
(Windows 10)
 
Vote positif 0 Vote négatif
Solution

dysorthographie

XLDnaute Accro
Bonjour,
T'es sérieux ?
Code: 
If PressePapier=""Then

Autres - InputBox

Bonjour à toutes et à tous :) Je bute sur mon besoin suivant : Le contexte Au clic en col "G" sur un n° de téléphone, il est copié automatiquement en cellule "K1" J'ai une recherche (Sub Rechercher_youky()) qui me permet de chercher dans toutes mes feuilles Je colle ou je saisi la valeur...
excel-downloads.com
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bjr JM
Merci d'être là.
Et merci pour ton code.
Malheureusement ça coince :

 
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bjr dysorthographie

Un peu fatigué le dimanche mais sérieux
Si tu veux me parler du code de Patrick :
#Post 1 "Dans le fichier, un code de @patricktoulon que je ne parviens pas à faire fonctionner."
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re
J'avais déjà tenté "If PressePapier=""Then" et pas réussi à le faire marcher
 
Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro
Effectivement Getdata retournait nulle c'est réglé ! Désolé

VB: 
Sub Test()
ClearPressePapier
If PressePapier = "" Then MsgBox "Non"
PressePapier = "toto"
MsgBox PressePapier
End Sub
Public Function ClearPressePapier()
 CreateObject("htmlfile").parentwindow.clipboardData.clearData "Text"
End Function
Public Property Let PressePapier(valeur)
 CreateObject("htmlfile").parentwindow.clipboardData.setData "Text", valeur
End Property

Public Property Get PressePapier()
 PressePapier = "" & CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property
 
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re dysorthographie

ça marche aussi, je l'ai fait comme ça :
VB: 
Sub test()
'ClearPressePapier
'MsgBox PressePapier
'PressePapier = "toto"
If PressePapier = "" Then
MsgBox ("rien à coller refaire le copier")
End If
End Sub
Public Function ClearPressePapier()
 CreateObject("htmlfile").parentwindow.clipboardData.clearData "Text"
End Function
Public Property Let PressePapier(valeur)
 CreateObject("htmlfile").parentwindow.clipboardData.setData "Text", valeur
End Property

Public Property Get PressePapier()
 PressePapier = "" & CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

Je joins le fichier avec les 2 solutions qui fonctionnent,

Merci à vous 2
 

Pièces jointes

  • Clipboard test si vide.xlsm
    24 KB · Affichages: 3
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Vider presse Papier VBA
Réponses
11
Affichages
134
Nounours
N
V
  • Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
549
Valter
V
F
  • Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
175
fuioplde
F
R
  • Question
Autres Copie dans le presse-papier d'une sélection multiple
2
Réponses
16
Affichages
1 K
Renaud22
R
  • Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
569
Usine à gaz
C
  • Question
XL 2016 Coller plusieurs fichiers 'entiers' dans le presse papier
2 3
Réponses
37
Affichages
2 K
TooFatBoy
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
222
Olihoes
O
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
155
AlCapone
J
  • Question
XL 2019 PB de copier de valeur dans le presse papier
Réponses
6
Affichages
2 K
JPaul78
J
  • Résolu(e)
XL 2021 Calendrier : à l'affichage ne pas sélectionner de date
2
Réponses
29
Affichages
1 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…