Discussion :

[Guidhy]

Bonjour tout le monde,

Je vous expose mon probleme :

J'ai une feuille Excel qui n'a qu'une seule colonne (A). Cette colonne contient une liste de mail. (1 mail par cellule).

Ce que je souhaiterais, c'est une fonction vba qui fasse ceci :

Colonne A

nom1@domaine1.com
nom2@domaine2.fr
nom3@domaine3.net
nom4@domaine4.com
....

Colonne B

domaine1.com
domaine2.fr
domaine3.net
domaine4.com
...

C'est à dire que je veux que dans ma colonne B, il n'y ai que les noms de domaines. Une fonction du type : "Dès que tu trouves un "@", efface tout ce qu'il y a avant..."

J'espere que je me suis bien fait comprendre.
Merci d'avance.

[olaxius]

Bonjour,
Essaies ça pour voir,

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim vPos as integer
 
do 
 vPos = instr(1,activecell.value,"@")
 if vPos >0 then
    activecell.offset(0,1).value = right(activecell.value,len(activecell.value)-(vpos)
 end if
 activecell.offset(1,0).select
loop while activecell.value<>""

[ouskel'n'or]

Oui, ou tu peux également faire

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim Plage As Range, Cell as range
Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Cell In Plage
     Cell.Value = Split(Cell, "@")(1)
Next
End Sub

[random]

Code :

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

=DROITE(B15;NBCAR(B15)-CHERCHE("@";B15;1))

[Guidhy]

Merci beaucoup à tous pour vos propositions et votre rapidité !

Je n'ai essayé que la première solution et elle fonctionne très bien !

Je test les autres de suite avant de fermer la discussion.

Encore une fois merci !

[Guidhy]

La deuxième solution marche aussi à une condition : il faut que chaque cellule ai un "@" à l'interieur. Si pas "@", ca bug. (comme j'avais deux ligne où il y avait juste un nom...)

La dernière solution elle, je n'arrive pas à la faire marcher...

En tout cas merci bcp à tous !

Je ne le diarais jamais assez, ce forum est une mine d'or en terme de connaissances et d'apprentissage !

Merci et bonne journée.

[ouskel'n'or]

Juste pour le fun

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim Plage As Range, Cell as range
Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Cell In Plage
     if instr(Cell, "@") <> 0 then Cell = Split(Cell, "@")(1)
Next
End Sub