listes (pas les ListBox)

Salut !
J'aurai voulu savoir s'il y avait un moyen de se créer des listes de type perso (j'ai essayé et ca marchait pas, avec Dim a as new colleection, a.add b où b est de type typeperso)

Merci de répondre.
A+.
Thomas.

Bonjour,
Voici un exemple avec ajout dans la collection d'un objet variant, ca aurait aussi pu etre un tableau de variant ou tout autre objet.

Dim Col As New Collection
Dim ItemParam As Variant
ItemParam = b
Col.Add(ItemParam)

A+

Bonjour,
Tu peux faire ceci.
'Dans un Module.

Type Employés
Nom As String * 20
Prénom As String * 20
Adresse As String * 30
End Type

'Dans la Form.

Private Sub Command1_Click()
Dim MonEmployé As Employés
MonEmployé.Nom = "Leroisse"
MonEmployé.Prénom = "Jean-Pierre"
MonEmployé.Adresse = "Rue des Platanes"
MsgBox MonEmployé.Nom
End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée.

Merci mais ca marche pas !

Thomas.

et pour jpleroisse, ca n'est pas du tout ce qui est voulu ! (mais merci quand meme de la participation)
Thomas.

Re,
Si c'est absolument une collection que tu veux, voici un exemple.

Private Sub Command1_Click()
Dim Col As New Collection, MonTypePerso
MonTypePerso = "Bonjour"
Col.Add MonTypePerso

MsgBox Col(1)
End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée.

Merci.
A+.
Thomas.

çà manque de vert...