macro de remplacement excel

macro de remplacement excel - VB/VBA/VBS - Programmation

Marsh Posté le 02-08-2006 à 11:06:48    

Bonjour à tous,
j'ai besoin d'un avis d'expert. Je travail sur une base de donnée excel qui contient entre autre des noms, des prenoms et des emails, le probleme ce que le createur de la base par soucis de gagner du temps surement à parfois remplit la case email ainsi: nom.prenom@edf.fr ou nprenom@edf.fr ou np@edf.fr. J'aimerai avoir un macro qui me remplace nom.prenom par le nom de la case nom.le prenom de la case prenom et de meme pour nprenom etc...
Je vous remercie d'avance

Reply

Marsh Posté le 02-08-2006 à 11:06:48   

Reply

Marsh Posté le 02-08-2006 à 11:21:42    

Pas besoin d'être expert tu sais  :o  
une concaténation de texte marche amplement :
tu peux faire comme cela :
avec colonne 1 nom, colonne 2 prénom
cells(i,3).value = cells(i,1).value & "." & cells(i,2).value & "@edf.fr"
par exemple
même topo pour les autres formules =)

Reply

Marsh Posté le 02-08-2006 à 11:27:54    

j'essayes ca tout de suite  
je te tiens au courant
merci beaucoup  :bounce:

Reply

Marsh Posté le 02-08-2006 à 11:55:36    

Desolé d'etre aussi nul,
mais j'ai une question ce que tu m'as donné c'est un macro?
Je voudrais aussi affiner ma question, d'apres ta solution la deuxieme partie de l'adresse reste fixe (@ edf.fr) mais @edf.fr c'etait un exemple, dans ma base de donnée les adresses sont tout le temps différentes donc en fait il faudrait remplacer <b>nom.prenom</b> par nom de la colonne 1, prenom de colonne 2, et gardé fixe @xxxxx.fr
merci

Message cité 1 fois
Message édité par morgo le 02-08-2006 à 11:59:03
Reply

Marsh Posté le 02-08-2006 à 11:58:25    

morgo a écrit :

Desolé d'etre aussi nul,
mais j'ai une question ce que tu m'as donné c'est un macro?


oui effectivement

Citation :


Je voudrais aussi affiner ma question, d'apres ta solution la deuxieme partie de l'adresse reste fixe (@ edf.fr) mais @edf.fr c'etait un exemple, dans ma base de donnée les adresses sont tout le temps différentes.


à ce moment là tu ajoutes la colonne 3 pour le nom de domaine, et tu sors l'adresse mail en colonne 4...

Reply

Marsh Posté le 02-08-2006 à 12:00:09    

merci
je vais me debrouiller avec tout ca.

Reply

Marsh Posté le 03-08-2006 à 00:06:48    

Bonsoir,
 
une formule comme =B1&"."&A1&STXT(C1;CHERCHE("@";C1);500) fera l'affaire
 
cordialement

Reply

Marsh Posté le 03-08-2006 à 03:02:56    

ça devrait fonctionner si le texte après @ ne dépasse pas 500 caractères.
Si tu n'as pas d'adresse du genre :
nomprenom@jeracontemaviedansmonnomdedomaineetjesuistropcontentdapprendrelesmacrossousexcelquecesttroppuissant.com ça devrait aller :)

Reply

Marsh Posté le 03-08-2006 à 03:05:38    

donc en gros :
 
Si
en A1 tu as le nom (exemple : martin)
en B1 tu as le prénom (exemple : georges)
en C1 tu as pn@edf.fr
en D1 tu vas entrer la formule de odvj dans la zone de formule et comme par magie, tu verras apparaître georges.martin@edf.fr
 
Ce qui est bien c'est que, quelque soit la forme de l'e-mail, ce qui est avant le @ ne compte pas.
C'est à dire que la formule de odvj fonctionne pour les pn@..., les prenom.nom@.... et le pnom@...


Message édité par 007seb le 03-08-2006 à 03:07:05
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed