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

Usine à gaz · 26 Mars 2022

Re-Patrick
Alors bon casse méninges du WE lol ?
mais impossible à faire donc ?

patricktoulon · 26 Mars 2022

ben je n'ai pas pigé ce que tu veux faire donc
pour te répondre c'est difficile

Usine à gaz · 26 Mars 2022

Re JM :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("c6:d15")) Is Nothing Then
Application.EnableEvents = False
inPROUTbox.Show 0
Dim nom$
nom = inPROUTbox.value("saisir ,Modifier ou Annuler", "Ecrire, modifier et OK ou Annuler", CStr(Target.value))
If nom <> "" Then Target = nom
[a1].Select
Application.EnableEvents = True
Exit Sub
End If
End Sub

Je n'arrive pas à afficher les propriétés et je ne trouve pas le nom de l'UserForm = résultat :

sniffffff

Usine à gaz · 26 Mars 2022

Re-Patrick ,

Je voudrais au clic droit dans le TexbBox1 (dans la ligne ou est écrit "c'est tout bon ?") pouvoir faire :
Couper/copier/coller

Staple1600 · 26 Mars 2022

RE

Lionel
Pour faire plaisir à patrick

VB:

Sub test()
UserForm1.Show
End Sub

te permettra de tester son fichier exemple du message#19
(Et pour éviter l'erreur 438, faire un copier/coller du code du message#21 en lieu et place du code présent dans le fichier du#19)
C'est ce que j'ai fait.
Et pas d'erreur mais maintenant il faut que j'aille aux urgences car j'ai les oreilles qui saignent
(j'ai trouvé du son mais pas le bon )

Usine à gaz · 26 Mars 2022

Staple1600 à dit:
RE

Lionel
Pour faire plaisir à patrick

VB:

Sub test() UserForm1.Show End Sub

te permettra de tester son fichier exemple du message#19
(Et pour éviter l'erreur 438, faire un copier/coller du code du message#21 en lieu et place du code présent dans le fichier du#19)
C'est ce que j'ai fait.
Et pas d'erreur mais maintenant il faut que j'aille aux urgences car j'ai les oreilles qui saignent
(j'ai trouvé du son mais pas le bon )

Re-JM : je l'avais fait mais j'ai rien compris à ce qu'il faut faire quand l'UF est affiché lol
Une chose est sûre, ça ne répond pas à l'objet du fil

Staple1600 · 26 Mars 2022

Re

Bah, fais un clic-droit dans le textbox, tu verras apparaitre un "faux menu" contextuel pour faire un copier/coller dans les contrôles de l'userform.

patricktoulon · 26 Mars 2022

Usine à gaz · 26 Mars 2022

Bon sang Patrick tu es magicien lol
ça semble nickel.
LOL je n'arriverai pas à trouver un truc impossible ?
lionel

Usine à gaz · 26 Mars 2022

lol : J'ai crié "victoire" trop vite
C'est déjà génialissime
Je teste à fond et je reviendrai ensuite

Staple1600 · 26 Mars 2022

Re

Sauf que la solution n'est pas celle à cette question

Lionel¸ gazier en chef à dit:
Est-il possible de couper/copier/coller le texte en tout ou partie "directement" dans le TextBox1

commandbar temporaire+dataobject <> directement

NB: Pour pas fâcher patrick
Du bel ouvrage (à forte teneur de méthane)

Usine à gaz · 26 Mars 2022

Staple1600 à dit:
Re

Sauf que la solution n'est pas celle à cette question

commandbar temporaire+dataobject <> directement

NB: Pour pas fâcher patrick
Du bel ouvrage (à forte teneur de méthane)

Mais si, c'est exactement la réponse à la demande

Staple1600 · 26 Mars 2022

Re

Non car directement veut dire sans artifice
Ta copie d'écran indique bien que tu voulais le menu contextuel du Collage dans le textbox

La solution de patrick répond à cette question
Est-il possible de simuler le menu contextuel (version simplifiée) natif d'Excel du Collage en cliquant droit sur un TextBox dans un userform ?

Ce qui n'a rien à voir avec la question du message#1

Usine à gaz · 26 Mars 2022

Staple1600 à dit:
Re

Non car directement veut dire sans artifice
Ta copie d'écran indique bien que tu voulais le menu contextuel du Collage dans le textbox

La solution de patrick répond à cette question
Est-il possible de simuler le menu contextuel (version simplifiée) natif d'Excel du Collage en cliquant droit sur un TextBox dans un userform ?

Ce qui n'a rien à voir avec la question du message#1

tu chipotes lol

Usine à gaz · 26 Mars 2022

Re-Patrick
Retour de tests :
le couper
prend bien en compte le bout de texte sélectionné : pas exemple "Forum"
Mais si je veux coller avant "bonjour", il colle bien "Forum" mais efface tout le reste
le copier
Ne prend pas en compte la partie sélectionnée et don : ne colle rien
Font color
Mets bien en couleur le texte dans le TextBox1 mais ne colore pas le texte de la cellule cliquée
Back color
pareil

Mais c'est génial ton code et ce serait super de chez super si ....
Et si ça pouvait aussi décapsuler ma bouteille de bière alors là .....

Merci Patrick

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

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires