Un petit problème de regExp

Bonjour

Avec l'aide du tutoriel de caféine, j'ai découvert les regExp sous access. Il me reste un petit souci, voici mon code (il s'agit de modifier l'étendue de graphiques) :

Code:

---

1 2 3 4 5 6 7 8 9

indexDuree = 91 serie = "=SERIES(limiteValeurs!R1C1,limiteValeurs!R4C1:R223C1,limiteValeurs!R4C2:R223C2,1)" Debug.Print serie.FormulaR1C1 Dim reg As New VBScript_RegExp_55.RegExp reg.Pattern = "(.:R*)(.*)(C.*)" reg.Global = True Debug.Print reg.Replace(serie.FormulaR1C1, "$1" + CStr(indexDuree) + "$3") Set reg = Nothing

---

et le debug qui va avec :

Code:

---

1 2 3

=SERIES(limiteValeurs!R1C1,limiteValeurs!R4C1:R223C1,limiteValeurs!R4C2:R223C2,1) =SERIES(limiteValeurs!R1C1,limiteValeurs!R4C1:R91C2,1)

---

Question : comment faire pour que les 2 occurences de R223 soient modifiées en R91 ?

Merci pour vos éclaircissements

Bonjour

Pourquoi ne pas utiliser la fonction replace ? Sinon, moi j'ai ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() indexDuree = 91 serie = "=SERIES(limiteValeurs!R1C1,limiteValeurs!R4C1:R223C1,limiteValeurs!R4C2:R223C2,1)" Debug.Print serie Dim reg As New VBScript_RegExp_55.RegExp reg.Pattern = "(:R*)(.{1,5})(C)" reg.Global = True Debug.Print reg.Replace(serie, "$1" + CStr(indexDuree) + "$3") Set reg = Nothing End Sub

---

Mais bon je sais pas si ça colle à ton besoin ;)

Merci, ça colle exactement !
J'utilise les regexp au lieu de replace car j'ai des remplacements un peu plus complexes que celui-là à faire aussi. Déjà pour celui-ci, je ne vois pas trop comment faire un remplacement d'une longueur variable (le 223 faire de 1 à 5 caractères, de même que le 91).

Juste une petite question complémentaire : est-on limité en nombre au niveau des captures. En php, c'est limité à 9 je crois, mais en access ?

Désolé de revenir dessus, mais autant j'ai réussi à utiliser et étendre le pattern que Tofalu m'a fourni, autant là je sèche : comment faire pour passer de :

Code:

---

=SERIES(limiteValeurs!R1C1,limiteValeurs!R4C1:R91C1,limiteValeurs!R4C2:R91C2,1)

---

à

Code:

---

1 2	=SERIES(limiteValeurs!R1C1,limiteValeurs!R4+xC1:R91+xC1,limiteValeurs!R4+xC2:R91+xC2,1)

---

c'est à dire décaler de x vers le bas ma série de graphique, mais pas le label ?

Merci