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

job75 · 26 Mars 2022

Usine à gaz à dit:
Mais faudrait que ce soit dans le contexte de mon fichier.

Alors vois le fichier joint et le code de l'UserForm :

VB:

Const petit = 450 'petite largeur de l'USF, à adapter
Const grand = 552 'grande largeur de l'USF, à adapter

Private Sub OkButton_Click()
'Me.Width = petit 'inutile
End Sub

Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then ComboBox1.DropDown: Me.Width = grand
End Sub

Private Sub ComboBox1_Change()
Dim n%
n = ComboBox1.ListIndex
If n = -1 Then Exit Sub
ComboBox1 = ""
TextBox1.SetFocus
CreateObject("WScript.Shell").SendKeys IIf(n = 0, "^x", IIf(n = 1, "^c", "^v")) 'envoi les touches
End Sub

Private Sub ComboBox1_DropButtonClick()  'quand la liste se déroule ou se ferme
Me.Width = petit
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = [{"Couper","Ctrl+X";"Copier","Ctrl+C";"Coller","Ctrl+V"}]
ComboBox1.Top = TextBox1.Top - ComboBox1.Height
With Label1
    .BackColor = Me.BackColor
    .Top = 0
    .Height = ComboBox1.Top + ComboBox1.Height 'masque la partie visible de la zone de restitution
    .Left = ComboBox1.Left
    .Width = ComboBox1.Width
End With
Me.Width = petit
End Sub

Usine à gaz · 26 Mars 2022

Bonsoir Gérard
Nom de d'là quelle perspicacité ! Merci Gérard !
En voilà une solution qu'elle est bonne
ça fonctionne = question loufoque du jour résolue pour cette version.
Wahouuu : vous êtes supers extra voilà 2 versions exploitables.

Je ne dis pas mon dernier mot .... je trouverai l'impossible lol
D'ailleurs, ce serait sympa de créer une rubrique "questions loufoques"

Usine à gaz · 26 Mars 2022

Re-Gérard,
Je l'ai mis en double clic dans la feuille "Test"
Juste une petite modification :

Il faudrait que le TextBox1 prenne la valeur de la cellule cliquée et renvoie la valeur modifiée à la cellule au clic sur OK
Je vais tenter de le faire ...
lionel

Usine à gaz · 26 Mars 2022

Re-Gérard,
Je pense avoir trouvé et c'est nickel
Bonne nuit

job75 · 26 Mars 2022

Il faut être clair Lionel, c'est donc mon post #61 qui est la solution de ce fil.

Bonne nuit.

Usine à gaz · 27 Mars 2022

Tu a raison Gérard, c'est ta solution qui est complète.
Bonne nuit aussi et un grand merci encore une fois

job75 · 27 Mars 2022

Bonjour Lionel, le forum,

Au post #61 j'ai ajouté la macro ComboBox1_DropButtonClick et un peu simplifié le code.

Maintenant quand on clique n'importe où l'UserForme prend sa petite largeur.

Utilise le fichier modifié.

A+

Usine à gaz · 27 Mars 2022

Bonjour Gérard, le Forum,
Bon dimanche à toutes et à tous

Merci Gérard, c'est nickel de chez nickel

Usine à gaz · 27 Mars 2022

Re-Gérard,

J'ai une p'tite' question.
Je voudrais dans le vba afficher la fenêtre Propriétés de inPROUTbox.
Je n'y arrive pas
Tu sais comment je peux faire ?

Staple1600 · 27 Mars 2022

Bonjour le fil, Lionel, patricktoulon, job75

Normalement, dans VBE, appuie sur F4
(cela affiche la fenêtre Propriétés)

patricktoulon · 27 Mars 2022

re
dans le même genre mais ressemble plus a un menucontextuel et s'auto place
Attention !!!!!!!!!
chez moi 2013 32 et 2016 sur W7
le wscript.shell.sendkeys déactive quand même la touche num aléatoirement
(c'est d'ailleurs pour celà que je ne l'utilise plus non plus )

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Bonjour le fil, Lionel, patricktoulon, job75

Normalement, dans VBE, appuie sur F4
(cela affiche la fenêtre Propriétés)

Bjr JM : effectivement F4 ou affichage menu vba affiche bien mais bizarrement pour cet UserForm = aucun affichage ... c'est très curieux

job75 · 27 Mars 2022

Staple1600 à dit:
Normalement, dans VBE, appuie sur F4
(cela affiche la fenêtre Propriétés)

Oui et sinon clic droit sur la partie noire de l'USF => Propriétés

Usine à gaz · 27 Mars 2022

patricktoulon à dit:
re
dans le même genre mais ressemble plus a un menucontextuel et s'auto place
Attention !!!!!!!!!
chez moi 2013 32 et 2016 sur W7
le wscript.shell.sendkeys déactive quand même la touche num aléatoirement
(c'est d'ailleurs pour celà que je ne l'utilise plus non plus )

Regarde la pièce jointe 1134953

Bonjour Patrick : Merci c'est nickel ... lol je garde le second casse méninges pour le WE prochain

Usine à gaz · 27 Mars 2022

job75 à dit:
Oui et sinon clic droit sur la partie noire de l'USF => Propriétés

Re :
- F4,affichage menu vba,
- affichage menu vba,
- partie noire de l'USF => Propriétés
Rien à faire = aucun affichage
C'est la 1ère fois que je rencontre ce souci.

Et j'ai tenté pour d'autres UserForm = Pareil
Il a du se passer un truc mais je ne vois pas koi ....

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

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires