Extraire Texte d'une text box entre 2 charcteres

Bonjour à tous ,

Voici ce que je reçois lorsqu'une personne s'inscrit à la news letter de mon site web :

You have received a lead from:

Mr./Mrs.:Mr#

Title:#

Firstname:Nico#

Lastname:DUPONT#

Mail:ndupont@yahoo.fr#

Street/No.:#

City:Paris#

Country:France#

Telephone:0677889988#

Newsletterconfirmation:YES#

Primary Address Country:France#

Primary Address City:Paris#

Je souhaiterai copier ce texte dans le Texbox d'un Userform (nommé TextBox.Template) et lancer une macro pour remplir automatiquement une fiche client (dans le meme Userform juste à coté).

En gros je voudrais copier à chaque ligne la chaine contenu entre le ":" et le "#" et la copier dans un Textbox correspondant.

Nico dans TextBox.Prénom

DUPONT dans TextBox.Nom

dupont@yahoo.fr dans TextBox.Mail

Etc ...

Merci à l'âme charitable qui pourra me donner la solution (ou au moins une piste)

Bonjour,

à tester,

t = "Firstname:Nico#"
v = Split(t, ":")(1)
r = Split(v, "#")(0)

Merci Isabelle pour ta réponse ,

Si je comprend bien ton code c'est la partie qui sert à délimiter.

Comment je récupère la chaine pour la copier dans le TextBox ?

Une sorte de de V - R ?

Et dans la mesure les infos ne sont jamais les memes comment définir T ? et aller à la ligne ?

Désolé je débute en VBA ...

Merci de ton aide

re,

peux tu joindre ton fichier excel ?

re,

voici un exemple si tout le texte est en cellule A1

Sub test()
t = Split(Range("A1"), Chr(10))
For i = LBound(t) + 1 To UBound(t)
    v = Split(t(i), ":")(1)
    r = Split(v, "#")(0)
    Debug.Print "lorsque i = "; i & ",  r =" & r
Next i
End Sub

Bon grace à ton premier bout de code et en cherchant j'ai bidouillé ca ...

Certainement pas très conventionnel mais avec mes faibles connaissance je sais pas faire mieux.

AU moins ca a le mérite de fonctionner :

Private Sub CommandButton_LeadCreate_Click()
Dim LString As String
Dim LArray() As String

LString = TextBox_LeadCreate

newString = Replace(LString, "#", ":")
LArray = Split(newString, ":")

If LArray(2) = "Mr" Then Genre = "H"
If LArray(2) = "Mrs" Then Genre = "F"
CommandButton_Genre1.Caption = Genre

TextBox_Prenom1 = LArray(6)

TextBox_Nom1 = LArray(8)

TextBox_Mail1 = LArray(10)

TextBox_AdresseLiv1 = LArray(12)

ComboBox_VilleLiv1 = LArray(14)

TextBox_PaysLiv1 = LArray(16)

TextBox_Telephone1 = LArray(18)
END SUB