listes (pas les ListBox)

Question

Salut !
J'aurai voulu savoir s'il y avait un moyen de se cr&#233;er des listes de type perso (j'ai essay&#233; et ca marchait pas, avec Dim a as new colleection, a.add b o&#249; b est de type typeperso)

Merci de r&#233;pondre.
A+.
Thomas.

fduchamp · Answer

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+

jpleroisse · Answer

Bonjour,

Tu peux faire ceci.

'Dans un Module.



Type Employ&#233;s

Nom As String * 20

Pr&#233;nom As String * 20

Adresse As String * 30

End Type



'Dans la Form.



Private Sub Command1_Click()

Dim MonEmploy&#233; As Employ&#233;s

MonEmploy&#233;.Nom = "Leroisse"

MonEmploy&#233;.Pr&#233;nom = "Jean-Pierre"

MonEmploy&#233;.Adresse = "Rue des Platanes"

MsgBox MonEmploy&#233;.Nom

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

jannoman · Answer

Merci mais ca marche pas !

Thomas.

jannoman · Answer

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

jpleroisse · Answer

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&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

jannoman · Answer

Merci.
A+.
Thomas.

PCPT · Answer

&#231;&#224; manque de vert...

Listes (pas les ListBox)

7 réponses

Discussions similaires