Menu copier coller de Windows dans une textbox

zephir94 · 18 Août 2015

Bonjour à tous,

Je voudrais ajouter la possibilité d'avoir un copier coller dans mes textbox de mon userform avec le bouton droit.
Je suis donc intervenu sur :

Code:

Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = vbKeyRButton Then ActiveControl.Paste
End Sub

Cela permet de coller avec le bouton droit ce qui est dans le presse papier dans ma textbox.
Ce que je voudrais c'est obtenir le menu copier/coller de Windows dans la textbox !

Après recherche j'ai trouvé

Code:

 ShortCutsEnabled = True
If Button = vbKeyRButton Then ShortCutsEnabled = True

ce qui semblerait être du VBA mais je ne suis pas arrivé à l'intégrer dans mon événement.

Ma question est donc est-il possible d'intégrer le menu Windows du click droit dans une textbox ?

Merci par avance pour vos réponses

Simply · 18 Août 2015

Re : Menu copier coller de Windows dans une textbox

Hi

Contextual menu

Notes: Avec ce dossier, je trouve du mal à fermer le programme avec Windows 10 Excel 2013 32 bits
Maintenant, je tente de redémarrer votre PC

Simply · 18 Août 2015

Re : Menu copier coller de Windows dans une textbox

Hi,

Je l'ai modifié le code en ajoutant les lignes suivantes maintenant me pose aucun problème
Le code pour être intégré

Code:

Private Sub UserForm_Terminate()

    Do While m_colContextMenus.Count > 0
        m_colContextMenus.Remove m_colContextMenus.Count
    Loop
    Set m_colContextMenus = Nothing

End Sub

Voici le code correct

Merci

zephir94 · 19 Août 2015

Re : Menu copier coller de Windows dans une textbox

Bonjour Simply,

Je te remercie ça marche au poils !
Demain je vais lire le code pour tâcher de le mettre en français !
heureusement que j'ai téléchargé le classeur exemple car la totalité du code n'est pas sur le site.
J'ai Windows 7 64 et excel 2007, je n'ai pas rencontré de soucis comme tu le décris, par prudence j'ai donc suivi tes indications en remplaçant par end !
Un grand merci pour le tuyau

Ps : -1 à Microsoft de ne pas avoir pensé à intégrer naturellement ce menu qui pourtant existe depuis le premier Windows !

Claude RAMONDOU · 13 Avril 2019

Bonjour à vous tous,

Pour ma part dans cette exemple, il m'affiche deux carré avec un point d' interrogation à l’intérieur quant j'exécute le collage !

Menu copier coller de Windows dans une textbox

zephir94

XLDnaute Impliqué

Simply

XLDnaute Occasionnel

Simply

XLDnaute Occasionnel

zephir94

XLDnaute Impliqué

Pièces jointes

Claude RAMONDOU

XLDnaute Nouveau

Pièces jointes

Discussions similaires