une fonction pour regex expression rationnelle

j'aimerais créer une fonction pour créer object reg expression pour réutiliser partout .j'ai donc créer comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function f_reg_ex() Dim reg As VBScript_RegExp_55.RegExp Set reg = New VBScript_RegExp_55.RegExp With reg .Global = True .MultiLine = True .IgnoreCase = True .pattern = strPattern End With f_reg_ex = reg End Function

---

et l'appeler comme ceci

Code:

---

1 2 3 4 5

f_reg_ex.pattern = "\s+" For Each c In plage If c.Value <> "" Then c.Value = f_reg_ex.Replace(c.Value, "-") + ".jpg" Next c

---

apparemment celà ne semble pas marcher.je ne suis pas sur que c'est possible de faire celà.
si vous avez une idée .
merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10

Function f_reg_ex(ByVal Expression As String, ByVal Replacement As String, ByVal StrPattern As String) As String   With CreateObject("vbscript.regexp") .Global = True .MultiLine = True .IgnoreCase = True .Pattern = StrPattern f_reg_ex = .Replace(Expression, Replacement) End With End Function

---

Code:

---

1 2 3

For Each c In plage If c.Value <> "" Then c.Value = f_reg_ex(c.Value, "-", "\s+") + ".jpg" Next c

---

Ainsi, la fonction est appelée à chaque tour de boucle

merci mercatog .superbe ca marche