Intégration d' un menu contextuel Windows Copier/Coller dans un TextBox ou autre

[Claude RAMONDOU]

Bonjour à vous tous,

Je cherche à créer un menu contextuel Windows Copier/Coller pour mon application.

Ce menu susnommé aura pour fonction de saisir une donnée quelconque (Texte, Date etc......)

puis de la coller dans un autre TextBox ou ComboBox ou encore Listview en effectuant un clique

droit avec la souris.

J'ais télécharger un exemple sur http://www.andypope.info/vba/uf_contextualmenu.htm

Je l'ais testé, le menu contextuel apparaît bien en effectuant un clique droit avec la souris mais

en cliquant sur Coller, cela colle aucune donnée dans le TextBox2 copier depuis le TexBox1 et

quant j' effectue le coller dans une cellule Excel copier depuis le TexBox1, cela m' affiche deux

carrés avec un point d' exclamation dedans.

J' ais beau survoler le code, mais je comprend pas le problème.

Si quelqu'un pouvait m'expliqué se problème il pourrait me permettre d' avancé dans mon

projet.

En vous remerciant par avance.

 

[Staple1600]

Bonjour

Quel est ta version d'Excel?
(Chez moi, Excel 2013, même phénomène que ce tu décris)

 

[Claude RAMONDOU]

Bonjour Staple1600,

Ma version est Excel 2019 (Microsoft office 365)

 

[Staple1600]

Re

Si tu testes ce petit bout de code , il se passe quoi chez toi?
(Dans un classeur vierge, insères un Userform sur lequel tu placeras deux TextBox et un CommandButton)
Puis colles dans le code de l'userform, le code ci-dessous et coche la référence Microsoft Forms 2.0 Object Library dans VBE.

Dim dObj As DataObject
 
Private Sub CommandButton1_Click()
With TextBox1: .SelStart = 0: .SelLength = TextBox1.TextLength: .Copy: .Value = vbNullString: End With
dObj.GetFromClipboard: TextBox2.Text = dObj.GetText(1)
End Sub
 
Private Sub UserForm_Initialize()
Set dObj = New DataObject
Me.Width = 215: Me.Height = 100: CommandButton1.Top = 45: CommandButton1.Width = 75
With TextBox1: .Top = 2: .Left = 2: .Width = 200: .Height = 15: End With
With TextBox2: .Top = 25: .Left = 2: .Width = 200: .Height = 15: End With
TextBox1.Text = "Bonjour, " & Application.UserName & ", on se copie vers le TextBox2?"
End Sub

Le contenu du TextBox1 est bien copié dans le TextBox2 ?
(sur mon PC, test OK, W10-64bits +Excel 2013)

 

[eriiic]

Bonjour à tous,

Pour info fonctionne correctement W7 Excel 2010.

A-priori, il y aurait un bug sur MS Form 2.0 dans W8 et W10 :
https://wellsr.com/vba/2015/tutorials/vba-copy-to-clipboard-paste-clear/
eric

 

[Staple1600]

Bonjour eriiiic

Merci pour le lien
(Donc soit mettre de l'API dans le bousin,
soit faire un downgrade vers Excel 2010,
soit se contenter d'un simple CTRL/C et CTRL/V )

 

[eriiic]

Oui, ça marche bien aussi Ctrl+C, Ctrl+V ;-)

 

[Claude RAMONDOU]

Re

Si tu testes ce petit bout de code , il se passe quoi chez toi?
(Dans un classeur vierge, insères un Userform sur lequel tu placeras deux TextBox et un CommandButton)
Puis colles dans le code de l'userform, le code ci-dessous et coche la référence Microsoft Forms 2.0 Object Library dans VBE.

Dim dObj As DataObject

Private Sub CommandButton1_Click()
With TextBox1: .SelStart = 0: .SelLength = TextBox1.TextLength: .Copy: .Value = vbNullString: End With
dObj.GetFromClipboard: TextBox2.Text = dObj.GetText(1)
End Sub

Private Sub UserForm_Initialize()
Set dObj = New DataObject
Me.Width = 215: Me.Height = 100: CommandButton1.Top = 45: CommandButton1.Width = 75
With TextBox1: .Top = 2: .Left = 2: .Width = 200: .Height = 15: End With
With TextBox2: .Top = 25: .Left = 2: .Width = 200: .Height = 15: End With
TextBox1.Text = "Bonjour, " & Application.UserName & ", on se copie vers le TextBox2?"
End Sub

Le contenu du TextBox1 est bien copié dans le TextBox2 ?
(sur mon PC, test OK, W10-64bits +Excel 2013)

Bonjour Staple1600,

J' ais testé ton bout de code.

Le collage parfait, sauf que sa coupe et colle

de TextBox1 à TextBox2 au lieu de copier et coller.

Mais je vais chercher encore, voir si je peut le modifier.

Merci beaucoup pour t'on aide.

A charger de revanche,

Claude.