aide

[mohammed.slim@hotmail.fr]

salut mes chères amis, est ce que qq1 pe m'aider sur ce point,
j'ai un tableau en trois colonnes, une conne A avec une série AS et une colonne B avec une série BS et une autre colonne C (documents manquants).
ce que je veux faire; c'est de comparer, à l'aide d'une macro, les deux séries BS par rapport à BS, càd la valeur de BS non existante dans AS je veux qu'elle soit inscrite automatiquement dans la colonne C sans pour autant avoir des interligne dans cette colonne. je vous communique un exemple de ce que j'ai entre les mains.
merci mes camarades, je vous serais trés reconnaissant.
byebye🙂

 

[Dull]

Re : aide

Salut Mohammed, le Forum

Sur une idée de Jacques BOISGONTIERS si j'ai bien compris

Sub Transfert() [COLOR=Green]'By Jacques BOISGONTIERS[/COLOR]
Range("D8:D19").ClearContents
  A = Range("B8:B19")
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each C In A
   If Not MonDico1.exists(C) Then MonDico1.Add C, C
  Next C
  B = Range("C8:C19")
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For Each C In B
    If Not MonDico1.exists(C) Then If Not MonDico2.exists(C) Then MonDico2.Add C, C
  Next C
  [D8].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)
End Sub

EDITION: Tu devrais essayer de changer ton titre car il n'est pas très explicite penses au futures recherches

Bonne Journée