Enum, Type et Tableaux avec For Each

Enum Couleur
   Rouge = 10
   Vert = 20
   Bleu = 30
End Enum

Type Voiture
   Marque As String
   KM As Long
   ' NoChassis : Erreur ... Les types doivent être définis
   NoChassis As String
End Type

Sub TestEnum()
   ' Erreur : Enum ne peut être qu'en en-tête de module
   'Enum Truc
   '   Machin = 5
   'End Enum
   Dim MaCouleur As Couleur
   MaCouleur = Vert ' Au moment ou on écrit "=", les options apparaissent
   Debug.Print MaCouleur ' 20
   MaCouleur = Noir
   Debug.Print MaCouleur ' Pas d'erreur : 0
End Sub

Sub TestType()
   Dim MaVoiture As Voiture
   MaVoiture.Marque = "BMW"
   MsgBox MaVoiture.Marque
End Sub

Sub TestTableau()
   Dim Armoire(1 To 3)
   Dim Vetement
   Armoire(1) = "Chemises"
   Armoire(2) = "Slips"
   Armoire(3) = "Chaussettes"
   For Each Vetement In Armoire
     Debug.Print Vetement
   Next
End Sub