Discussion :

[Elwe31]

Bonjour,

Je ne trouve pas la syntaxe du fonction qui retourne un tableau de String
et comment je fais l'appel
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Function Remplir(val as string) as String() ???
  dim tab() as String
  ....
  ....
  return tab()
End function

et pour l'appelle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
...
tab() = Remplir("toto")
...

merci d'avance

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function rtab(x As String) As Variant
Dim rep As Variant
Dim boucle As Integer
ReDim rep(1 To 12)
For boucle = 1 To 12
rep(boucle) = x & Format(DateSerial(2007, boucle, 1), "mmmm")
Next boucle
rtab = rep
End Function
 
Function usitertab() As String
msgbox (rtab("mois de ")(5))
End Function