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

patricktoulon · 28 Mars 2022

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 · 28 Mars 2022

patricktoulon à dit:
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 · 28 Mars 2022

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

Usine à gaz · 28 Mars 2022

Désolé Patrick : je ne vois pas command ça fonctionne

patricktoulon · 28 Mars 2022

re
ben tu va dans vbe tu lance le userform
et tu fait l’expérience que je viens de citer
puré ne me dis pas qu'il faut te mettre un bouton pour lancer le userform

Usine à gaz · 28 Mars 2022

patricktoulon à dit:
re
ben tu va dans vbe tu lance le userform
et tu fait l’expérience que je viens de citer
puré ne me dis pas qu'il faut te mettre un bouton pour lancer le userform

lol

Usine à gaz · 28 Mars 2022

Est-ce ça que tu veux voir ?

patricktoulon · 28 Mars 2022

re
non tu n'a pas compris
click droite sur camionnette et ensuite click droite sur turlututu tu va voir que le déroulé n'est pas déplacé

Usine à gaz · 28 Mars 2022

re-Patrick,
OUi exact, ça ne bouge pas et sur les 2 versions

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

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires