Insérer texte dans Textbox

L

Lu K

XLDnaute Occasionnel
Bonjour à toutes et à tous,

Je viens encore vers vous pour un autre problème, c'est tellement bien ici ! On à réponse à tout !

Voilà, dans un Textbox j'écris plusieur ligne à la suite. Mais je doit de temps en temps insérer des éléments dans mon texte, petit exemple :

Texte d'origine:
Ceci est une phrase test
je doit insérer un mot dans ce texte

Texte après insertion via bouton ou autre:
Ceci est une phrase test
je doit insérer un petit mot dans ce texte


Avez vous une solution à mon problème ?

Merci d'avance.
 
Trier par date Trier par votes
L

Lu K

XLDnaute Occasionnel
Re : Insérer texte dans Textbox

Bonjour gilbert_RGI,

Un grand merci pour t'as réponse, mais désolé ce n'est pas ça que je recherche !
Ce code je le connais déja ! Moi je veux à partir d'un texte contenu dans un textbox inserer un autre texte par l'intermédaire d'un bouton ou autre exactement ou ce trouve le curseur dans le texte.

Peut être que ma demande n'est pas compréhensible ?
 
Vote positif 0 Vote négatif
K

kjin

XLDnaute Barbatruc
Re : Insérer texte dans Textbox

Bonsoir,
A tester
Code: 
Dim pos&

Private Sub CommandButton1_Click()
texte = TextBox1
a_inserer = "Toto"
If pos = 0 Then
    TextBox1 = a_inserer
Else
TextBox1 = Mid(texte, 1, pos) & a_inserer & Mid(texte, pos + 1, Len(texte))
End If
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
pos = TextBox1.SelStart
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
klin89

klin89

XLDnaute Accro
Re : Insérer texte dans Textbox

Bonsoir à tous,
Bonsoir Lu K, gilbert_RGI

Pour l'exemple, j'ai repris le fichier de christian.bedere dans le lien ci-dessous et l'ai adapté selon ta demande.

https://www.excel-downloads.com/threads/choix-du-textbox-a-alimenter-par-case-a-cocher.168614/

Placé dans UserForm1 : ce code
VB: 
Dim Ctrl As Control, flag As Boolean

Private Sub CheckBox1_Click()
If flag = True Then Exit Sub
'If CheckBox1 = True Then Ctrl.Text = "Pêche à pied" Else Ctrl.Text = ""
If CheckBox1 = True Then Ctrl.Text = Left(Ctrl.Text, Ctrl.SelStart) & " Pêche à pied " & Mid(Ctrl.Text, Ctrl.SelStart + 1)
If CheckBox2 = True Then flag = True: CheckBox2 = False: flag = False
If CheckBox3 = True Then flag = True: CheckBox3 = False: flag = False
End Sub

Private Sub CheckBox2_Click()
If flag = True Then Exit Sub
'If CheckBox2 = True Then Ctrl.Text = "Voile" Else Ctrl.Text = ""
If CheckBox2 = True Then Ctrl.Text = Left(Ctrl.Text, Ctrl.SelStart) & " Voile " & Mid(Ctrl.Text, Ctrl.SelStart + 1)
If CheckBox1 = True Then flag = True: CheckBox1 = False: flag = False
If CheckBox3 = True Then flag = True: CheckBox3 = False: flag = False
End Sub

Private Sub CheckBox3_Click()
If flag = True Then Exit Sub
'If CheckBox3 = True Then Ctrl.Text = "Piscine" Else Ctrl.Text = ""
If CheckBox3 = True Then Ctrl.Text = Left(Ctrl.Text, Ctrl.SelStart) & " Piscine " & Mid(Ctrl.Text, Ctrl.SelStart + 1)
If CheckBox1 = True Then flag = True: CheckBox1 = False: flag = False
If CheckBox2 = True Then flag = True: CheckBox2 = False: flag = False
End Sub


Private Sub Soir1_Enter()
    Set Ctrl = Soir1
End Sub

Private Sub Matin1_Enter()
    Set Ctrl = Matin1
End Sub

Private Sub Midi1_Enter()
    Set Ctrl = Midi1
End Sub

Private Sub Apres1_Enter()
    Set Ctrl = Apres1
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Est-ce l'effet désiré ?

Salut kjin :)

Klin89
 

Pièces jointes

  • Copie de EssaiProgramme.xls
    25 KB · Affichages: 63
Dernière édition:
Vote positif 0 Vote négatif
klin89

klin89

XLDnaute Accro
Re : Insérer texte dans Textbox

Re à tous,

En remplacement du code précédant :

Dans la Textbox, le mot vient se placer au niveau du curseur ou remplace le texte surligné.

VB: 
Dim Ctrl As Control, flag As Boolean

Private Sub CheckBox1_Click()
If flag = True Then Exit Sub
'If CheckBox1 = True Then Ctrl.Text = "Pêche à pied" Else Ctrl.Text = ""
If CheckBox1 = True Then
  If Ctrl.SelText <> "" Then
    Ctrl.SelText = "Pêche à pied" 'remplace le texte surligné
  Else
    Ctrl.Text = Left(Ctrl.Text, Ctrl.SelStart) & " Pêche à pied " & Mid(Ctrl.Text, Ctrl.SelStart + 1) 'se place au niveau du curseur
  End If
End If
If CheckBox2 = True Then flag = True: CheckBox2 = False: flag = False
If CheckBox3 = True Then flag = True: CheckBox3 = False: flag = False
End Sub

Private Sub CheckBox2_Click()
If flag = True Then Exit Sub
'If CheckBox2 = True Then Ctrl.Text = "Voile" Else Ctrl.Text = ""
If CheckBox2 = True Then
  If Ctrl.SelText <> "" Then
    Ctrl.SelText = "Voile"
  Else
    Ctrl.Text = Left(Ctrl.Text, Ctrl.SelStart) & " Voile " & Mid(Ctrl.Text, Ctrl.SelStart + 1)
  End If
End If
If CheckBox1 = True Then flag = True: CheckBox1 = False: flag = False
If CheckBox3 = True Then flag = True: CheckBox3 = False: flag = False
End Sub

Private Sub CheckBox3_Click()
If flag = True Then Exit Sub
'If CheckBox3 = True Then Ctrl.Text = "Piscine" Else Ctrl.Text = ""
If CheckBox3 = True Then
  If Ctrl.SelText <> "" Then
    Ctrl.SelText = "Piscine"
  Else
    Ctrl.Text = Left(Ctrl.Text, Ctrl.SelStart) & " Piscine " & Mid(Ctrl.Text, Ctrl.SelStart + 1)
  End If
End If
If CheckBox1 = True Then flag = True: CheckBox1 = False: flag = False
If CheckBox2 = True Then flag = True: CheckBox2 = False: flag = False
End Sub

Private Sub Soir1_Enter()
    Set Ctrl = Soir1
End Sub

Private Sub Matin1_Enter()
    Set Ctrl = Matin1
End Sub

Private Sub Midi1_Enter()
    Set Ctrl = Midi1
End Sub

Private Sub Apres1_Enter()
    Set Ctrl = Apres1
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Klin89
 
Vote positif 0 Vote négatif
L

Lu K

XLDnaute Occasionnel
Re : Insérer texte dans Textbox

Bonjour à tous, et MERCI pour toutes ces réponses !!!

La solution à mon problème est là ! Juste un petit souci ! Vos solutions fonction, mais seulement si le textbox à une ligne !!! Comme j'en ai plusieur, si je me met au bout de la ligne 3, il me décale le curseur de 2 lettres !

Avez vous une solution ?

Merci encore pour toutes vos réponse.
 
Vote positif 0 Vote négatif
L

Lu K

XLDnaute Occasionnel
Re : Insérer texte dans Textbox

Re,

En bricolant un peu, j'ai fait ça :
Dim Ctrl As Control
sub inser()
Code: 
macol = Split(Left(Ctrl.Text, Ctrl.SelStart), vbLf)
For Each w In macol
    cpt = cpt + 1
Next w
If cpt = 1 Then cpt = 0 Else cpt = cpt - 1
pos = Textbox.SelStart
texte = Textbox
Textbox= Mid(texte, 1, pos + cpt) & 'Valeur' &  Mid(texte, pos + cpt + 1, Len(texte))

Private Sub textbox1_Enter()
    Set Ctrl = textbox
End Sub

Et le pire, c'est que ça fonctionne !!!!

Merci à tous
 
Vote positif 0 Vote négatif
L

Lu K

XLDnaute Occasionnel
Re : Insérer texte dans Textbox

Bonjour à tous,

Je reviens vers vous pour une petite question qui va bien avec cette topic !

Je souhaiterai faire la même chose mais dans une cellule.

Par le Clic droit dans le texte, enregistrer les valeurs avant et après le curseur, les stocker quelque part et les reprendre plus tard lors de ma validation dans un userform.
Ce que je n'arrive pas, c'est la récuparation des données lors de mon clic. De savoir comment lui dire du prend du début au clic et après du clic à la fin.

Si quelqu'un à une idée !

Merci d'avance.
 
Vote positif 0 Vote négatif

Discussions similaires

Brigitte 45
  • Question
Microsoft 365 Insérer automatiquement un texte défini dans une cellule, avant ou après une série de chiffres.
Réponses
7
Affichages
351
Brigitte 45
Brigitte 45
N
  • Résolu(e)
Microsoft 365 VBA Insertion ligne dans feuille protégée
Réponses
10
Affichages
271
Nathan027
N
F
  • Question
Autres Insérer une ligne à partir de la zone de texte
Réponses
1
Affichages
119
Gégé-45550
Gégé-45550
D
  • Question
Microsoft 365 TEXTBOX
Réponses
7
Affichages
335
dadaze
D
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Gestion automatique des indications de saisie dans les cellules
Réponses
2
Affichages
215
chaelie2015
chaelie2015
M
  • Question
XL 2019 Mise en Forme Conditionnelle d'une plage si une cellule contient un mot défini
Réponses
4
Affichages
175
mapomme
mapomme
P
  • Question
XL 2021 Zone de texte incomplète faisant référence à une cellule
Réponses
2
Affichages
186
gbinforme
G
D
  • Résolu(e)
Microsoft 365 Remplacer un texte dans une formule longue impossible
Réponses
9
Affichages
313
Diane272727
D
Icefedor
  • Résolu(e)
XL 2021 Case à cocher afin d'insérer des lignes dans une autre feuille
Réponses
2
Affichages
438
Icefedor
Icefedor
C
  • Question
Microsoft 365 Tabulation dans une cellule
Réponses
2
Affichages
148
TooFatBoy
TooFatBoy

Membres actuellement en ligne

2 membres et 45 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 248
Messages
2 086 593
Membres
103 248
dernier inscrit
Happycat