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

[Usine à gaz]

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

 

[Usine à gaz]

fichier qui fonctionne ..... presque

 

[job75]

Mais faudrait que ce soit dans le contexte de mon fichier.

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

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]

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]

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]

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

 

[job75]

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

Bonne nuit.

 

[Usine à gaz]

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

 

[job75]

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]

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

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

 

[Usine à gaz]

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]

Bonjour le fil, Lionel, patricktoulon, job75

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

 

[patricktoulon]

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]

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]

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]

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