Discussion :

[guidav]

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 :

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

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 :

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

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

[Tofalu]

Bonjour

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

Code :

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

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

[guidav]

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).

[guidav]

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 ?

[guidav]

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 :

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

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

à

Code :

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

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