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