Fonction VB renvoyant un tableau de variant
Fermé
therese94340
Messages postés
1
Date d'inscription
samedi 10 février 2007
Statut
Membre
Dernière intervention
10 février 2007
-
10 févr. 2007 à 09:16
alino-91 - 9 mai 2013 à 03:27
alino-91 - 9 mai 2013 à 03:27
A voir également:
- Fonction VB renvoyant un tableau de variant
- Tableau croisé dynamique - Guide
- Fonction si et - Guide
- Tableau ascii - Guide
- Tableau word - Guide
- Vb cable - Télécharger - Audio & Musique
6 réponses
il ya des erreurs dans ton code (en plus il lui manque de la lisibilité)
Voici comment il faut faire (je l'ai testé, il marche)
Function MonTableau(Param1 As String, Param2 As String) As Variant
MonTableau = Array(Param1, Param2)
End Function
Sub AppelFonc()
Dim Elem1 As Variant
Elem1 = MonTableau("Emement1", "Element2")
MsgBox Elem1(0) & " " & Elem1(1)
End Sub
Voici comment il faut faire (je l'ai testé, il marche)
Function MonTableau(Param1 As String, Param2 As String) As Variant
MonTableau = Array(Param1, Param2)
End Function
Sub AppelFonc()
Dim Elem1 As Variant
Elem1 = MonTableau("Emement1", "Element2")
MsgBox Elem1(0) & " " & Elem1(1)
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Pour être un peu plus propre niveau mémoire tu peux aussi passer le tableau par référence :
Function MonTableau(Param1 As String, Param2 As String, byRef tabl() as variant)
tabl(0) = param1
tabl(1) = param2
End Function
Sub AppelFonc()
Dim Elem(2) As Variant
MonTableau "Element1", "Element2", Elem
MsgBox Elem(0) & " " & Elem(1)
End Sub
Function MonTableau(Param1 As String, Param2 As String, byRef tabl() as variant)
tabl(0) = param1
tabl(1) = param2
End Function
Sub AppelFonc()
Dim Elem(2) As Variant
MonTableau "Element1", "Element2", Elem
MsgBox Elem(0) & " " & Elem(1)
End Sub
' Une autre solution avec Split
Public Sub Randomise()
Dim str As String, i As Integer
str = Test()
MsgBox (str)
Dim Tableau() As String
Tableau = Split(str, "#")
For i = 0 To 2 - 1
MsgBox (Tableau(i))
Next i
End Sub
Public Function Test() As String
Dim s As String
s = "One"
s = s & "#Two"
Test = s
End Function
