Microsoft 365 tester si valeur dans le presse-papier ou ClipBoard est numérique ou non

Usine à gaz · 23 Novembre 2019

Bonjour à toutes et à tous,

je bloque sur mon besoin malgré mes recherches et tentatives.

Ce que je fais :
1 - copier d'une valeur,
2 - j'ai besoin de tester si cette valeur est numérique ou non pendant qu'elle est dans le presse-papier ou ClipBoard
ou quand elle est collé dans la recherche find car je ne la colle pas dans une cellule.

par exemple pour dire : Is Not Numeric() Then Exit Sub
je ne suis pas certain que cela soit possible mais si solution il y a, ça m'arrangerait bien LOl

Un grand merci , comme d'habitude, à toutes et à tous pour votre aide toujours si précieuse.
S'il est nécessaire de faire une fichier test, dites-moi
Je vous souhaite une super WE,
Amicalement,
lionel,

Staple1600 · 23 Novembre 2019

Bonjour mapomme

J'ai pas fait grand chose
Ce sont surtout les touches de mon clavier CTRL C et V qui ont fait la plus grande part

Faut croire que le clavier d'arthour973 est dysfonctionnel

Usine à gaz · 23 Novembre 2019

Ha JM, toujours sur le vif

Bien sûr que NON : tu n'as pas perdu ton temps et tes conseils ou (Rappels LOL) sont toujours judicieux et utiles.
CTRL C et V ... j'en fait des milliers par jour et les yeux fermés
Mais je ne souhaitais pas inclure le code préconisé dans mon fichier déjà lourd.

Mais, après avoir fait CTRL C et V ... je l'ai gardé ... en cas de besoin.
Merci JM,
lionel

Usine à gaz · 23 Novembre 2019

Bonjour mapomme,

Merci d'être là encore toi aussi.
Merci pour tes codes ... ça semble bien fonctionner et ... légers LOL.
Quand j'aurai terminé mes tests et le fichier finalisé je le mettrai ici et dans l'autre fil :

Rechercher en commençant par la feuille active

Bonjour à toutes et à tous, Me re-voici avec un souci de recherche. Mes essaies, recherches" et mon niveau en vba ne m'ont pas permis de trouver la bonne codification. Je me tourne à nouveau vers vous en espérant une solution. j'avais posé, il y a quelques temps une question sur la recherche à...

www.excel-downloads.com

lionel

Staple1600 · 23 Novembre 2019

Re

arthour973
Il ne s'agissait pas d'intégrer mais de tester la seconde proposition avec l'API
(puisque le code 1 ( avec Ms Forms 2.0) ne fonctionne pas sur ton PC)
Chose que tu n'as pas faite puisque pas de retour de ta part sur ce simple petit test...

(Et pourtant dans le message#14, tu as tout ce qu'il faut pour faire le test sur un fichier vierge... )

PS: Un peu plus , un peu moins ,vu que tu adores les usines à gaz, ca n'aurait pas fait grand différence
Et avec ta version d'Excel, tu es obligé de passer par l'API pour taquiner le clipboard

Dranreb · 23 Novembre 2019

Bonjour.
En général l'insertion d'un nouvel UserForm (quitte à le supprimer ensuite si on n'en a pas besoin) suffit à charger la bibliothèque MSForms.

Staple1600 · 23 Novembre 2019

Bonsoir Dranreb

Sauf qu'il y a un bug (documenté sur Microsoft) avec les dernières versions d'Excel et de Windows pour ce qui concerne le Clipboard
D'où le message d'erreur

https://www.excel-downloads.com/thr...-est-numerique-ou-non.20038618/#post-20276014

Mais comme arthour972 a laissé tombé cette histoire de Clipboard, on se saura jamais la fin de l'histoire.
(cf message#12)

Dranreb · 23 Novembre 2019

Bonsoir.
OK. Il sera bien réparé quand même, je suppose…
Comment fais tu sur le site pour mettre un lien de ce style ? J'ai déjà cherché et pas trouvé, je ne connais que insérer un lien qui ne fait pas ça.

Staple1600 · 23 Novembre 2019

Re

Je ne fais rien de spécial.
C'est Xenforo qui formate automatiquement les liens URL.
(quand tu copies/colles une adresse URL dans le corps du message)

Dranreb · 23 Novembre 2019

Ah, d'accord. Il ne faut pas chercher à insérer le lien en somme, juste coller l'adresse. Bon à savoir. Si simple que je n'y avais pas pensé.

Staple1600 · 23 Novembre 2019

Re

Si tu veux le faire à l'ancienne, il faut faire

[URL unfurl="true"]https://www.excel-downloads.com/threads/tester-si-valeur-dans-le-presse-papier-ou-clipboard-est-numerique-ou-non.20038618/page-2#post-20276099[/URL]

Ce qui donne comme affichage

https://www.excel-downloads.com/thr...d-est-numerique-ou-non.20038618/post-20276099

Dranreb · 23 Novembre 2019

Non, pour des liens courts sans pavé souhaité, je continuerai, aprés avoir copié l'adresse, à sélectionner un bout de texte de mon message à transformer en lien, utiliser le bouton Insérer un lien (Ctrl+K), et coller l'adresse.

Staple1600 · 23 Novembre 2019

Re

Ok
Apparemment on a perdu Arthour973

Je ne sais toujours pas si la solution API fonctionne sur sa version d'Office
(pour ce qui concerne le Clipboard)

job75 · 23 Novembre 2019

Bonsoir Lionel, JM, mapomme, Bernard,

arthour973 à dit:
mais je suis sur une autre piste toute simple et je pense que ce sera bon.

Comme celle-ci peut-être :

VB:

Sub Test()
[A1] = 123
[A1].Copy
Clipboard
Application.CutCopyMode = 0
End Sub

Sub Clipboard()
Dim ac As Range, c As Range, v As Variant
Application.ScreenUpdating = False
Set ac = ActiveCell
Set c = Cells.Find("", , xlValues) 'cellule vide
c.Select
On Error Resume Next
Paste
v = c
c = ""
ac.Select
If IsNumeric(CStr(v)) Then Application.ScreenUpdating = True: MsgBox "Valeur numérique : " & v, , "Clipboard"
End Sub

Les API en général c'est plus que pénible.

A+

Dranreb · 23 Novembre 2019

Je ne trouve pas que les API soient pénibles en général. Elles ont tendance à marcher du premier coup. Il faudra voir les surprise avec les 64bit du coté des Long à passer aussi en LongPtr. Ça semble être le cas de tous les 'handle' qui semblent alors donc être en fait des adresses. Là c'est juste que MSForms offre un accès simple au presse papier pour du texte, et qu'il ne faudrait pas qu'un bogue Microsoft le rende inutilisable trop longtemps. Dernièrement il était subitement devenu impossible de retransmettre à une procédure un ParamArray vide (avec UBound (-1) < LBound (0)), mais ça a été réglé.

Staple1600 · 23 Novembre 2019

Bonsoir le fil, job75

job75

Les API en général c'est plus que pénible.

Faut dire cela à Microsoft

I opened a support case with Microsoft as suggested by Kirk Beller. The process was quite satisfactory, and after a very useful exchange, MS determined the cause to be 'most likely a flaw in our product'. So far, I have had no notification of when or if it might be fixed - MS have to recognise a strong enough business case.

During the course of the case, MS helped me develop a robust workaround using native Windows API calls instead of a DataObject. These are documented in the following articles:
> Ce lien n'existe plus (How to: Send Information to the Clipboard);
> Ce lien n'existe plus (How to: Retrieve Information from the Clipboard).

Microsoft 365 tester si valeur dans le presse-papier ou ClipBoard est numérique ou non

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Rechercher en commençant par la feuille active

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires