Fusion de deux fichiers

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dan74700

XLDnaute Nouveau
Bonjour
Je souhaiterais savoir comment faire une fusion entre deux fichiers excel.
Sur les deux fichiers apparaissent une liste de personne, j'aimerais qu'en fusionnant nous puissions supprimer ceux qui apparaissent sur les deux fichiers.
deux exemples de fichier en pj
merci par avance
 

Pièces jointes

Re : Fusion de deux fichiers

Bonsoir Dan74700,

Si c'est à faire une seule fois, il faut tout copier dans le même fichier puis tu peux utiliser la gestion des doublons d'Excel.

Si c'est à faire régulièrement, il te faut une macro.

A te relire

Martial
 
Re : Fusion de deux fichiers

Bonsoir Yaloo, Dan74700, le forum

Dans un même fichier, tes 2 listes en Feuil1 et Feuil2.
Résultat en Feuil3 :
VB:
Sub Uniques()
Dim a, i As Long, txt As String, e
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For Each e In [{1,2}]
            a = Sheets("Feuil" & e).Cells(2, 1).CurrentRegion.Value
            For i = 1 To UBound(a, 1)
                txt = Join$(Array(a(i, 1), a(i, 2)), Chr(2))
                If Not .exists(txt) Then
                    .Item(txt) = Split(txt, Chr(2))
                Else
                    .Item(txt) = Empty
                End If
            Next
        Next
        For Each e In .keys
            If IsEmpty(.Item(e)) Then .Remove e
        Next
        Sheets("Feuil3").Cells(1).CurrentRegion.Clear
        If .Count > 0 Then
            Sheets("Feuil3").Cells(1).Offset(1).Resize(.Count, 2).Value = _
            Application.Transpose(Application.Transpose(.items))
            Sheets("Feuil3").Cells(1).Resize(, 2).Value = [{"nom","mrh"}]
        End If
    End With
End Sub
klin89
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
41
Réponses
5
Affichages
67
Retour