Private Type Tableau t() As String End Type Private Function test() As Tableau Dim truc(5) As String truc(0) = "0" truc(1) = "1" truc(2) = "2" truc(3) = "3" truc(4) = "4" truc(5) = "5" test.t = truc End Function Sub Form_Load() Dim i As Integer For i = 0 To 5 MsgBox test.t(i) Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question