insèrer un text dans un autre

Voila mon probleme :
J'aimerai que, par exemple, text1.text soit insèré entre le 3e et 4e caractère de text2.text Quelqu'un pourrait il m'aider ???
Merci d'avance...

Ps: si mes explication ne sont pas claire faites le savoir Svp...

place un text1.text ' text a inserer entre 3 ém et 4eme caractere de Text2.text
Text2.text
Text3.text ' resultat
un bouton command1

Private Sub Command1_Click()
For i = 1 To Len(Text2.Text)
Text3.Text = Text3.Text & Mid(Text2.Text, i, 1)
If i = 3 Then Text3.Text = Text3.Text & Text1.Text
Next i
End Sub




-------------------------------
Réponse au message :
-------------------------------

> Voila mon probleme :
> J'aimerai que, par exemple, text1.text soit insèré entre le 3e et 4e caractère de text2.text Quelqu'un pourrait il m'aider ???
> Merci d'avance...
>
> Ps: si mes explication ne sont pas claire faites le savoir Svp...

moi je vois plus simple :b

text3 = mid$(text3,1,3) & text2 & mid$(text3,4)

@+, DHKold
-------------------------------
Réponse au message :
-------------------------------

> place un text1.text ' text a inserer entre 3 ém et 4eme caractere de Text2.text
> Text2.text
> Text3.text ' resultat
> un bouton command1
>
> Private Sub Command1_Click()
> For i = 1 To Len(Text2.Text)
> Text3.Text = Text3.Text & Mid(Text2.Text, i, 1)
> If i = 3 Then Text3.Text = Text3.Text & Text1.Text
> Next i
> End Sub
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Voila mon probleme :
> > J'aimerai que, par exemple, text1.text soit insèré entre le 3e et 4e caractère de text2.text Quelqu'un pourrait il m'aider ???
> > Merci d'avance...
> >
> > Ps: si mes explication ne sont pas claire faites le savoir Svp...
>

Merci pour ton code mais j'ai un problème c'est que entre la 3eme et la 4eme ligne est une "viriable" et Vb le prend pas:
text3 = mid$(text3,1,Z) & text2 & mid$(text3,Z1)
Z1 = Z + 1
As tu une solucion???
Merci d'avance...

-------------------------------
Réponse au message :
-------------------------------

> moi je vois plus simple :b
>
> text3 = mid$(text3,1,3) & text2 & mid$(text3,4)
>
> @+, DHKold
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > place un text1.text ' text a inserer entre 3 ém et 4eme caractere de Text2.text
> > Text2.text
> > Text3.text ' resultat
> > un bouton command1
> >
> > Private Sub Command1_Click()
> > For i = 1 To Len(Text2.Text)
> > Text3.Text = Text3.Text & Mid(Text2.Text, i, 1)
> > If i = 3 Then Text3.Text = Text3.Text & Text1.Text
> > Next i
> > End Sub
> >
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Voila mon probleme :
> > > J'aimerai que, par exemple, text1.text soit insèré entre le 3e et 4e caractère de text2.text Quelqu'un pourrait il m'aider ???
> > > Merci d'avance...
> > >
> > > Ps: si mes explication ne sont pas claire faites le savoir Svp...
> >
>

Je ne comprends pas ce qui ne va pas, cette variable elle contient quoi, et c'est quel type de variable, si tu veux mettre une STRING en INTEGER, il suffit de faire Val(Z) mais je crois pas que c'est ca que tu veux...

-------------------------------
Réponse au message :
-------------------------------

> Merci pour ton code mais j'ai un problème c'est que entre la 3eme et la 4eme ligne est une "viriable" et Vb le prend pas:
> text3 = mid$(text3,1,Z) & text2 & mid$(text3,Z1)
> Z1 = Z + 1
> As tu une solucion???
> Merci d'avance...
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > moi je vois plus simple :b
> >
> > text3 = mid$(text3,1,3) & text2 & mid$(text3,4)
> >
> > @+, DHKold
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > place un text1.text ' text a inserer entre 3 ém et 4eme caractere de Text2.text
> > > Text2.text
> > > Text3.text ' resultat
> > > un bouton command1
> > >
> > > Private Sub Command1_Click()
> > > For i = 1 To Len(Text2.Text)
> > > Text3.Text = Text3.Text & Mid(Text2.Text, i, 1)
> > > If i = 3 Then Text3.Text = Text3.Text & Text1.Text
> > > Next i
> > > End Sub
> > >
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Voila mon probleme :
> > > > J'aimerai que, par exemple, text1.text soit insèré entre le 3e et 4e caractère de text2.text Quelqu'un pourrait il m'aider ???
> > > > Merci d'avance...
> > > >
> > > > Ps: si mes explication ne sont pas claire faites le savoir Svp...
> > >
> >
>