Private c1 As New Class1 Private c2 As New Class1 Private col As New Collection Private Sub Form_Load() c1.Nom = "Dupond" c1.Age = 23 c2.Nom = "BOB" c2.Age = 433 Call col.Add(c1, c1.Nom) Call col.Add(c2, c2.Nom) MsgBox col.Item("Dupond").Nom & " - " & col.Item("Dupond").Age End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question