renvoyer des valeurs non communes a deux colonnes

[kabale53]

Bonjour

Je sollicite votre aide pour pouvoir renvoyer dans une colonne C les valeurs figurant dans une colonne A et ne figurant pas dans une colonne B.

Merci

 

[BOISGONTIER]

Re : renvoyer des valeurs non communes a deux colonnes

Bonjour,


http://boisgontierjacques.free.fr/fichiers/Divers/Dictionary.xls

Sub Liste2_Liste1()
  a = Range("Aq5:Aq" & [Aq24].End(xlUp).Row)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In a
    MonDico1(c) = ""
  Next c
  b = Range("at5:at" & [At65000].End(xlUp).Row)
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For Each c In b
    If Not MonDico1.exists(c) Then MonDico2(c) = ""
  Next c
  [aw2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
End Sub

Par formule matricielle

Liste différence

http://boisgontierjacques.free.fr/fichiers/Matriciel/MatDiffListes.xls


JB

 

[CISCO]

Re : renvoyer des valeurs non communes a deux colonnes

Bonjour

Une possibilité en pièce jointe avec une formule matricielle, donc à valider avec Ctrl+maj tempo+entrée.

@ plus

P.S : Bonjour J.B.

 

[kabale53]

Re : renvoyer des valeurs non communes a deux colonnes

Merci BOISGONTIER pour votre aide;étant donné mes connaissances tres médiocres en vba j"aurai souhaité une solution en formules excel pour pouvoir y apporter quelques réajustements.
Merci

 

[kabale53]

Re : renvoyer des valeurs non communes a deux colonnes

Bonjour CISCO et un tres grand merci pour ta proposition seulement dans le fichier joint , il y a dans la cellule AW5 la formule suivante:
=NBVAL(AT5:AT24)-SOMME(SI(AT5:AT24<>"";NB.SI(AQ5:AQ24;AT5:AT24)))
est-elle nécessaire pour le fonctionnement de la formule proposée.
Merci

 

[CISCO]

Re : renvoyer des valeurs non communes a deux colonnes

Bonsoir

Non

@ plus

 

[kabale53]

Re : renvoyer des valeurs non communes a deux colonnes

Re,

Merci pour la précision.

Bonne soirée