Bonjour la communauté je viens de creation une fonction qui permet de charger un tableau, maintenant j'ai du mal a appelé cette fonction pour affiché mon tableau
voici la fonction ci_dessus.
merci pour votre aide.
'Chargement du tableau de pole de production
Function LoadTeam() As CTeam()
Dim TeamArrayTmp() As New CTeam
ReDim TeamArrayTmp(Range("Team").Rows.Count)
Dim TeamTmp As CTeam
For i = 1 To Range("Team").Rows.Count
Set TeamTmp = New CTeam
TeamTmp.Team = Range("Team[Team]")(i)
TeamTmp.Leader = Range("Team[Leader]")(i)
Set TeamArrayTmp(i) = TeamTmp
Next i
LoadTeam = TeamArrayTmp
End Function
voici la fonction ci_dessus.
merci pour votre aide.
'Chargement du tableau de pole de production
Function LoadTeam() As CTeam()
Dim TeamArrayTmp() As New CTeam
ReDim TeamArrayTmp(Range("Team").Rows.Count)
Dim TeamTmp As CTeam
For i = 1 To Range("Team").Rows.Count
Set TeamTmp = New CTeam
TeamTmp.Team = Range("Team[Team]")(i)
TeamTmp.Leader = Range("Team[Leader]")(i)
Set TeamArrayTmp(i) = TeamTmp
Next i
LoadTeam = TeamArrayTmp
End Function