fonction split

herve62

XLDnaute Barbatruc

• 10 Mai 2012

• #2

Re : fonction split

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Mai 2012

• #3

Re : fonction split

Bonjour,

regarde peut être ceci, à adapter :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 10 Mai 2012

• #4

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

 

Vote positif 0 Vote négatif

C

ccharvet1

Guest

• 10 Mai 2012

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Mai 2012

• #6

Re : fonction split

Re,

modifie comme suit :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

C

ccharvet1

Guest

• 10 Mai 2012

• #7

Resolu : fonction split

re, Pierrot93 et herve62,

Merci, pour vos réponses tout fonctionne

 

Vote positif 0 Vote négatif