Comparer listes + Ordonner

[Spinzi]

Bonjour à tous,

je vous expose ici mon problème car je n'ai pas trouvé mon bonheur dans le forum.
J'ai 2 listes de Reférences, et il faut que je les compare l'une à l'autre.
Si les Ref A dans Ref B, tout se passe bien, mais il peut y avoir des Ref A qui ne sont pas dans B et vice versa.

J'aimerai donc une formule, ou une VBA mais vraiment au pire, qui me permette d'ordonner tout ça (si Ref A pas dans B, laisser un trou dans colonne B).

vous allez surement mieux comprendre avec le fichier joint. Sur la feuille 1 c'est juste un test, mais ce n'est pas ce que j'attends.

Merci d'avance pour votre implication,
Cdt. 😉

 

[homepyrof53]

Re : Comparer listes + Ordonner

Bonjour,

Voici une proposition par macro

Tu récureras
colonne 7 = reference
colonne 8 = nombre de présence en colonne A
colonne 9 = nombre de présence en colonne B

Sub pyrof()

Dim tab_data
Set tab_data = CreateObject("scripting.dictionary")

'--------------------------------------------lecture colonne A
l = 2
While Cells(l, 1) <> ""
    cle = Cells(l, 1)
    If tab_data.exists(cle) Then
        tmp = tab_data(cle)
        tmp(0) = 1 + tmp(0)
        tab_data(cle) = tmp
    Else
        tab_data(cle) = Array(1, 0)
    End If
    l = l + 1
Wend

'--------------------------------------------lecture colonne B
l = 2
While Cells(l, 2) <> ""
    cle = Cells(l, 2)
    If tab_data.exists(cle) Then
        tmp = tab_data(cle)
        tmp(1) = 1 + tmp(1)
        tab_data(cle) = tmp
    Else
        tab_data(cle) = Array(0, 1)
    End If
    l = l + 1
Wend

'--------------------------------------------ecriture resultat
' colonne 7 = reference
' colonne 8 = nombre de présence en colonne A
' colonne 9 = nombre de présence en colonne B
l = 2
For Each cle In tab_data
    Cells(l, 7) = cle
    Cells(l, 8) = tab_data(cle)(0)
    Cells(l, 9) = tab_data(cle)(1)
    l = l + 1
Next
End Sub

Bonne soirée

 

[Spinzi]

Re : Comparer listes + Ordonner

Bonsoir,

merci de votre aide, je teste cette macro demain et vous redis si elle correspond à ce que j'attends.
Merci pour tout.

 

[Spinzi]

Re : Comparer listes + Ordonner

Bonjour,

la macro semble de fonctionner super bien.
Si j'ai bin compris, elle fait la compilation (extraction sans doublon) dans une colonne, puis liste le nombre de ref qu'elle trouve pour ref A puis ref B.

Ce que j'aimerai obtenir en fait, ou tout du moins lui dire de faire (à la macro), c'est que si elle dénombre 0 pour l'un ou l'autre, elle renvoie "Rien", si elle renvoie 1 ou plus pour ref A elle fait un sommeprod dans une colonne spécifique, et si elle renvoie 1 ou plus pour ref B, elle fait un sommeprod dans une autre colonne spécifique.

Je vous mets ci joint le vrai fichier, avec ce que j'aimerai obtenir.

 

[Spinzi]

Re : Comparer listes + Ordonner

Je me permets de relancer ce sujet.

 

[Spinzi]

Re : Comparer listes + Ordonner

Si jamais quelqu'un à une solution ... 😕

 

[Spinzi]

Re : Comparer listes + Ordonner

Allez, ne faites pas les timides 😱