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, Bonjour Eric C

Eric C
Comme je l'ai écrit, il faut cliquer sur Common
pour voir apparaitre Dock

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Relire le message#114

Au lieu de te précipiter, prends le temps de lire calmement les messages !!

Youpy : c'est revenu au redémarrage
Merci JM pour toute ton aide et ta patience
Vraiment MERCI MERCI MERCI de "gogol à JM" lol

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
ecoute c'est simple
prend un blocknote et colle lui ça

sauve le sous "resetDocking.reg" en prenant soin de choisir l'extention"*" en dessous voir demo
Regarde la pièce jointe 1134987

tu va te retrouver avec un fichier dont l'icone ressemble a ça
Regarde la pièce jointe 1134988

tu le lance tu réponds oui tout le temps (les 3 fois )
et voilà tu relance excel et les dock vont se réinitialiser
pas compliqué c'est bon for all version actuellement

Merci Patrick à toi aussi mais c'est bon maintenant

patricktoulon · 27 Mars 2022

ben pour nous c'est simple mais pour certains ce n'est pas evident

patricktoulon · 27 Mars 2022

à tu au moins exporter ta clé avant en la nettoyant
comme ça la prochaine fois que ca t'arrive tu relance cette clé que tu aura créer toi même sans aller fouiller dans regedit

Staple1600 · 27 Mars 2022

Re

NB: Personnellement, je ne recommande pas la méthode de Patricktoulon)
(attention je parle de la méthode, pas de patricktoulon
Car si le fichier *.reg contient une coquille (cela peut arriver), on risque d'altérer la registry
Alors qu'en le faisant à la main
1) On exporte la clé si besoin (par sécurité)
2) On sait ce qu'on supprime
(et en cas de fausse manip, on peut faire: Fichier/Importer et réinjecter la sauvegarde.)

=>Patricktoulon
Connaissant Lionel, il a lu mon message à la va-vite
(et n'a pas fait l'export comme je l'indiquais)

patricktoulon · 27 Mars 2022

c'est quoi la coquille
ces clé je les ai exporté et nettoyé moi même

patricktoulon · 27 Mars 2022

alors maintenant re teste le 71

patricktoulon · 27 Mars 2022

quand a moi je vais tester la dernière de @job75

Staple1600 · 27 Mars 2022

Re

patricktoulon
Toi aussi relis, mes messages
Je ne parle de ton fichier *.reg mais de la méthode
je dis simplement que je ne conseille pas à un utilisateur "newbie" de Windows de fusionner un fichier *.reg quelque soit sa source.
(C'est potentiellement source de problème)
Alors que le faire à la main, avec export préalable, c'est plus secure.

Eric C · 27 Mars 2022

Re le fil,

@ Staple1600 - Bonjour. J'ai omis de préciser que les clés "Dock" sont bien présentes dans les S/Dossier Common des dossiers 6.0 & 7.0 Mais pas dans le Common de 7.1. De toutes façons ces clés ne sont inscrites dans le Common et on ne peut les voir autrement.
J'ai déjà eu ce soucis et ai déjà mis un lien pour y remédier.
Bon dimanche
@+ Eric c

Staple1600 · 27 Mars 2022

Re

Eric C
J'ai 7.1 car j'ai Excel 2013 sur mon PC
Quelle est ta version d'Office?

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
alors maintenant re teste le 71

Si tu parle du fichier du #post 71 : je viens de le tester à nouveau et il fonctionne nickel

patricktoulon · 27 Mars 2022

job75 à dit:

Si comme le dit patricktoulon les SendKeys posent problème on utilisera ce fichier (2) avec la macro :

VB:

Private Sub ComboBox1_Change()
Dim n%, o As Object
n = ComboBox1.ListIndex
If n = -1 Then Exit Sub
ComboBox1 = ""
With TextBox1
    .SetFocus
    Set o = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' DataObject en late binding
    If n < 2 Then o.SetText .SelText: o.PutInClipboard 'copier
    If n = 0 Then .SelText = "" 'couper
    If n = 2 Then On Error Resume Next: o.GetFromClipboard: .SelText = o.GetText 'coller
End With
End Sub

great @job75 là oui on a un copier coller conforme a l'original
j'entends pas là que quand on colle apres "couper" on peut coller 36 fois

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
great @job75 là oui on a un copier coller conforme a l'original
j'entends pas là que quand on colle apres "couper" on peut coller 36 fois

c'est beaucoup lol

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

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires