Extraire la différence entre deux listes sur une autre page.

[kadi smail]

Bonsoir à tous

Je m’adresse à vous pour vous demander une combinaison pour Extraire la différence entre deux listes sur la même feuille ou dans une autre.
Ci-joint un exemple.

Je vous remercie d’avance

 

[david84]

Re : Extraire la différence entre deux listes sur une autre page.

Bonsoir,
A tester :

=SI(LIGNES($1:1)<=SOMME(NB.SI(D$11:D$34;B$11:B$34));INDEX(B$11:B$34;PETITE.VALEUR(SI(NB.SI(D$11:D$34;B$11:B$34)=0;LIGNE(INDIRECT("1:"&LIGNES(B$11:B$34))));LIGNES($1:1)));"")

Formule matricielle à valider par Ctrl, Maj et entrée.
A+

 

[Softmama]

Re : Extraire la différence entre deux listes sur une autre page.

Bonjour,

Une proposition en fichier joint :

Sub Extract()
Dim c As Range, c1 As Range, d As Range
Set d = Feuil1.Range("G11") 'Adresse de la liste d'arrivée (à adapter)
For Each c In [ListeA]
  Set c1 = [ListeB].Find(what:=c, LookIn:=xlValues, lookat:=xlWhole)
  If c1 Is Nothing Then
    d = c
    Set d = d.Offset(1, 0)
  End If
Next c
For Each c In [ListeB]
  Set c1 = [ListeA].Find(what:=c, LookIn:=xlValues, lookat:=xlWhole)
  If c1 Is Nothing Then
    Set c1 = d.EntireColumn.Find(what:=c, LookIn:=xlValues, lookat:=xlWhole)
    If c1 Is Nothing Then
      d = c
      Set d = d.Offset(1, 0)
    End If
  End If
Next c
End Sub

EDIT : Bonjour David84

 

[kadi smail]

Re : Extraire la différence entre deux listes sur une autre page.

Bonjour à tous
Je ne mon doutais pas de votre capacités.
J’étais sur d’avoir une réponse positive et rapide.
J’en suis ravi du résultat.

Avec vous ; que du bonheur.
Merci beaucoup

 

[BOISGONTIER]

Re : Extraire la différence entre deux listes sur une autre page.

Bonjour,

Méthode rapide

Sub Liste1_Liste2()
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range("D11:D" & [D65000].End(xlUp).Row)
    MonDico1(c.Value) = ""
  Next c
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range("B11:B" & [B65000].End(xlUp).Row)
    If Not MonDico1.exists(c.Value) Then MonDico2(c.Value) = ""
  Next c
  [G11].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
End Sub

JB

 

[kadi smail]

Re : Extraire la différence entre deux listes sur une autre page.

bonsoir à tous
j'en suis très ravi de votre intervention.
Croyez-moi que je m'attendais à une réponse de votre part et c'est fait..
Je vous remercie du fond du cœur. comme j'ai remercié Mr: david84 et Mr:Softmama .
à très bientôt pour d'autres interventions.

 

[kadi smail]

Re : Extraire la différence entre deux listes sur une autre page.

Monsieur BOISGONTIER
J'ai oublié de vous demander, si vous confirmez que votre site est joignable.qu'il est en service.
A ce sujet,j'ai ouvert une nouvelle discutions;et la réponse d'un intervenant est positif.
Je n'arrive pas à comprendre le motif.
Encore une fois merci.