Bonjour,
J'ai des doublons entre deux colonnes, ce sont des N° de commande identiques, et je cherche à trouver les identiques et les ressortir dans une autre colonne. J'ai en colonne A, quelques milliers de N° de commande identique et en D, ma base de N° de commande. Je cherche à trouver les N° de commande de A présent dans D
Simple me direz vous ?
Ce code execute ce programme tout tranquillement
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 Not MonDico1.exists(c) Then If Not MonDico2.exists(c) Then MonDico2.Add c, c
Next c
[I2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.Items)
Columns("A:H").Delete
Ce code marche bien, il me sort bien dans la colonne I les doublons. Mais mtn mon soucis c'est que dans les colonnes B et C j'ai la date et le prix du N° de commande de A, ce que je veux c'est reussir à sortir aussi ces informations dans les colonnes J et K par exemple
Une idée ?
Je sais pas si je peux transpose ou quoi
Aidez moi :'(
Merci de votre patience !