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

[ericTA]

Salut à tous,
voici ma demande, je cherche un moyen d'insérer du texte (dans un textbox) là ou il y a le curseur.
Je ne trouve pas comment faire. Si quelqu'un à une idée, merci d'avance.
Eric

 

[Staple1600]

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

 

[job75]

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+

 

[ericTA]

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

 

[Dranreb]

Bonsoir.
Essayez :

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

 

[job75]

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 :

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.

 

[job75]

Bonjour à tous,

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

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+

 

[ericTA]

Merci Dranred,
ca marche super bien
Trop top