Recherche doublons

[reve24]

Bonjour

ci joiint fichier

je cherche à detecter les doublons dans 2 listes ( hier // aujourd hui )

j apelle doublons lien entre l article et la quantité )

les colorier

creer une liste de fusion ( liste sans les doublons)(entre liste hier et aujourd hui )

et definitivement

creer une liste de doublons

 

[JHA]

Re : Recherche doublons

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

 

[reve24]

Re : Recherche doublons

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

OK MERCI POUR CETTE REPONSE

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

 

[reve24]

Re : Recherche doublons

OK MERCI POUR CETTE REPONSE

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

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

 

[reve24]

Re : Recherche doublons

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

Ci joint un travail

 

[reve24]

Re : Recherche doublons

Ci joint un travail

Suivant le travail de BOISGONTIER

Formation Excel VBA JB

MAIS JE PASSE PAR """"CONCATENER""""

 

[JHA]

Re : Recherche doublons

Re,

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

Ton fichier actualisé (zip file)

JHA

 

[reve24]

Re : Recherche doublons

re,

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

ton fichier actualisé (zip file)

jha

ok tres bien

merci joli travail

mais pourquoi pas en vba a l aide bouton

 

[Monique]

Re : Recherche doublons

Bonjour,

La fusion par formule
Formule matricielle, à valider par ctrl, maj et entrée