[VBA-E] Fonction renvoyant un tableau

Version imprimable

Bonjour à tous!
Voila, j'essaye d'ecrire une fontion en VBA qui est censé renoyer un tableau.
Cepedant quand je recupere la variable de cette fontion, le compilateur exel me dis "impossible d'affecter à un tableau cette variable".

voila mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public Function ListerRep(CheminRepertoire As String) As String() Dim tableau(100) As String With Application.FileSearch .LookIn = CheminRepertoire .Filename = "*.sce" If .Execute > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count Debug.Print .FoundFiles(i) Next i Else MsgBox "There were no files found." End If End With ListerRep = tableau End Function
Apres quelques recherches dans les forums, j'ai pu ecrire ca, mais je pense que j'ai du faire une grosse erreur.....

Quelqu'un aurai une idée?
Merci!

05/03/2007, 11h17
helios77
Bonjour,

je crois qu'il est tout simplement impossible de retourner un tableau sous VBA

Ce que je te conseillerais de faire pour pallier à çà

Tu renvois une chaine de caractère qui serait en fait toutes les valeurs de ton tableau séparé apr un "_" par exemple

Ensuite, dans la sub ou tu récupère ces valeurs du tableau, tu fait un truc du genre
Code:

1 2 tontableau = Split(taChaine,"_")
TaChaine est lavaleur retrouné par ta fonction
tontableau est le tableau dans lequel sera stocké l'ensemble des tes fichier
05/03/2007, 11h20
glycerine

Ok merci j'essai ca!
05/03/2007, 11h22
dilkas

Bonjour,

Où mets-tu quelque chose dans ton tableau "tableau" dans ta fonction ??? Parce que ce que l'on voit là dans le code que tu nous propose, c'est seulement une déclaration. A moins que je sois myro :aie:

Et Excel plante à quelle ligne exactement ? Dans ta fonction ou dans la variable qui prend le retour de ta fonction ?
05/03/2007, 11h28
helios77

Elle a juste déclarer la variable tableau mais ne l'a aps alimenté...
C'est juste un test pour voir si elle pouvair retourner un tableau

Dès fois en programmation, quand on s'aventure dans l'inconnu, vaut mieux y aller â tatons et une fois le chemin ouvert, remplir les vrais variables avec les bonnes données
05/03/2007, 12h05
dilkas

Arf oui c'est malin ça !!!

Mais je me suis déjà fait avoir par le comportement (lunaire ?!!!) d'Excel entre variables déclarées et variables affectées c'est pour ça !

Je réfléchirais la prochaine fois :mouarf: !
05/03/2007, 12h43
doringen

Citation:

Envoyé par helios77

je crois qu'il est tout simplement impossible de retourner un tableau sous VBA

on ne peut pas utiliser un "Array" dans un tel cas ?
05/03/2007, 13h59
dilkas
Citation:

doringen a écrit :
on ne peut pas utiliser un "Array" dans un tel cas ?

Bah moi j'en utilise effectivement alors je dirais que l'on peux passer des tableaux par VBA mais je crois que dans ce cas, j'utilise des types variant dans la décalaration de ma fonction. Comme c'est un type un peu "refuge", il fait lui même sa sauce avec ça mais c'est certain que de l'autre coté tu récupères un tableau...
Code:

1 2 3 4 5 6 7 Private TableauDate() As Date Public Function GetTableau() As Variant GetTableau = TableauDate End Function
ce code étant dans une classe ...
05/03/2007, 15h53
helios77

le Variant est très gourmand en mémoire par rapport à un type plus précis genre string, integer ou autres

RETURN AN ARRAY OF VALUES WITH VBA

FONCTION RETURN ARRAY
Parfaitement possible en vba

Réponse la plus proche possible de la demande
de glycérine

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
 
'(COLLER DANS UN MODULE VBA .bas, jusqu'à la version MSOFFICE 2003)
 
Otion Explicit
 
Public Function ListerRep(CheminRepertoire As String) As Variant
Dim Temp_TableauDynamique() As Variant
Dim x, d, i As Integer
 
 
 
With Application.FileSearch
 
.LookIn = CheminRepertoire
.fileName = "*.txt"
 
   'Initialise la première case à 0
   'NbFoundFiles
   ReDim Temp_TableauDynamique(1)
   Temp_TableauDynamique(0) = 0
   If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found with the extension " & .fileName
 
   x = .FoundFiles.Count
   'Debug.Print "Nombre de fichiers: " & x
 
   'Redimensionne le tableau
   ReDim Temp_TableauDynamique(0 To x)
      'InfoNbFilesInThisArray
   Temp_TableauDynamique(0) = x
      'Remplissage du tableau avec le nom des fichiers txt
   For d = 1 To x
   Temp_TableauDynamique(d) = CStr(.FoundFiles(d))
   'Debug.Print Temp_TableauDynamique(d)
   Next d
 
Else
   MsgBox "There were no files found."
End If
End With
 
ListerRep = Temp_TableauDynamique
 
End Function
 
 
 
Sub TesterListerRep()
   Dim InfoUtilisateur As Variant
   Dim Elem1 As Variant
   Dim k As Integer
      Elem1 = ListerRep("C:\")
   'Debug.Print "NbDeFichiersRetournés: " & Elem1(0)
      If Elem1(0) > 0 Then
       For k = 1 To Elem1(0)
          InfoUtilisateur = MsgBox("FichierTrouvé: " & Elem1(k), vbInformation, "LISTE DES FICHIERS")
       Next
   End If
   End Sub

Bonne journée!;)

1 pièce(s) jointe(s)

Bonsoir,

Une fonction matricielle peut renvoyer un tableau.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Function RechvMult2(clé As Range, champ As Range, colResult)
  Application.Volatile
  ncol = Application.Caller.Columns.Count
  Set d = CreateObject("Scripting.Dictionary")
  a = champ.Value
  b = clé.Value
  For i = LBound(a) To UBound(a)
    If d.exists(a(i, 1)) Then
      d(a(i, 1)) = d(a(i, 1)) & " : " & a(i, colResult)
    Else
      d(a(i, 1)) = a(i, colResult)
    End If
  Next i
  Dim temp()
  ReDim temp(LBound(b) To UBound(b), 1 To ncol)
  For i = LBound(b) To UBound(b)
    tmp = d(b(i, 1))
    x = Split(tmp, ":")
    For k = LBound(x) To UBound(x)
      temp(i, k + 1) = x(k)
    Next k
  Next i
  If ncol > 1 Then RechvMult2 = temp Else RechvMult2 = Application.Transpose(temp)
End Function

Ceuzin