Insertion d'un texte ou il y a le curseur dans un textbox

Staple1600

XLDnaute Barbatruc

• 24 Octobre 2016

• #2

Bonsoir à tous

ericTA
Le textbox est dans un userform ou sur une feuille ?

PS: Tu n'aurais pas un fichier exemple sous le coude, ca nous éviterait de devoir le reconstruire.

EDITION: Bonsoir job75

 

Dernière édition: 24 Octobre 2016

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Octobre 2016

• #3

Bonsoir ericTA, JM,

Curieuse question.

S'il s'agit de faire du Copier-Coller touches Ctrl+C pour copier (n'importe quel texte) puis Ctrl+V pour coller sur le curseur.

S'il s'agit d'insérer une lettre pensez à acheter un clavier.

A+

 

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 24 Octobre 2016

• #4

C'est un textbox dans un Userform qui est une suite de référence que je créer avec des listbox, textbox.text = textbox.text & listboxN.text
en fonction du choix des listbox ça créer un texte de référence. Le but est de pouvoir insérer une référence n'importe où dans le texte ainsi crée, comme dans un traitement de texte. Je me positionne dans mon texte de la listbox et quand je valide une listbox je voudrais insérer le contenu dans mon texte à l'emplacement de mon curseur.
C'est pas facile à expliquer et difficile à poster car c'est tt un ensemble de condition.
Merci d'avance

PS: j'ai déjà un clavier 🙂

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Octobre 2016

• #5

Bonsoir.
Essayez :

VB:

TextBox.Text = Left$(TextBox.Text, TextBox.SelStart) & ListBox.Value & Mid$(TextBox.Text, TextBox.SelStart + TextBox.SelLength + 1)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Octobre 2016

• #6

Re, salut Bernard,

Si vous voulez mettre dans le presse-papiers le texte sélectionné de la ListBox, prévoyez un bouton avec ce code :

Code:

Private Sub CommandButton1_Click()
'activer la reference Microsoft Forms 2.0 Object Library
Dim t$, o As New DataObject
If ListBox1.ListIndex > -1 Then t = ListBox1 Else t = ""
o.SetText t
o.PutInClipboard 'dans le presse-papiers
End Sub

Clic sur le bouton et Ctrl+V pour coller à l'emplacement voulu.

Bonne nuit.

 

Dernière édition: 25 Octobre 2016

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Octobre 2016

• #7

Bonjour à tous,

Un autre exemple dans le fichier joint avec 4 ListBox et sans boutons :

Code:

Private Sub ListBox1_Change()
If ListBox1.ListIndex = -1 Then Exit Sub
ListBox2.ListIndex = -1: ListBox3.ListIndex = -1: ListBox4.ListIndex = -1
Dim o As New DataObject
o.SetText ListBox1
o.PutInClipboard 'dans le presse-papiers
End Sub

A+

 

Pièces jointes

• Presse-papiers(1).xlsm

  27.1 KB · Affichages: 58

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 25 Octobre 2016

• #8

Merci Dranred,
ca marche super bien
Trop top

 

Vote positif 0 Vote négatif