fonction personnelle qui retourne un array

**SpaceFrog** · 02/09/2010, 12h11

J'essaye de faire une fonction qui me retourne des matches avec regexp

mais lors de l'appel de la fonction perso dans la cellule je n'aobitne que le premier element du tableau retourné

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Function Alpha(subjectString As String) As Variant
 
Dim myRegExp As RegExp
Dim myMatches As MatchCollection
Dim myMatch As Match
Dim TabRes As Variant
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
 
myRegExp.Global = True
myRegExp.Pattern = "[a-z]+"
Set myMatches = myRegExp.Execute(subjectString)
For Each elt In myMatches
 TabRes = TabRes & elt.Value & "@@@"
Next
 
TabRes = Split(TabRes, "@@@")
 
MsgBox (TabRes(0))
 
Alpha = TabRes
 
End Function

en mod pas à pas Alpha est pourtant bien un array en fin de fonction

dan sla cellule je l'appelle avec alpha(C2) mias je ne sais pas comment obtenir par exempel le second element du tableau retourné ...

**tototiti2008** · 02/09/2010, 12h18

Bonjour Spacefrog,

Il faut l'appeler en matriciel

Par exemple, si tu veux les 4 1ers résultats, sélectionne 4 cellules (sur 4 colonnes, pas sur 4 lignes)
tapes la formule

Code :

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