De: "Laurent Longre" <longre@wanadoo.fr>
À: "Jean-Alain" <jageay@yahoo.fr>
Objet: Re: Renvoi d'un membre d'un objet Collection.
Date : vendredi 17 septembre 1999 15:54

Jean-Alain,

Tu peux utiliser pour cela la valeur de la propri&eacute;t&eacute; Name dans le
paramètre 'Key' de Collection.Add.

Voici un exemple :

' Dans le module de classe "Zaza" :

Dim Nom As String

Property Get Name() As String
  Name = Nom
End Property

Property Let Name(N As String)
  Nom = N
End Property

' Dans Module1 :

Dim Zaza1 As New Zaza
Dim Zaza2 As New Zaza
Dim Zazas As New Collection

Zaza1.Name = "Z&eacute;phyr"
Zaza2.Name = "LeHome"

With Zazas
  .Add Zaza1, Zaza1.Name
  .Add Zaza2, Zaza2.Name
  MsgBox "Zazas(""LeHome"") = " & """" & .Item("LeHome").Name & """"
  MsgBox "Zazas(""Z&eacute;phyr"") = " & """" & .Item("Z&eacute;phyr").Name & """"
End With

Cordialement,

Laurent


Jean-Alain wrote:
> 
>      Salut,
> J'ai d&eacute;clar&eacute; un objet Collection dont les membres sont des objets d'une
> classe d&eacute;finie par moi-même. Ces objets possèdent, en autres, une propri
> &eacute;t&eacute; "Name" et je voudrais pouvoir acc&eacute;der aux membres de ma collection à
>  partir de ces noms (comme je le ferait pour les  membres d'une collecti
> on Worksheets par exemple) au lieu de leur index. Comment faire?
> 
>   Merci de votre aide.
> 
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> Article poste via Voila News - http://www.news.voila.fr
> Le : Thu Sep 16 16:21:29 1999 depuis l'IP : 195.232.72.118