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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :p

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
1648281398989.png

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

  • inputBox_ModifCelluleP_OK2.xlsm
    46.6 KB · Affichages: 7
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 =...

patricktoulon

XLDnaute Barbatruc
re
je vois pas trop ce que tu a changer a mon code ?
tu n'a aménager que celui du userform
ça c'est ton affaire
je t'ai fait un générique et comme je l'ai dit précédemment "réutilisable à souhait"
donc à toi de l'adapter à ta sauce

j'aurais besoins de vous pour finir de mettre au point le model avec la combobox que j'ai adapté en menu sur cursor
juste un petit problème d'affichage
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
re
je vois pas trop ce que tu a changer a mon code ?
tu n'a aménager que celui du userform
ça c'est ton affaire
je t'ai fait un générique et comme je l'ai dit précédemment "réutilisable à souhait"
donc à toi de l'adapter à ta sauce

j'aurais besoins de vous pour finir de mettre au point le model avec la combobox que j'ai adapté en menu sur cursor
juste un petit problème d'affichage
Re-Patrick : si je peux aider, je suis à ta dispo :)
 

patricktoulon

XLDnaute Barbatruc
re
c' est un problème que @Dudu2 avait déjà évoqué me semble t-il
voici le model combobox sans classe et celui avec classe
quand on clique droite sur un textbox et que l'on clique droite sur un autre la combo est bien déplacé mais la partie qui se déroule reste au même endroit et ce phénomène se produit sur les deux
obligé de cliquer gauche sur le 2d et re cliquer droite
 

Pièces jointes

  • model avec combo sans classe.xlsm
    14.7 KB · Affichages: 2
  • menu combo avec classe.xlsm
    21.2 KB · Affichages: 1

Statistiques des forums

Discussions
312 111
Messages
2 085 407
Membres
102 884
dernier inscrit
Macarena