CLUB | wf match |
K.RC.Genk | Genk |
Cercle Brugge K.SV. | Cercle de Bruges |
K.St.-Truidense VV. | Saint-Trond |
SV.Zulte Waregem | Zulte Waregem |
KV.RS.Waasland-SK.Beveren | Waasland-Beveren |
R.SC.Anderlecht | Anderlecht |
R. Fraiture Sp A | Fraiture Sports |
3A | 18-08-19 | 15:00 | Racour A | Oreye | 2 | 2 |
3A | 18-08-19 | 15:00 | Templiers Nandrin B | Rfc.Huy B | 1 | 2 |
3A | 18-08-19 | 15:00 | Fizoise B | Ouffet Warzée | 0 | 1 |
3A | 18-08-19 | 15:00 | R. Fraiture Sp A | Huccorgne | 0 | 3 |
3A | 18-08-19 | 15:00 | Warnant B | Burdinne | 0 | 2 |
3A | 18-08-19 | 15:00 | RSC. Haneffe | JSK Crisnée | 3 | 1 |
Sub Décode()
Dim Dico, Dico2, TC, i, T, FC As Worksheet, FM As Worksheet
Set Dico = CreateObject("Scripting.Dictionary")
Set Dico2 = CreateObject("Scripting.Dictionary")
Set FC = Worksheets("correspondances-clubs-import-un")
Set FM = Worksheets("lieresdownP")
TC = FC.Range("A2:B" & FC.Range("B" & Rows.Count).End(xlUp).Row)
For i = LBound(TC, 1) To UBound(TC, 1)
Dico(TC(i, 1)) = TC(i, 2)
Next
T = FM.Range("E2:E" & FM.Range("E" & Rows.Count).End(xlUp).Row)
For i = LBound(T, 1) To UBound(T, 1)
If Dico.Exists(T(i, 1)) Then
T(i, 1) = Dico(T(i, 1))
Else
Dico2(T(i, 1)) = ""
End If
Next
FM.Range("E2").Resize(UBound(T, 1), 1) = T 'copie les correspondances
'supprimer les ' devant les deux lignes suivantes pour copier les clubs sans correspondance
'derFC = FC.Range("A" & Rows.Count).End(xlUp).Row + 1
'FC.Range("A" & derFC).Resize(Dico2.Count, 1) = Application.Transpose(Dico2.keys)
End Sub
Sub Décode()
Dim Dico, Dico2, TC, i, T, FC As Worksheet, FM As Worksheet
Set Dico = CreateObject("Scripting.Dictionary")
Set Dico2 = CreateObject("Scripting.Dictionary")
Set FC = Worksheets("correspondances-clubs-import-un")
Set FM = Worksheets("lieresdownP")
TC = FC.Range("A2:B" & FC.Range("B" & Rows.Count).End(xlUp).Row)
For i = LBound(TC, 1) To UBound(TC, 1)
Dico(TC(i, 1)) = TC(i, 2)
Next
T = FM.Range("D2:E" & FM.Range("E" & Rows.Count).End(xlUp).Row)
For i = LBound(T, 1) To UBound(T, 1)
If Dico.Exists(T(i, 1)) Then T(i, 1) = Dico(T(i, 1))
If Dico.Exists(T(i, 2)) Then T(i, 2) = Dico(T(i, 2))
Next
FM.Range("D2").Resize(UBound(T, 1), UBound(T, 2)) = T 'copie les correspondances
End Sub