VBA excel

bigmousse · 7 Janvier 2016

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

Code:

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

Merci pour votre aide

Mousse

bigmousse · 7 Janvier 2016

Re : VBA excel

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

Code:

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

VBA excel

bigmousse

XLDnaute Occasionnel

bigmousse

XLDnaute Occasionnel

Discussions similaires