Les Allergies
Alimentaires
Posez votre question Signaler

Fonction VB renvoyant un tableau de variant

therese94340 1Messages postés 10 février 2007Date d'inscription - Dernière réponse le 24 sept. 2011 à 19:10
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
Lire la suite 

Fonction VB renvoyant un tableau de variant »

4 réponses
Réponse
+32
moins plus
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
Ajouter un commentaire
Réponse
+28
moins plus
Et Merci !!!!
Si personne ne dit merci, ceux qui savent finiront par ne plus répondre !!!
Ajouter un commentaire
Réponse
+4
moins plus
Merci depuis le temps que je cherchais un code clair!
Ajouter un commentaire
Réponse
+1
moins plus
merci!!!
Ajouter un commentaire
Ce document intitulé « Fonction VB renvoyant un tableau de variant » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?