Apologies again, slight error in the code...
for inLine= 2 to 10
Set aElem = New clPipe
aElem.inRow = inLine
aElem.sbReadExcel "Feuil1", inLine
' Add some code to generate a unique key here. It could be as simple as key = "Pipe" & CStr(inline-1)
If Not alinks.Exists(key) Then
alinks.Add...
You will want to use a Dictionary
Firstly, reference the Scripting runtime and add a variable for the key in your declarations section, i.e.:
Set alinks = CreateObject("Scripting.Dictionary")
Dim key as String
Now each time you add an element to the array, you can specify a string key, i.e...
