Private Sub SetIntegerArrayValues(IArray() As Integer, ParamArray Value())
Dim IsEmpty As Boolean
IsEmpty = ((Not (Not IArray)) = 0)
If IsEmpty Then ReDim IArray(UBound(Value))
Dim i As Integer
For i = 0 To UBound(Value)
If i > UBound(IArray) Then Exit For
IArray(LBound(IArray) + i) = CInt(Value(i))
Next i
End Sub, ----
(Coloration syntaxique automatique par Kenji)
que tu peut appeler ainsi :
Call SetIntegerArrayValues(mytab, 5, 5, 2, 3, 5)
cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010 26 févr. 2008 à 23:06
donc je dois retaper à chaque fois... le mytab... sans possibilité de les mettre les uns à côté des autres???? ben... zut alors je te remercie pour ta réponse... si quelqu'un connait un autre truc....
cs_Sator
Messages postés351Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention 6 octobre 2010 26 févr. 2008 à 23:57
Thot49, merci mais je suis en vb6 .... et oui encore...
mais je suis sûr que celà pourra en aider d'autres.... et qui sais si un jour je n'aurai pas le temps de m'y mettre (à vb net)
Quant à toi; Charles Merci,Merci, Merci tu est Génial, donc un grand merci à toi....