array / UDT : tableau de type défini par l'utilisateur
2 réponses
jean-paul.bataille
Bonjour,
Je d=E9sire utiliser un type personnel "objetAccess" , d=E9fini comme
ceci
Type objetAccess
strNomObjet As String
dateCr=E9ation As Date
dateR=E9vision As Date
End Type
Puis dans une routine je veux affecter des valeurs aux divers =E9l=E9ments
de mon type pour constituer un tableau listeObjet "array"
Sub tst_USD_et_array()
Dim UnObjet As objetAccess
Dim ListeObjet() As Variant
Je désire utiliser un type personnel "objetAccess" , défini comme ceci Type objetAccess strNomObjet As String dateCréation As Date dateRévision As Date End Type
Puis dans une routine je veux affecter des valeurs aux divers éléments de mon type pour constituer un tableau listeObjet "array"
Sub tst_USD_et_array()
Dim UnObjet As objetAccess Dim ListeObjet() As Variant
Je désire utiliser un type personnel "objetAccess" , défini comme
ceci
Type objetAccess
strNomObjet As String
dateCréation As Date
dateRévision As Date
End Type
Puis dans une routine je veux affecter des valeurs aux divers éléments
de mon type pour constituer un tableau listeObjet "array"
Sub tst_USD_et_array()
Dim UnObjet As objetAccess
Dim ListeObjet() As Variant
Je désire utiliser un type personnel "objetAccess" , défini comme ceci Type objetAccess strNomObjet As String dateCréation As Date dateRévision As Date End Type
Puis dans une routine je veux affecter des valeurs aux divers éléments de mon type pour constituer un tableau listeObjet "array"
Sub tst_USD_et_array()
Dim UnObjet As objetAccess Dim ListeObjet() As Variant
Je désire utiliser un type personnel "objetAccess" , défini comme ceci Type objetAccess strNomObjet As String dateCréation As Date dateRévision As Date End Type
Puis dans une routine je veux affecter des valeurs aux divers éléments de mon type pour constituer un tableau listeObjet "array"
Sub tst_USD_et_array()
Dim UnObjet As objetAccess Dim ListeObjet() As Variant
Je désire utiliser un type personnel "objetAccess" , défini comme
ceci
Type objetAccess
strNomObjet As String
dateCréation As Date
dateRévision As Date
End Type
Puis dans une routine je veux affecter des valeurs aux divers éléments
de mon type pour constituer un tableau listeObjet "array"
Sub tst_USD_et_array()
Dim UnObjet As objetAccess
Dim ListeObjet() As Variant
Je désire utiliser un type personnel "objetAccess" , défini comme ceci Type objetAccess strNomObjet As String dateCréation As Date dateRévision As Date End Type
Puis dans une routine je veux affecter des valeurs aux divers éléments de mon type pour constituer un tableau listeObjet "array"
Sub tst_USD_et_array()
Dim UnObjet As objetAccess Dim ListeObjet() As Variant