Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
Trier par date Trier par votes

job75

XLDnaute Barbatruc
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+
 
Vote positif 0 Vote négatif

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:
Vote positif 0 Vote négatif

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
Vote positif 0 Vote négatif

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:
Vote positif 0 Vote négatif

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
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Copier une partie d'un textbox

Bonjour maval,

maval à dit:
j'aimerai la copier dans le presse papier pour pouvoir la recopier sur n'importe quel support "Internet, Excel ect.."
Cliquez pour agrandir...



Bonne journée.
 
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif

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:
Vote positif 0 Vote négatif

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

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
Vote positif 0 Vote négatif

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
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
Autres bug sur une procédure avec textbox contenant un code barre
2
Réponses
15
Affichages
1 K
TooFatBoy
R
  • Résolu(e)
XL 2016 Tabulation automatique entre deux textbox dans une feuille de calcul
Réponses
10
Affichages
861
ReneDav14000
R
F
  • Résolu(e)
XL 2019 Besoin d'aide pour reporter une donnée d'un Userform vers un tableau
Réponses
2
Affichages
664
Flnte
F
D
  • Question
XL 2016 Focus d'un textbox
Réponses
4
Affichages
923
danielco
D
P
  • Résolu(e)
Microsoft 365 En fonction d'une condition, copier plusieurs cellules particulières d'un coup
Réponses
4
Affichages
929
PCharlier
P
P
  • Question
XL 2013 copier coller en provenance de combobox, textbox evrs une autre textbox
Réponses
2
Affichages
643
poussain
P
L
  • Question
XL 2016 format numérique textbox VBA
Réponses
5
Affichages
4 K
patricktoulon
T
  • Question
XL 2013 Ajout de textboxes sur plusieurs lignes d'un tableau selon la parité de la textbox
2
Réponses
23
Affichages
2 K
Ananas94
A
Y
  • Question
XL 2016 copier une colonne de données dans tous les fichiers d'un répertoire et les coller les unes à la suite des autres dans une feuille excell
Réponses
4
Affichages
1 K
job75
R
  • Résolu(e)
Autres Copier des feuilles d'un classeur à partir de données identiques
Réponses
2
Affichages
1 K
Renaud22
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…