XL 2013 Copier une partie d'un textbox

maval

XLDnaute Barbatruc
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
Code:
Private Sub CommandButton6_Click()
With TextBox2
     .SelStart = 0
     .SelLength = Len(TextBox2)
     .copy
 End With
End Sub

Merci d'avance pour votre aide
 

maval

XLDnaute Barbatruc
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:
Code:
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
 
Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • maval-selectionner partie textbox-v1.xlsm
    17.2 KB · Affichages: 43

job75

XLDnaute Barbatruc
Re : Copier une partie d'un textbox

Bonjour maval, joss56, mapomme,

Code:
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.
 

Pièces jointes

  • Sélection TextBox(1).xlsm
    27.5 KB · Affichages: 32
Dernière édition:

job75

XLDnaute Barbatruc
Re : Copier une partie d'un textbox

Re,

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

Code:
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+
 

Pièces jointes

  • Sélection TextBox(2).xlsm
    25 KB · Affichages: 41

maval

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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 :

Code:
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

XLDnaute Barbatruc
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
 

maval

XLDnaute Barbatruc
Re : Copier une partie d'un textbox

Re,
sa fait exactement pareil??


Voici le résultat
A+
 

Pièces jointes

  • copier-une-partie-dun-textbox-selection-textbox-1-.xlsm
    22.6 KB · Affichages: 29
  • copier-une-partie-dun-textbox-selection-textbox-1-.xlsm
    22.6 KB · Affichages: 24
Dernière édition:

job75

XLDnaute Barbatruc
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 :rolleyes:

Mais on peut combiner les deux :

Code:
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+
 

Pièces jointes

  • copier-une-partie-dun-textbox-selection-textbox(1).xlsm
    28.2 KB · Affichages: 30

maval

XLDnaute Barbatruc
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?
 

Pièces jointes

  • copier-une-partie-dun-textbox-selection-textbox-1-.xlsm
    22.6 KB · Affichages: 26
  • copier-une-partie-dun-textbox-selection-textbox-1-.xlsm
    22.6 KB · Affichages: 28

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 796
Membres
101 817
dernier inscrit
carvajal