Microsoft 365 couper/copier/coller le texte en tout ou partie dans le TextBox1 (casse méninges 1 du WE)

Usine à gaz · 26 Mars 2022

Bonjour à toutes et à tous,
Je vous souhaite un bon WE

PS pour notre @patricktoulon qui m'a mis au défit de trouver des trucs bien loufoques pour ce WE ... hé bien, j'en ai 2 qui seront, je pense, pas mal, pour toi et pour notre @mapomme lol

Ce fil a été résolu grâce à tous les participants que je remercie encore une fois

Microsoft 365 - InputBox : saisir ou modifier le contenu de la cellule cliquée à l'aide de l'InputBox

Bonjour à toutes et à tous, Je vous souhaite un beau dimanche :) Pour des besoins dans l'un de mes fichiers de travail, je voudrais saisir ou modifier le contenu de la cellule cliqué à l'aide de l'InputBox : l'InputBox prenant le contenu de la cellule (vide ou non), je saisi dans l'InputBox, 1...

www.excel-downloads.com

Plusieurs solutions fonctionnelles ont été proposées.

J'en ai retenu une qui me convient parfaitement et j'ai 2 questions (casse méninges du WE) et voici la première :
Est-il possible de couper/copier/coller le texte en tout ou partie "directement" dans le TextBox1

J'ai tenté et fait des recherches et jusqu'à maintenant, je n'ai pas trouvé ...
Auriez-vous la solution ?
Un grand merci à toutes et à tous,
Je joins un p'tit fichier test et je continue mes recherches ...
lionel

patricktoulon · 28 Mars 2022

job75 à dit:
Vide le Clipboard avec le code :

VB:

Sub Vide() [A1].Copy [A1] End Sub

et exécute la macro ComboBox1_Change après avoir retiré On Error Resume Next...

re
Bonjour @job75
Ok vu
ci dessous exactement le même mais avec un vrai menu contextuel dans un module
dans un module standard

VB:

'***********************************************
'Menu contextuel "couper/copier/coller" sur textbox dans userform
'patricktoulon
'menu change sur la base de la version combobox de @job75
'*************************************************************
Option Explicit
Dim ctrl As Object
Sub createmenu(ctl As Object)
    Dim barre, arrbutton, I%: delebar: Set ctrl = ctl
    arrbutton = Array("Couper", "Copier", "Coller")
    Set barre =...

Staple1600 · 27 Mars 2022

RE

Tu parles de quel fichier?
Car inPROUTBox, c'est signé patrick

Usine à gaz · 27 Mars 2022

C'est curieux : Il me semble que c'est depuis la mise en place de cet UserForm "inPROUTbox"

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
RE

Tu parles de quel fichier?
Car inPROUTBox, c'est signé patrick

OUI, c'est bien ça !

patricktoulon · 27 Mars 2022

re
ben c'est la meme chose que @job75 sauf que la combo se transforme en menu
esthétiquement c'est mieux (tu peux la faire comme tu veux )

ensuite il y a un tout petit soucis avec la version sendkeys que ce soit celle de @job75 ou la mienne

quand on copie ou coupe et qu'ensuite on colle le clip se vide alors que le menu natif dans toute application le clip garde en mémoire ce qui a été coupé ou copié
avec cette methode donc ,on ne peut coller qu'une fois
alors ça peut arranger comme être ennuyant selon le besoins

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
re
ben c'est la meme chose que @job75 sauf que la combo se transforme en menu
esthétiquement c'est mieux (tu peux la faire comme tu veux )

ensuite il y a un tout petit soucis avec la version sendkeys que ce soit celle de @job75 ou la mienne

quand on copie ou coupe et qu'ensuite on colle le clip se vide alors que le menu natif dans toute application le clip garde en mémoire ce qui a été coupé ou copié
avec cette methode donc ,on ne peut coller qu'une fois
alors ça peut arranger comme être ennuyant selon le besoins

Re-Patrick merci pour tes explications ... j'ai un souci :
C'est curieux : depuis la mise en place de cet UserForm "inPROUTbox", je ne peux plus afficher les Propriétés de mes UserForm ... tu saurais pourquoi ?

Staple1600 · 27 Mars 2022

Re

Bah, moi j'ai bien accès aux Propriétés

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Re

Bah, moi j'ai bien accès aux Propriétés

Mer JM d'être encore là ... mais alors là, je ne comprends et pourtant c'est bien après la mise en place de l'UserForm que c'est arrivé .... ou alors c'est une coïncidence (si j'ai fait une fausse manip) ? mais je ne vois pas comment faire ?

patricktoulon · 27 Mars 2022

ben ca dépend je ne sais plus quel code tu utilise maintenant donc

ma méthode improutbox comme mon msgbox perso repose sur le mode modal pour la gestion d'attente et le hide pour libérer la valeur choisie pour ensuite faire un unload
la fonction est lancée en tant que fonction de la classe improutbox
si tu utilise toujours cette méthode responsive fait attention de ne pas avoir enlevé la ligne unload
sinon le inproutbox reste chargé mais invisible

après sinon je ne vois pas il n'y a aucune raison

je n'ai aucun soucis avec mon model

patricktoulon · 27 Mars 2022

re
va au menu d'affichage et remet les propriété si ca se trouve c'est toi qui l'a enlevé par inadvertance
tout simplement

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
ben ca dépend je ne sais plus quel code tu utilise maintenant donc

ma méthode improutbox comme mon msgbox perso repose sur le mode modal pour la gestion d'attente et le hide pour libérer la valeur choisie pour ensuite faire un unload
la fonction est lancée en tant que fonction de la classe improutbox
si tu utilise toujours cette méthode responsive fait attention de ne pas avoir enlevé la ligne unload
sinon le inproutbox reste chargé mais invisible

après sinon je ne vois pas il n'y a aucune raison

je n'ai aucun soucis avec mon model

J'ai testé ton dernier fichier #post 71 tel quel

patricktoulon · 27 Mars 2022

le post 71 c'est la méthode show vbmodeless de @job75 pas la mienne j'ai juste modifier le code comboBox
ce n'est donc plus un inputbox mais un interface applicatif
a écouter tout le monde tu fini pas plus savoir ce que tu utilise

Usine à gaz · 27 Mars 2022

Usine à gaz · 27 Mars 2022

Usine à gaz à dit:
Regarde la pièce jointe 1134969

Si je l'ai désactivé par erreur : vous sauriez comment réactiver ?

patricktoulon · 27 Mars 2022

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
re
Regarde la pièce jointe 1134971

Oui, je vois mais chez moi = rien ne s'affiche" ... Bon sang que faire ?

Microsoft 365 couper/copier/coller le texte en tout ou partie dans le TextBox1 (casse méninges 1 du WE)

Usine à gaz

XLDnaute Barbatruc

Microsoft 365 - InputBox : saisir ou modifier le contenu de la cellule cliquée à l'aide de l'InputBox

Pièces jointes

patricktoulon

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires