Trier les adresse mails d'un fichier excel

Résolu
B95190 Messages postés 139 Statut Membre -  
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour,
Voici mon problème.J'ai un fichier excel contenant des adresses mails que je souhaite trier. Je voudrais que les adresses mails contenues dans les colonnes H à N soient toutes stockées dans la colonne W.
Je vous remercie beaucoup.


A voir également:

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
Bonjour,

J'ai une solution en VBA, essaie ce code : 

Sub test()

Dim rng As Range
Dim cel As Range
Dim dest As Range

  Set dest = Range("W1")
  Set rng = Columns("H:N").Resize(ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count)
  For Each cel In rng.Cells
    adr = cel.Address
    If cel.Hyperlinks.Count > 0 Then
      cel.Copy Destination:=dest
      Set dest = dest.Offset(1)
    End If
  Next

End Sub


Cordialement
Patrice
0
Réponse 2 / 3
B95190 Messages postés 139 Statut Membre 25
 
Merci. Y aurait il une autre solution en utilisant une formule excel ?
0
Réponse 3 / 3
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
Bonjour,

Avec VBA, on peut créer des fonctions personnalisées (la formule donne alors le résultat désiré), mais si il s'agit d'éviter les macros, il n'y a pas, à ma connaissance, de fonction Excel qui permette de détecter la présence d'un lien hypertexte (ou adresse mail) dans une cellule.

Cordialement
Patrice
Nicolas dit toujours : « C'est facile quand on connait la réponse ! »
0