Type LieuEtude
Lieu As String
Nom As String
End Type
Type Etude
TblEtude() As LieuEtude
End Type
Sub Test()
Dim TabloEtude() As Etude
Dim I As Integer
'redimensionne le tableau du lieu de l'étude
'ici, le lieu de l'étude 1
ReDim TabloEtude(1 To 1)
'dimensionne le tableau contenant les lieux et noms
ReDim TabloEtude(1).TblEtude(1 To 1)
'inscrit le premier
TabloEtude(1).TblEtude(1).Lieu = "Paris"
TabloEtude(1).TblEtude(1).Nom = "Dupond Pierre"
'redimensionne le tableau contenant les lieux et noms pour un second enregistrement
ReDim Preserve TabloEtude(1).TblEtude(1 To 2)
'inscrit le second
TabloEtude(1).TblEtude(2).Lieu = "Paris"
TabloEtude(1).TblEtude(2).Nom = "Durant Philippe"
'petite boucle pour lire
For I = 1 To UBound(TabloEtude(1).TblEtude)
MsgBox "Lieu : " & TabloEtude(1).TblEtude(I).Lieu & vbCrLf & "Nom : " & TabloEtude(1).TblEtude(I).Nom
Next I
'indique le nombre d'individus rencontrés dans le dernier lieu d'étude
MsgBox UBound(TabloEtude(UBound(TabloEtude)).TblEtude)
End Sub