Discussion :

[bigs3232]

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

Code :

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

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 :

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

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

[mercatog]

Code :

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

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 :

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

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

[bigs3232]

merci mercatog .superbe ca marche