Extraction Mails

Bonjour a tous,

Dans mon tableau j'aimerais extraire les mails pour les réunir en une cellule séparer par un ; pour pouvoir envoyer un mail groupé, tout en vérifiant que la cellule contient bien une adresse mail et en évitant les doublons

Jusque là , j'ai réussi.

Maintenant j'aimerais extraire les adresses mails (si la cellule en contient bien une) mais uniquement du peloton Sapeur (par ex:).

Je vous joins mon fichier.

Merci a vous

4test-mail.xlsm (26.33 Ko)

Bonjour,

Une proposition à étudier.

Réalisée avec Power Query (Récupérer et transformer, Excel 2016).

Cdlt.

7test-mail.xlsm (42.25 Ko)

Merci,

Je préfererais avec un Macro VBA, mais je vais quand même étudier ca.

Re,

Une nouvelle proposition.

Cdlt.

9test-mail.xlsm (37.99 Ko)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lo As ListObject, Cell As Range, rng As Range, Dict As Object
    If Target.Address = "$I$2" Then
        Set lo = Me.ListObjects("T_Données")
        Me.Cells(15).Value = ""
        With lo
            If .ShowAutoFilter Then .AutoFilter.ShowAllData
            If IsEmpty(Target) Then Exit Sub
            .Range.AutoFilter Field:=9, Criteria1:=Target.Value
            .Range.AutoFilter Field:=7, Criteria1:="=*@*"
            With .AutoFilter.Range
                On Error Resume Next
                Set rng = .Offset(1, 6).Resize(.Rows.Count - 1, 1) _
                          .SpecialCells(xlCellTypeVisible)
                On Error GoTo 0
            End With
        End With
        If rng Is Nothing Then Exit Sub
        Set Dict = CreateObject("Scripting.Dictionary")
        For Each Cell In rng
            Dict(Cell.Value) = Cell.Value
        Next Cell
        Me.Cells(15).Value = Join(Dict.Items, ";")
    End If
End Sub

Merci pour cette solution.

Je suis peut être ennuyant, mais ne serait il pas possible de le faire sans filtre?

Rechercher des sujets similaires à "extraction mails"