Discussion :

[nge21]

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.

[Invité]

bonjour,

Code :

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

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

[Thautheme]

Bonjour le fil, bonjour le forum,

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

[nge21]

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

[Invité]

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

Code :

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

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!

[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)

[Invité]

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 :

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

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

[nge21]

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.

[Invité]

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

Code :

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

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

[nge21]

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