Macro sélective Excel

Bonjour All !

J'ai une variable qui est à l'intérieur d'un champ et que j'aimerais prélever afin de l'insérer dans une autre cellule.

Exemple cellule AZ1:
"Jean Terremonchat (Jean.Terremonchat@je-plaisante.com)"

Je souhaite prélever "je-plaisante" dans la cellule AZ1 et l'insérer dans une cellule I1.

Pouvez-vous m'aider?
Est-ce assez clair? N'hésitez pas à me poser des questions.

bonjour,

Code:

---

t = Split(Split("Jean Terremonchat (Jean.Terremonchat@je-plaisante.com)", "@")(1), ".")(0)

---

Bonjour le fil, bonjour le forum,

Split, split, split, hourra !!! (ho pardon)...

Merci rdurupt, je vais tester mais peux-tu me dire comme cela fonctionne, stp?

le méthode split découpe sous forme de tableau un texte en fonction d'un autre en occurrence ("@", puis ".") !

Code:

---

1 2 3 4 5 6

tableau=Split("Jean Terremonchat (Jean.Terremonchat@je-plaisante.com)", "@") 'tableau(0) contient la valeur "Jean Terremonchat (Jean.Terremonchat" 'tableau(1) contient la valeur "je-plaisante.com)" tableau=Split(tableau(1), ".") 'tableau(0) contient la valeur "je-plaisante" 'tableau(1) contient la valeur "com)"

---

dans mon exemple j'imbrique les 2 split!

Ok alors j'ai testé mais Excel me dit qu'il y a une erreur:

=Split(Split("Jean Terremonchat (Jean.Terremonchat@je-plaisante.com)", "@")(1), ".")(0)

Citation:

---

Envoyé par nge21

Ok alors j'ai testé mais Excel me dit qu'il y a une erreur:

=Split(Split("Jean Terremonchat (Jean.Terremonchat@je-plaisante.com)", "@")(1), ".")(0)

---

qui récupère la valeur

Code:

---

t = Split(Split("Jean Terremonchat (Jean.Terremonchat@je-plaisante.com)", "@")(1), ".")(0)

---

Autant pour moi, j'avais collé la ligne (t=Split...) dans la cellule I1. Rien compris du tout moi...

Je me suis mal exprimé, en fait je n'ai pas un début de code ni même un code tout fait. Je suppose qu'il faut que je doive implémenter la ligne dans un code, n'est-ce pas?

Pardonnez ma lenteur de compréhension :S

Edit: d'ici 16h je vous poste la réponse.

Regarde la pièce jointe!
en B1 =Decouper(Decouper(A1;"@";1);".";0)

Code:

---

1 2 3

Function Decouper(T As String, Car As String, Collone As Integer) Decouper = Split(T, Car)(Collone) End Function

---

Merci pour la pièce jointe!

Ca m'a aidé à pigé! Problème résolu, je vais l'automatiser et je reviens vers vous pour poser le code.

A (très) bientôt :D