Re: [fr-users] Re: Portée d'une variable Collection

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 à users+unsubscribe@fr.libreoffice.org 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