1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub Liste2_Liste1()
On Error GoTo ErrListe2_Liste1
a = Range("A1:A" & [A65000].End(xlUp).Row)
Set MaListe1 = CreateObject("Scripting.Dictionary")
For Each c In a
MaListe1(c) = ""
Next c
b = Range("B1:B" & [B65000].End(xlUp).Row)
Set MaListe2 = CreateObject("Scripting.Dictionary")
For Each c In b
If Not MaListe1.exists(c) Then MaListe2(c) = ""
Next c
[C1].Resize(MaListe2.Count, 1) = Application.Transpose(MaListe2.keys)
1 Exit Sub
ErrListe2_Liste1:
MsgBox "Pas d'erreur de pointage aujourd'hui" ': " & Err.Number & " Descriptif : " & Err.Description
End Sub |