Suppression de caractères conditionnel

Version imprimable

27/09/2007, 10h29
Guidhy

Suppression de caractères conditionnel

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.

Bonjour,
Essaies ça pour voir,

Code:

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<>""

Oui, ou tu peux également faire

Code:

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

27/09/2007, 11h02
random

Code:

=DROITE(B15;NBCAR(B15)-CHERCHE("@";B15;1))
27/09/2007, 11h08
Guidhy

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

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 ! :yaisse2:
27/09/2007, 11h16
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.

Juste pour le fun

Code:

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

27/09/2007, 11h23
Guidhy

No coment :king:

Bravo bravo 8-)
28/09/2007, 05h26
AlainTech

La solution de random est une formule Excel à taper dans une cellule voisine.
Par exemple, si tes données commencent en A1 et que la colonne B est libre, en B1 tu tapes

Code:

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

et tu tires la formule vers le bas jusqu'à la dernière ligne que tu veux traiter.
28/09/2007, 10h44
Guidhy

Merci de m'avoir éclairé...

J'avais bien compris qu'il s'agissait d'une formule mais je ne la comprennais pas... ainsi, celle ci...

Code:

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

... que je mettais dans ma colonne B vide ne fonctionnait pas... (peut être m'étais-je mal fait comprendre...:?
Mais effectivement, en mettant la colonne A :

Code:

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

Cela fonctionne à merveille ! Et c'est surement plus rapide en plus !

Donc encore merci à random et Alain Tech :king: