With MaStruct .A = 10.2 .B = 15.2 .C = 12.2 End With
Private Function FillMaStruct(T() as Double) as MaStruct With FillMaStruct .A = T(0) .B = T(1) .C = T(2) End With End Function Private Sub Test Dim Datas(0 to 2) as Double Dim Filled as MaStruct ' Remplir le tableau avec els valeurs ... Filled = FillMaStruct(Datas) End Sub