Rechercher : dans
Par :

Fonction VB renvoyant un tableau de variant

Dernière réponse le 12 fév 2007 à 15:07:55 therese94340, le 10 fév 2007 à 09:16:45 
 Signaler ce message aux modérateurs

Bonjour,

je souhaite simplement créé une fonction VB qui me retourne un tableau de variant, je declare la fonction comme ci-dessous et je me prends l'erreur: "Erreur de compilation, argument non facultatif" .... Avez-vous une idée.

Merci pour votre aide.

Function montableau(param1 As String, param2 As String) As Variant()
Set montableau(1) = param1
Set montableau(2) = param2
End Function

Sub AppelFonc()
Dim Elem1 As Variant
Set Elem1 = montableau("Emement1", "Element2")(1)
MsgBox Elem1
End Sub

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Fonction VB renvoyant un tableau de variant » dans :
VBA Un timer une seconde tout simple VoirEn VBA, il n'y a pas (du moins à ma connaissance) de composant Timer. On peut en créer un très facilement. Dans un module de feuille Activer/ dés activer le timer : Placer un bouton sur Feuil1 et mettre le code... Private Sub...
VBScript - Les fonctions et les procédures VoirLa notion de procédure On appelle fonction un sous-programme qui permet d'effectuer un ensemble d'instructions par simple appel dans le corps du programme principal. Cette notion de sous-programme est généralement appelée fonction (ou procédure)...
Langage C++ - Les fonctions VoirLa notion de fonction On appelle fonction un sous-programme qui permet d'effectuer un ensemble d'instructions par simple appel de la fonction dans le corps du programme principal. Les fonctions permettent d'exécuter dans plusieurs parties du...
VBScript - Les fonctions de manipulation de tableaux VoirLes fonctions de manipulation de tableaux Fonction Description Array(arglist) Crée un Variant contenant un tableau. L'argument arglist est la liste des valeurs, séparées par des...

1

 Chemchoum, le 12 fév 2007 à 15:07:55

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

Répondre à Chemchoum