fonction personnelle qui retourne un array
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:
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é ...
