Trier les adresse mails d'un fichier excel [Résolu/Fermé]

Signaler
Messages postés
119
Date d'inscription
mardi 16 février 2010
Statut
Membre
Dernière intervention
14 juillet 2011
-
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
-
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.


3 réponses

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 683
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
Messages postés
119
Date d'inscription
mardi 16 février 2010
Statut
Membre
Dernière intervention
14 juillet 2011
24
Merci. Y aurait il une autre solution en utilisant une formule excel ?
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 683
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 ! »