extraire adresses mail

[Claudy]

Bonjour à tous,
une feuille :+ de 12000 lignes , données réparties sur 20 colonnes....

En colonnes V et W des addresses mail, des numerous de telephones des cellules vides....

Y a t'il moyen d'extraire uniquement les addresses mails sur une autre feuille en colonne A ?

Merci d'avance,

Claudy

 

[phlaurent55]

Re : extraire adresses mail

Bonjour compatriote,

voir fichier joint

à+
Philippe

Edit: Bonjour tatiak

 

[Claudy]

Re : extraire adresses mail

Super la macro....

Merci...aussi à Tatiak

St Vincent (Province de liege)?

 

[phlaurent55]

Re : extraire adresses mail

Re,

St Vincent (Province de liege)?

Tout au sud, à 10Km à vol d'oiseau de la source d' OrvaL

à+
Philippe

 

[gosselien]

Re : extraire adresses mail

Bonjour le forum,Claudy le belge (aussi) 🙂 OUPS..pas rafraichit mon écran...bonjour aux autres 🙂

j'ai ceci à tester 🙂

Sub ChercheArobase()
'déclaration des variables :
Dim Trouve
Dim PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
Dim WS1 As Worksheet: Dim WSCible As Worksheet
'********* à adapter ***********
'on cherche le mot "@"
Valeur_Cherchee = "@"
'dans la première colonne de la feuille active
Set WS1 = ActiveSheet
Set PlageDeRecherche = ActiveSheet.Range("A1:Z200")
'Sheets(1).Select
Sheets.Add before:=Sheets(1)
Set WSCible = ActiveSheet
'*******************************
WS1.Activate
With ActiveSheet.Range("A1:Z200")
Set C = .Find(What:=Valeur_Cherchee, LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
Set plage = Sheets(1).Range("A65000").End(xlUp)(2)
FirstAddress = C.Address
Do
Set Trouve = C
Trouve.Copy Destination:=Sheets(1).Range("a65536").End(xlUp)(2)
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstAddress
End If
End With
WSCible.Activate
End Sub