Menu copier coller de Windows dans une textbox

[zephir94]

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 :

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é

 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]

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]

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é

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]

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]

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 !