Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
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 🙂
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 🙂
 

Pièces jointes

Dernière édition:
Solution
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 =...
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 😡
 
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 😉)
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.
 
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 🙂
 
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)
😉
 
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
 
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 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…