Accepter le copier coller dans une textbox

bonjour

Voila, j'ai un UserForm dans lequel j'ai 4 TextBox.

Dans chacune de ces TextBox, je doit rentrer une info qui se trouve dans un document. Je souhaiterais pouvoir faire un copier/coller avec la souris de chaque information et faire un clic droit coller dans la TextBox correspondante.. j'ai trouver dans un forum cette instruction

Private Sub TextBox1_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

ensuite j'ai un message d'erreur erreur d'excecution 438 propriete ou methode non gérée par cet objet

merci pour votre aide

Bonjour,

Sur quelle ligne l'erreur ?

ensuite j'ai un message d'erreur erreur...

Si c'est ensuite (après le code présenté) ce n'est donc pas le code présenté qui est incriminé ??

Avec juste ce code dans un Userform ça fonctionne ....

Déposer un classeur avec le code complet du Userform pour voir

A+

Bonjour Phil107, AlgoPlus,

J'utiliserais plutôt selon code ci-dessous.

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 And Application.CutCopyMode = xlCopy Then TextBox1.Paste: Application.CutCopyMode = False
End Sub

Le but étant que si tu est en opération de copie et que tu utilises ensuite l'entrée d'un TextBox. La condition se réalise.

Puis ensuite tu peux passer à une autre copie ou non.