fonction split

[ccharvet1]

Bonjour,

Comment récupérer le nom du FAI dans une adresse email situé dans TextBox et le coller dans TextBox2 sachant que l'adresse email change car elle est liée à chaque client ?
exemple :
TextBox = val.c@sfr.fr
TextBox2 sera = à SFR

J'ai fais

Private Sub TextBox_Change()
Dim a As String
a = TextBox.Value
TextBox2 = Split("a", "@",2)

j'ai essayé aussi

TextBox2 = Split(Split(TextBox.Value, "@")(1), ".")(0)

mais ça ne fonctionne pas.

Pouvez-vous m'aider, Merci ?

 

[herve62]

Re : fonction split

Bonjour
essaye ce code ( je l'ai testé ca marche)

Private Sub ComboBox1_AfterUpdate()
Dim fai1() As String
Dim fai2() As String
adr = ComboBox1.Value
fai1 = Split(adr, "@")
fai2 = Split(fai1(1), ".")
fai = fai2(0)
TextBox1.Value = fai
End Sub

On peut peut-être faire plus court, mais comme je dis c'est le résultat qui compte

 

[Pierrot93]

Re : fonction split

Bonjour,

regarde peut être ceci, à adapter :

Dim s As String
s = "val.c@sfr.fr"
MsgBox Split(Split(s, "@")(UBound(Split(s, "@"))), ".")(0)

bonne journée
@+

 

[herve62]

Re : fonction split

Slt Pierrot
Merci , j'ai adapté dans mon exemple ( pour archive grenier !!!!!!)

fai = Split(Split(adr, "@")(UBound(Split(adr, "@"))), ".")(0)
TextBox1.Value = fai

 

[ccharvet1]

Re : fonction split

Bonjour Pierrot93 et herve62,

Pierrot93 et herve62, je vous remercie pour vos infos fort utiles.

Voilà ce que j'ai fait et ça fonctionne

Private Sub TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim s As String
s = TextBox.Value
TextBox2.Value = Split(Split(s, "@")(UBound(Split(s, "@"))), ".")(0)
End Sub

Dernière question: comment forcer le remplissage de la TextBox2 avec la première lettre en majuscule ?

Merci

 

[Pierrot93]

Re : fonction split

Re,

modifie comme suit :

TextBox2.Value = StrConv(Split(Split(s, "@")(UBound(Split(s, "@"))), ".")(0), vbProperCase)

bon après midi
@+

 

[ccharvet1]

Resolu : fonction split

re, Pierrot93 et herve62,

Merci, pour vos réponses tout fonctionne