1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Sub test()
Dim Artiste As Object, Plage As Range
Set Plage = ThisWorkbook.Sheets("Compositeurs").Range("A1").CurrentRegion
Set Artiste = CreateObject("Scripting.Dictionary")
For i = 2 To Plage.Rows.Count
If Not Artiste.exists(Plage(i, 1).Value) Then Artiste.Add Plage(i, 1).Value, New Compositeur: Artiste(Plage(i, 1).Value).Nom = Plage(i, 1).Value
Next
For i = 2 To Plage.Rows.Count
If CStr("" & Plage(i, 2).Value) <> "" Then
If Not Artiste(Plage(i, 1).Value).Eleve.exists(Plage(i, 2).Value) Then Artiste(Plage(i, 1).Value).Eleve.Add Plage(i, 2).Value, Artiste(Plage(i, 2).Value)
If Not Artiste(Plage(i, 2).Value).Maitre.exists(Plage(i, 1).Value) Then Artiste(Plage(i, 2).Value).Maitre.Add Plage(i, 1).Value, Artiste(Plage(i, 1).Value)
End If
Next |
Partager