XL 2019 Transférer donnée d'une feuille à une autre

[Jumarin]

Bonjour,

Dans mon classeur, j'ai 2 feuilles.

Je souhaiterais que les noms de ma feuil1 ne soit dupliqué qu'une seule fois sur la feuil2.
Les seules fois où le nom doit être dédoublé est lorsque la personne réalise une formation N°2

Merci pour vos réponses.

 

[Hasco]

Bonjour,

Par power query, voilà ce que ça donne.
Il est sans doute possible de compléter la colonne 'à faire' également par PQ si vous nous dites à quoi elle correspond.

Peut-être une macro :

Sub Dédoublonner()
    Dim Dest As Range, Source As Range
    With ThisWorkbook
        '
        ' Définir la source des données
        Set Source = .Sheets("Feuil1").Range("Tableau1[[Date]:[Formation]]")
        '
        ' Définir la destination des données
        With .Sheets("Feuil2").ListObjects("Tableau2")
            If .InsertRowRange Is Nothing Then
                Set Dest = .ListRows.Add().Range
            Else
                Set Dest = .InsertRowRange
            End If
        End With
        '
        ' Copier la source dans la destination
        Source.Copy Dest.Resize(Source.Rows.Count, Source.Columns.Count)
        '
        ' Dédoublonner la destination
        .Sheets("Feuil2").Range("Tableau2[#All]").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
    End With
End Sub

Cordialement