Report un Tableau dans une ListBox

Bonjour,

Je cherche a reporter dans une listBox des données stocke dans un Tab_Ref().

Je m'explique, Je fait tourner une methode Calcul:

Sub Calcul(ByVal Point_ID as String, ByVal Point_Value as Double)

Dim Tab_Ref(3,5) as variant

for 1 =1 to 5

Tab_Ref(1,i) = Point_ID

Tab_Ref(2,i) = Point_Value

Next i

End Sub

Et j'ai un userform qui contient une listBox.

J'aimerai faire apparaître dans ma listbox les donnees de mon Tab_Ref()

Je sais rapport des valeurs dans ma listbox

For i=1 to 5

ListBox.additem i & ")"

Next i

Mais j'aimerai avoir plutot quelque chose comme sa:

For i=1 to 5

ListBox.additem i & ")" & " " & Tab_Ref(1,i) & " " & Tab_Ref(2,i)

Next i

S'il vous plait, quelqu'un m'a compris ???? quelqu'un a la solution ???

Oups easy probleme resolu !

Sub Calcul(ByVal Point_ID as String, ByVal Point_Value as Double)

Dim Tab_Ref(3,5) as variant

for 1 =1 to 5

Tab_Ref(1,i) = Point_ID

Tab_Ref(2,i) = Point_Value

'ajoute les valeurs dans la listbox

Userform.ListBox.addItem i & ")" & " " & Tab_Ref(1,i) & " " & Tab_Ref(2,i)

Next i

'affiche la userform

Userfrorm.show

End Sub