Corrigé 6.11 Créer et utiliser une collection d’objets

Sub Collection_ClubMustang() 
  Dim ClubMustang As New Collection 
  Dim uneMustang As FordMustang 
 
  ' Création d'un membre de la collection 
  Set uneMustang = New FordMustang 
  uneMustang.Immatriculation = "FV-341-KL" 
  ClubMustang.Add uneMustang 
 
  ' Création d'un membre de la collection ...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 6.10 Déclencher l’événement de classe
Suivant
Introduction