XL 2013 Copier une partie d'un textbox

[maval]

Bonjour

Voila je ne parviens pas à copier une partie du contenu d'une TextBoxs.

ceci et dans ma textbox
"Jean-Paul Belmondo, Mia Farrow, Laura Antonelli, Daniel Ivernel, Daniel Lecourtois"
et j'aimerai copier qu'un nom a la fois en le sélectionnant et à l'aide d'un bouton "Copier"?

Mon code pour copier tous le contenue de la textbox

Private Sub CommandButton6_Click()
With TextBox2
     .SelStart = 0
     .SelLength = Len(TextBox2)
     .copy
 End With
End Sub

Merci d'avance pour votre aide

 

[job75]

Re : Copier une partie d'un textbox

Bonsoir maval,

Pas vraiment compris ce que vous voulez faire.

Classiquement touches Ctrl+C pour copier une sélection, puis touches Ctrl+V pour coller...

A+

 

[maval]

Re : Copier une partie d'un textbox

Bonjour Job

En faite ma démarche et que je sélectionne manuellement une partie de la valeur du textbox ex:"Laura Antonelli" et à l'aide de mon bouton je copie sans faire touches Ctrl+C .
Car avec mon code actuel qui est:

Private Sub CommandButton6_Click()
With TextBox2
     .SelStart = 0
     .SelLength = Len(TextBox2)
     .copy
 End With
End Sub

Je copie toute la valeur du textbox alors que moi je voudrais copier que se que je sélectionne?

ceci et dans ma textbox
"Jean-Paul Belmondo, Mia Farrow, Laura Antonelli, Daniel Ivernel, Daniel Lecourtois"

Bon WE et merci de votre aide

 

[joss56]

Re : Copier une partie d'un textbox

Bonjour à toutes et tous,

Un essai en pièce jointe...
Bonne journée,

Jocelyn

 

[mapomme]

Re : Copier une partie d'un textbox

Bonjour maval,

Avez-vous vraiment besoin de copier le texte sélectionné alors qu'on peut utiliser le texte sélectionné par ailleurs avec TextBox2.SelText ?

Voir exemple dans fichier joint

 

[job75]

Re : Copier une partie d'un textbox

Bonjour maval, joss56, mapomme,

Dim s, i% 'mémorisation

Private Sub TextBox1_Change()
s = Split(TextBox1, ",")
i = 0
End Sub

Private Sub CommandButton1_Click()
With TextBox1
  .SetFocus
  If .Text = "" Then TextBox2 = "": Exit Sub
  .SelStart = InStr(.Text, Trim(s(i))) - 1
  .SelLength = Len(Trim(s(i)))
End With
TextBox2 = Trim(s(i))
i = i + 1
If i > UBound(s) Then i = 0
End Sub

Private Sub UserForm_Initialize()
TextBox1 = "Jean-Paul Belmondo, Mia Farrow, Laura Antonelli, Daniel Ivernel, Daniel Lecourtois"
End Sub

Fichier joint.

Bonne journée.

 

[job75]

Re : Copier une partie d'un textbox

Re,

On peut aussi copier la sélection manuelle dans le presse-papier :

Private Sub CommandButton1_Click()
'activer la reference Microsoft Forms 2.0 Object Library
Dim o As New DataObject
o.SetText TextBox1.SelText
o.PutInClipboard 'dans le presse-papiers
TextBox2 = o.GetText
End Sub

Mais ce n'est pas d'un grand intérêt...

Fichier (2).

A+

 

[maval]

Re : Copier une partie d'un textbox

Bonjour

Premièrement je voudrai m'excusé de ne pas avoir répondu avant problème Internet.
Après je suis désolé j'ai du mal m'exprimer, le faite et que lorsque je sélectionne la partie de la textbox à l'aide de mon bouton j'aimerai la copier dans le presse papier pour pouvoir la recopier sur n'importe quel support "Internet, Excel ect.."

Veuillez m'excuser et je vous souhaite un bon dimanche

 

[job75]

Re : Copier une partie d'un textbox

Bonjour maval,

j'aimerai la copier dans le presse papier pour pouvoir la recopier sur n'importe quel support "Internet, Excel ect.."

On peut aussi copier la sélection manuelle dans le presse-papier :

Private Sub CommandButton1_Click()
'activer la reference Microsoft Forms 2.0 Object Library
Dim o As New DataObject
o.SetText TextBox1.SelText
o.PutInClipboard 'dans le presse-papiers
TextBox2 = o.GetText
End Sub

Bonne journée.

 

[maval]

Re : Copier une partie d'un textbox

Bonjour Job

j'avais bien vue votre code mais je ne comprend pas! j'ai bien activer la référence Microsoft Forms 2.0 Object Library, et quand je sélectionne un nom dans la textbox et que je fait click droit avec ma souris sur exemple: ma feuille excel il me vient ceci "��" à la place du nom

Merci et bonne journée

 

[job75]

Re : Copier une partie d'un textbox

Re,

Pour utiliser le clic droit fermez l'UserForm.

A+

 

[maval]

Re : Copier une partie d'un textbox

Re,
sa fait exactement pareil??


Voici le résultat
A+

 

[job75]

Re : Copier une partie d'un textbox

Re,

Allons allons maval, votre fichier utilise le code du post #6.

Pour copier dans le presse-papiers c'est celui du post #7

Mais on peut combiner les deux :

Dim s, i% 'mémorisation

Private Sub TextBox1_Change()
s = Split(TextBox1, ",")
i = 0
End Sub

Private Sub CommandButton1_Click()
'activer la reference Microsoft Forms 2.0 Object Library
Dim o As New DataObject
With TextBox1
  .SetFocus
  .SelStart = InStr(.Text, Trim(s(i))) - 1
  .SelLength = Len(Trim(s(i)))
  o.SetText .SelText
End With
o.PutInClipboard 'dans le presse-papiers
TextBox2 = o.GetText
i = i + 1
If i > UBound(s) Then i = 0
End Sub

Private Sub UserForm_Initialize()
TextBox1 = "Jean-Paul Belmondo, Mia Farrow, Laura Antonelli, Daniel Ivernel, Daniel Lecourtois"
End Sub

Fichier joint.

Nota : l'USF s'ouvre en non modal pour qu'on puisse travailler sur la feuille.

A+

 

[maval]

Re : Copier une partie d'un textbox

Re,

Alors je comprend pas parce que chez moi j'ai toujours le même résultat?

Toujours des ��

Voyer ma feuille?

 

[job75]

Re : Copier une partie d'un textbox

Re,

C'est dimanche, vous avez fait la grasse matinée sans doute.

Si vous n'utilisez pas les codes qu'on vous donne il n'y a plus qu'à tirer l'échelle.

A+