Discussion :

[SpaceFrog]

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]

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

=alpha(C2)

Ctrl+Maj+Entrée pour valider

Re,

ou alors avec la fonction INDEX

Code :

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

=INDEX(alpha(C2);2;1)

te donnera la 2ème réponse

[SpaceFrog]

Ok!
Le coup des colonnes n'a pas fonctionné
Et mon tableau ayant une seul dim j'ai du utiliser :

Code :

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

=INDEX(alpha(C2);2)

ça roule