Fonction qui renvoit un tableau
i
bonjour tout le monde,
j'essaie de coder une fonction qui prend en argument un tableau dans le code et y mets que des zeros. le voila mon code :
Sub annuler()
'Dim vecteur()
ReDim vecteur(51)
Dim t
ReDim t(51)
For i = 1 To 51
vecteur(i) = i + 1
Next
t = zero(vecteur)
End Sub
Function zero(a() As Variant) As Variant()
For i = 1 To 51
a(i) = 0
Next
End Function
il m'affiche pas d'erreur par contre je trouve pas des zeros dans le tableau.
bonsoir
essaie ceci
Function zero(a() As Variant) As Variant()
For i = LBound(a) To UBound(a)
a(i) = 0
Next
zero = a
End FunctionBonsoir,
Il faut signaler de plus que avec cette déclaration, sans autre spécification, vecteur, t et a sont des tableaux de 52 éléments (de 0 à 51)
A+