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.
Le 24/01/2015 09:30, pierre-yves samyn a écrit :
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
for each loc in InfosObjets
print loc
next
end sub
--
Didier Dorange-Pattoret
http://www.dmaths.org
Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre
établissement !
http://www.dmaths.org/documentation/doku.php?id=presentation:club
Seuls des formats ouverts peuvent assurer la pérennité de vos documents.
J'ai signé l'appel pour l'interopérabilité dans l'Éducation nationale de
@aprilorg. Et vous ? http://formatsouverts.education/#InteropEduc
--
Envoyez un mail à [email protected] pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
