Bonsoir Pierre Yves,
Merci pour le conseil,
Mais il y a des problèmes de stabilité.
J'ai fait des essais en ajoutant ou enlevant un élément ...
global InfosObjets as variant
sub InitColl
Dim maCollLoc As New Collection
maCollLoc.Add "valeur1", "ID1"
maCollLoc.Add "valeur2", "ID2"
InfosObjets = maCollLoc
end sub
sub testglob
dim loc
'InfosObjets.Remove("ID1")
InfosObjets.Add "valeur1", "ID1"
for each loc in InfosObjets
print loc
next
end sub
Du coup, j'ai utilisé un tableau du type Global InfosObjets(1 to 100, 1 to 2) as String
Pour enlever un objet, il faut une boucle pour mais cela fonctionne.
Cordialement.