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 =...

Eric C · 27 Mars 2022

Re le fil
@Staple1600 - J'ai Excel 2010 et dans la base de registre, j'ai donc M. O/VBA/ 6.0 - 7.0 et 7.1 mais sans Docks dans le common 7.1.

patricktoulon · 27 Mars 2022

je confirme les dires de @Eric C
le dock est toujours dans le common

les mise a jours successive ne nettoient pas le registre
par exemple j'ai eu 2007 ensuite 365 (pour tester puis bye bye!!) et 2013
j'ai donc les 3 numéro de version vb6.0 vb7.0 vb7.1
avec mon reg au pire on a un numéro qui sert a rien
car a l’installation de 2013 après 365 la cle 7.0 c'est vidée complètement et je suis en 7.1
donc aucuns soucis avec ma méthode et ce n'est absolument pas dangereux

patricktoulon · 27 Mars 2022

re
@job75
dans quelle eventualité la gestion d'erreur est nécessaire ?????
je viens de tester en vidant le clip et cliquant direct coller
je n'ai pas d'erreur

VB:

Private Sub menu_Change()
    Dim n%, o As Object
    n = Menu.ListIndex
    If n = -1 Then Exit Sub
    Menu = ""
    With ctrl
        .SetFocus
        Set o = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")    ' DataObject en late binding
        o.SetText "": o.PutInClipboard 'je fait expres pour l'exemple de vider le clip
        If n < 2 Then o.SetText .SelText: o.PutInClipboard    'copier
        If n = 0 Then .SelText = ""    'couper
        If n = 2 Then
            'On Error Resume Next' dans quelle eventualité cette gestion d'erreur est necessaire ???????????????
            o.GetFromClipboard: .SelText = o.GetText    'coller
        End If
    End With
End Sub

Staple1600 · 27 Mars 2022

Re

patricktoulon
Je parle de la méthode de manière générale
(C'est pourtant clair ce que j'écris et j'ai bien précisé que je parlais de la méthode, pas de patricktoulon )
Conseiller à un utilisateur "newbie" de fusionner un fichier *.reg les yeux fermés est potentiellement dangereux.
(et patricktoulon ou Staple ou la princesse Zelda n'ont rien à voir là dedans)
Je parle uniquement de la méthode.
On trouve sur plein de sites, N fichiers *.reg pour régler tel ou tel problème (pas forcément lié à Excel)
Donc laisser entendre qu'il n'y a juste qu'à télécharger un fichier *.reg et double-cliquez dessus dans se poser de questions, c'est cela ce que j'appelle une méthode dangereuse !

Un utilisateur expérimenté prendre le temps d'ouvrir le *.reg dans le bloc-notes pour voir ce que va faire le fichier *.reg
Puis fera un export de la branche avant de fusionner le fichier *.reg

Staple1600 · 27 Mars 2022

Re

=>Eric C
Je n'ai que 7.1

Et sur ce PC, je n'ai qu'Office 2013

NB: Quand j'installe une nouvelle version d'Office, je fais le ménage au préalable dans la registry
manuellement et/ou avec un *.vbs

patricktoulon · 27 Mars 2022

oui j'ai compris
en même temps si un débutant ne sais pas cliquer 3 fois "oui" sur les messages qui lui arrivent quand on lui dit que c'est sur ben mon ami on est pas arrivé

autant je suis d'accords avec toi que la recherche de l'arborescence dans regedit peut effrayante pour un débutant qui a peur de faire une sottise mais un reg prêt a être exécuté c'est simple

c'est quoi le code de ton vbs de nettoyage ?

patricktoulon · 27 Mars 2022

@job75 j'aurais plutot fait ça pour "Coller"

VB:

 Dim n%, o As Object
    n = Menu.ListIndex
    If n = -1 Then Exit Sub
    Menu = ""
    With ctrl
        .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' dans quelle eventualité cette gestion d'erreur est necessaire ???????????????
          o.GetFromClipboard: If o.GetText <> "" Then .SelText = o.GetText  'coller
      End If
    End With

sinon ça fait le même effet que "Couper" si le clip est vide
et la gestion d'erreur bye bye!!

perso je préfère de loin cette version avec le clip que les sendkeys

Staple1600 · 27 Mars 2022

Re

=>Patricktoulon
Je parle pas de cela
[Situation]
Staple a 15 ans, les cheveux longs et un PC flambant neuf (sans contrôle parental)
Staple dort peu la nuit et vadrouille sur le net et tombe sur un site qui lui dit ce fichier *.reg va booster ta connexion internet.
Staple qui fait confiance à son frère humain du web double-clique sur le *.reg
Merdre!
En fait, le *.reg fait tout autre chose
(par exemple ajouter un user avec des droits admin)
Staple ne voit pas d'amélioration mais désormais son PC a intégré un réseau de bots
Mais Staple est content parce qu'il a 15 ans et qu'il fait des trucs chelou dans sa chambre pendant que papa/maman dorment après avoir trimmer pour nourrir leur ado de fils "geek".
[/Fin de situation]

Quant à mon vbs de nettoyage, faudrait que je le retrouve dans mon bordel de sauvegardes.
Mais en cherchant bien, on doit trouver l'équivalent (voir plus puissant) sur le net.
D'ailleurs le prochain nettoyage, je le ferais en PowerShell

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
@job75 j'aurais plutot fait ça pour "Coller"

VB:

Dim n%, o As Object n = Menu.ListIndex If n = -1 Then Exit Sub Menu = "" With ctrl .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' dans quelle eventualité cette gestion d'erreur est necessaire ??????????????? o.GetFromClipboard: If o.GetText <> "" Then .SelText = o.GetText 'coller End If End With

sinon ça fait le même effet que "Couper" si le clip est vide
et la gestion d'erreur bye bye!!

perso je préfère de loin cette version avec le clip que les sendkeys

Re-Patrick :
beug sur ton code

patricktoulon · 27 Mars 2022

et bien sur toi c'est peut être combobox1 et non menu saucisse!!!!

Usine à gaz · 27 Mars 2022

Re-Patrick :

patricktoulon · 27 Mars 2022

re
il est impec
et j'ai refait le même avec ma commandbars dans le module standard car je peux m'en resservir sur un autre userform

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
re
il est impec
et j'ai refait le même avec ma commandbars dans le module standard car je peux m'en resservir sur un autre userform

Re Patrick : Génial
C'est utile les fils loufoques : Ce serait bien que le Forum ouvre un fil "loufoques d'Excel" où les défis seraient lancés lol
J'en ai 2 autres sous le coude pour les WE prochains lol ... laissons refroidir nos pauvres méninges (enfin ... les miennes) .. car toi tu sembles inépuisable lol
Tu as superbement travaillé et quelle patience ... je suis admiratif
Bien entendu, je n'oublie pas Gérard et JM qui m'ont, eux aussi, tellement aidé et participé

patricktoulon · 27 Mars 2022

ben a vrai dire le vba c'est de la détente pour moi
après c'est vrai que l'on fait des choses bien inutiles parfois
mais bon c'est rigolo de jouer aux apprentis sorcier

Staple1600 · 27 Mars 2022

Re

Rigolo faut voir
10 pages pour l''équivalent d'un CTRL+V
N messages pour expliquer comment trouver une clé dans la base de registre.

Ce n'est pas de la sorcellerie mais du détournement de tableur
(et pourtant il n'est plus mineur depuis longtemps le tableur)

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

Eric C

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires