Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Export Adresse MAIL

kanaramel

XLDnaute Nouveau
Bonjour à tous !

j’espère que tout le monde passe de bonne fête et que la fin d'année s'annonce bien !

Petite question, j'ai exporté de mon logiciel de compta un fichier excel de mes client ou je doit récupérer uniquement les adresses mail de ceux ci .... comment faire svp avec une petite formule magique pour récupérer uniquement les adresses mail parmis le fouilli d'information ?

Merci d'avance !!!!
 

Tibo

XLDnaute Barbatruc
Re : Export Adresse MAIL

Bonjour,

Compte tenu de la structure de tes données, je te propose une solution via un filtre automatique :

Installe le filtre sur les cellules B5:K5

Puis en J5, active le filtre avec le critère contient et indique le caractère @

Il te restera ensuite à sélectionner puis à faire un copier coller

Je te laisse essayer

@+
 

DoubleZero

XLDnaute Barbatruc
Re : Export Adresse MAIL

Re-bonjour, bonjour, Staple1600 ,

En attendant mieux...

Code:
Sub Adresses_mail_récupérer()
Dim c As Range
For Each c In Range("o1:o1000")
If c.Offset(, -5) Like "*@*" Then c = c.Offset(, -5)
Next
End Sub
A bientôt.

Bonjour, Tibo
 
Dernière édition:

libellule85

XLDnaute Accro
Re : Export Adresse MAIL

Bonjour kanaramel, DoubleZero, Staple1600, Tibo, le forum

Tu places ce code dans un module (alt+f11 puis insérer Module) puis tu insères un bouton sur ta feuille auquel tu fais correspondre ce code.
 

Staple1600

XLDnaute Barbatruc
Re : Export Adresse MAIL

Bonsoir


kanaramel:
Il aurait été mieux de mettre des mails fictifs dans ton fichier exemple.

Pour la énième fois ce mois-ci, je recapépéte :
ne jamais poster de fichier exemple avec des données confidentielles.

• Sinon je plussoie au propos de Gillus69 et privilégie aussi la solution de Tibo.

PS: 00, si tu me lis, ton fichier aussi par conséquent aurait besoin de s'expurger
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…