Copier-coller dans UserForm

Bonjour a toutes et tous, Forum bonjour

Voila un petit soucis un peu embètant, je n'arrive pas a effectuer avec le click DROIT de la souris un copier-coller dans un UserForm via un TextBox

Voir svp le fichier ci-joint pour plus d'infos

Si quelqu'un svp a une solution ou un petit code pour que cela fonctionne, je suis bien sur preneur

Merci et Bonne après midi a tous

Cdlt Raymond

Bonjour

Solution extraite de mes archives et de la toile

bonsoir Banzai64, Forum

Je te remercie pour le fichier ça fonctionne bien a part sur un de mes fichiers, voila un code

qui peut ètre bien utile.

J'avais pourtant chercher sur le net mais je ne suis pas tomber dessus

Je te souhaite une très bonne soirée et encore merci

PS: garde bien au chaud tes archives

Cordialement Raymond

Bonjour,

J'ai regardé ton fichier et j'aurais besoin de couper copier coller dans chaque Textbox et Combobox.

j'ai modifier ton ficher Banzai64.

j'ai mis 2 textbox et 2 combobox mais si je souhaite utiliser un userform avec 10 textbox.

Et merci pour ton aide.

Jean

En fait ma question :

le code doit être répété pour chaque textbox et combo-box?

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' L'événement MouseDown s'exécute 2 fois sur click droit !!!
Static Click As Integer: Click = Click + 1
  If Not Click Mod 2 = 0 Then Exit Sub

  If Button = 2 Then
    Modifier_Menu_Contextuel
    Application.CommandBars("Cell").ShowPopup
    Restaurer_Menu_Contextuel
  End If

End Sub

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' L'événement MouseDown s'exécute 2 fois sur click droit !!!
Static Click As Integer: Click = Click + 1
  If Not Click Mod 2 = 0 Then Exit Sub

  If Button = 2 Then
    Modifier_Menu_Contextuel
    Application.CommandBars("Cell").ShowPopup
    Restaurer_Menu_Contextuel
  End If

End Sub

Private Sub ComboBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' L'événement MouseDown s'exécute 2 fois sur click droit !!!
Static Click As Integer: Click = Click + 1
  If Not Click Mod 2 = 0 Then Exit Sub

  If Button = 2 Then
    Modifier_Menu_Contextuel
    Application.CommandBars("Cell").ShowPopup
    Restaurer_Menu_Contextuel
  End If

End Sub

Si on pouvait coder un seul bloc pour tous les textbox et combo-box dans l'USF

Cordialement Jean