Discussion :

[BRUNO71]

Bonjour,

Dans un UserForm, j'ai plusieurs zone de texte et je voudrais savoir si on peut effectuer des copier-coller.
Je copie un texte quelconque et j'aimerai effectuer un click droit de la souris pour coller ce texte.
Mais on ne peut pas !!!
Peut être y a t'il un moyen ?
Click droit de la souris ??

Merci de m'aider..

[ouskel'n'or]

Quel est le problème ? Le Copier ou le Coller ? Où prends-tu ton texte ?

[fred65200]

bonsoir,

en appliquant le code suivant et supposant que tu as déjà copier ton texte dans le presse papier,
au double clic tu colleras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyData As DataObject
Set MyData = New DataObject
'initialisation de l'objet avec la valeur du prese papier
MyData.GetFromClipboard
'assignation au textbox
TextBox1.Text = MyData.GetText(1)
'selection du texte
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub

ou dès que tu entres dans le textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub TextBox1_Enter()
Dim MyData As DataObject
Set MyData = New DataObject
MyData.GetFromClipboard
TextBox1.Text = MyData.GetText(1)
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
 
End Sub

salutations

[ouskel'n'or]

Dans mes userforms je n'ai pas de problème pour faire un Maj V ou un Maj Inser, qui évitent le code pour coller du texte dans une textbox
Je pense plutôt que le problème est le "copier" ou alors ce ne sont pas des zones de texte mais des labels

[BRUNO71]

Bonjour,

Merci pour ce code,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyData As DataObject
Set MyData = New DataObject
'initialisation de l'objet avec la valeur du prese papier
MyData.GetFromClipboard
'assignation au textbox
TextBox1.Text = MyData.GetText(1)
'selection du texte
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub

Exactement ce que je voulais, dbl click ....mieux que CRTL + C / V

Parfait.

Cordialement.