Discussion :

[affre]

Bonjour,
je débute en VBA voici mon PB:
Dans une colonne de feuil1, j'ai une série d'adresse mail;je voudrai renvoyer vers une textbox d'un userform la partie de l'adresse mail situé avant l'@ et renvoyer dans une autre textbox la partie de l'adresse mail située aprés l'@.
Merci d'avance de votre aide

[joe.levrai]

Bonjour,

tourne toi vers la fonction Split() pour découper l'adresse mail en deux partie via le séparateur @

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ioi()
Dim UnMail As String
Dim Separateur As String
 
UnMail = "toto@dns.fr"
Separateur = "@"
 
MsgBox Split(UnMail, Separateur)(0)
MsgBox Split(UnMail, Separateur)(1)
End Sub

[affre]

Merci pour ta réponse

quand je rentre ce code ,je renvoie la valeur "toto" et dns.fr dans deux msbox.
Ce que je voudrais c'est renvoyer le contenu d'une cellule dans 2 textbox d'un userform.
J'ai essayé le code ci dessous mais sans succès

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim UnMail As String
Dim Separateur As String
 
UnMail = Cells(Lig, 12).Value
Separateur = "@"
 
TextBox12 = Split(UnMail, Separateur)(0)
textbox5 = Split(UnMail, Separateur)(1)

[patricktoulon]

bonsoir
assure toi que "lig" a bien une valeur et precise la sheet sinon c'est le sheet actif qui est prit en compte

ensuite si ta macro est dans un module standard precise le nom du userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim UnMail As String
 Dim Separateur As String

 UnMail = sheets(X).Cells(Lig, 12).Value
 Separateur = "@"

 userform1.TextBox12 = Split(UnMail, Separateur)(0)
 userform1.textbox5 = Split(UnMail, Separateur)(1)

[affre]

Bonsoir
Merci Patrick ça marche nickel