Recherche doublons

JHA à dit:

Bonjour Reve27, le forum,

un essai avec sommeprod() en MFC ou sur une colonne à part.

Un peu plus court:
=SOMMEPROD(($A$4:$B$10<>"")*($E$4:$F$10<>"")*($A$4:$B$10=$E4:$F4)*($E$4:$F$10=$A4:$B4))>1

JHA

Cliquez pour agrandir...

reve24 à dit:

OK MERCI POUR CETTE REPONSE

Mais tu ne reponds pas a toutes les demandes.😀😀😀 Bravo toute de meme

Cliquez pour agrandir...

reve24 à dit:

J ai evidemment une reponse sur le site de Formation Excel VBA JB

Communs entre 2 listes
Sub Communs()
a = Range("A2:A" & [A65000].End(xlUp).Row)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In a
If Not MonDico1.exists(c) Then MonDico1.Add c, c
Next c
b = Range("C2:C" & [C65000].End(xlUp).Row)
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each c In b
If MonDico1.exists(c) Then If Not MonDico2.exists(c) Then MonDico2.Add c, c
Next c
[G2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)
End Sub


Fusion de 2 listes

Sub Fusion()
Set MonDico = CreateObject("Scripting.Dictionary")
a = Range("A2:A" & [A65000].End(xlUp).Row)
b = Range("C2:C" & [C65000].End(xlUp).Row)
For Each c In a
If Not MonDico.exists(c) Then MonDico.Add c, c
Next c
For Each c In b
If Not MonDico.exists(c) Then MonDico.Add c, c
Next c
[E2].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.items)



avec ce joli travail qu il a effectué mais ceci est lié a une colonne et donc j ai reussi avec concaterner et detourner mon sujet mais y a t il une autre facon

sans concatener

Cliquez pour agrandir...

reve24 à dit:

Ci joint un travail

Cliquez pour agrandir...

jha à dit:

re,

ci joint un autre exemple de fusion par fonction personnalisée

ton fichier actualisé (zip file)

jha

Cliquez pour agrandir...