Trier les adresse mails d'un fichier excel Résolu

Question

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.


Configuration: Windows XP / Internet Explorer 7.0

Patrice33740 · Answer

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

B95190 · Answer

Merci. Y aurait il une autre solution en utilisant une formule excel ?

Patrice33740 · Answer

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 ! »

Trier les adresse mails d'un fichier excel

3 réponses

Discussions similaires

Newsletters