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]

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

 

[patricktoulon]

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

 

[Usine à gaz]

Re JM :

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]

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]

RE

Lionel
Pour faire plaisir à patrick

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]

RE

Lionel
Pour faire plaisir à patrick

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]

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]

re

 

[Usine à gaz]

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

 

[Usine à gaz]

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

 

[Staple1600]

Re

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

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]

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]

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]

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]

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