VBA excel

[bigmousse]

Bonjour,
J'aimerais créer une procedure avec comme argument un tableau en byref, par contre je ne sais pas comment je doit faire pour dimensionner mon tableau. Tabl1 qui doit avoir n éléments

Sub Remplissage(Ma_chaine As String, ByRef Tabl1() As String)

Merci pour votre aide

Mousse

 

[bigmousse]

Re : VBA excel

J'apporte plus de détails car je crois que je n'ai pas été clair :

Option Explicit
Sub Remplissage(ByVal Ma_chaine As String, ByRef Tabl1 As String)
Dim a, i As Integer

a = Len(Ma_chaine)
Do While i <> 100
i = i + 1
Loop
End Sub


Sub main()
Dim a As Integer
Const NbMax = 100
Dim Tabl(NbMax) As String
Dim Chaine As String
Chaine = "Mon Texte"
a = 1
Remplissage (Chaine, Tabl())

End Sub

Je vous remercie
Cordialement