Copier-coller dans un UserForm

Version imprimable

06/10/2007, 18h57
BRUNO71

Copier-coller dans un UserForm

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..
06/10/2007, 19h39
ouskel'n'or

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

Au double clic ou en entrant dans ke textbox

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:

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:

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

06/10/2007, 20h23
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 ;)

Merci Fred 65200

Bonjour,

Merci pour ce code,

Code:

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.