Erreur dans Code Index Equiv R1C1

Version imprimable

Bonsoir,

J'ai une erreur de syntaxe dans mon code et je n'arrive pas à la trouver.

----------------

Initialement, si le tableau est statique, j'ai ça, et ça marche très bien :

Code:

"=INDEX('XXXX'!R2C2:R10C10,MATCH('YYYY'!RC2,'XXXX'!R2C1:R10C1,0),MATCH('YYYY'!RC3,'XXXX'!R1C2:R1C10,0))"

Mais si je veux changer le 10 par un nombre dynamique, ça bloque.

Ci-dessous le code.
Code:

1 2 3 4 5 6 7 8 9 Dim DerLig1, DerLig2 As Long DerLig1 = Worksheets("XXXX").Range("A" & Rows.Count).End(xlUp).Row DerLig2 = Worksheets("YYYY").Range("B" & Rows.Count).End(xlUp).Row With Sheets("YYYY").Range(Cells(2, 4), Cells(DerLig2, 4)) 'La formule s'applique de D2 à Dmax sur la feuille YYYY .FormulaR1C1 = "=INDEX('XXXX'!R2C2:R" & DerLig1 & "C"& DerLig1 ",MATCH('YYYY'!RC2,'XXXX'!R2C1:R"&Derlig1&"C1,0),MATCH('YYYY'!RC3,'XXXX'!R1C2:R1C"&DerLig1",0))" End With
Sur XXXX le tableau est forcément carré d'où DerLig1 utilisé pour le nombre de lignes et de colonnes.

Si nécessaire je mettrai un fichier, mais vu qu'il s'agit d'un problème de syntaxe...

Merci beaucoup

13/04/2021, 05h41
ARTURO83

Bonjour,

.FormulaR1C1 = "=INDEX('XXXX'!R2C2:R" & DerLig1 & "C"& DerLig1 ",MATCH('YYYY'!RC2,'XXXX'!R2C1:R"&Derlig1&"C1,0),MATCH('YYYY'!RC3,'XXXX'!R1C2:R1C"&DerLig1",0))"
il manque des "&" après "Derlig1"

Si la formule est sur la feuille "YYYY", on peut supprimer "YYYY" dans la formule.

La formule corrigée, mais non testée:

Code:

.FormulaR1C1 = "=INDEX('XXXX'!R2C2:R" & DerLig1 & "C" & DerLig1 & ",MATCH(RC2,'XXXX'!R2C1:R" & DerLig1 & "C1,0),MATCH(RC3,'XXXX'!R1C2:R1C" & DerLig1 & ",0))"

Cdlt
13/04/2021, 18h23
Idoubi

Arturo83, une fois de plus merci. A part vous, personne d'autre ne semble se prononcer en VBA ici on dirait. 2 sujets et à chaque fois c'est vous qui m'aidez! Merci

Bref, après ajout des &, il s'avère que le problème était aussi lié aux espaces.

Je l'avais écrit comme ça, et il y a avait un problème d'instruction :

Code:

"=INDEX('XXXX'!R2C2:R" & DerLig1& "C" & DerLig1& ",MATCH(RC2,'XXXX'!R2C1:R" & DerLig1& "C1,0),MATCH(RC3,'XXXX'!R1C2:R1C" & DerLig1& ",0))"

En fait, il fallait écrire (ce que vous aviez fait) :

Code:

"=INDEX('XXXX'!R2C2:R" & DerLig1 & "C" & DerLig1 & ",MATCH(RC2,'XXXX'!R2C1:R" & DerLig1 & "C1,0),MATCH(RC3,'XXXX'!R1C2:R1C" & DerLig1 & ",0))"

J'ignorais ce qui pouvait déranger le logiciel. En écrivant, la réflexion m'est venue... En écrivant DerLig1&, cela sous-entend que ma variable s'appelle DerLig1&, et non DerLig1... Bête, mais bon, ça ne m'a pas sauté directement aux yeux.

Merci beaucoup.
13/04/2021, 18h38
Idoubi

Dernière petite question :

J'ai une fonction IF qui va contenir cette fonction INDEX EQUIV.

Code:

.FormulaR1C1 = "=IF(INDEX('XXXX'!R2C2:R" & DerLig1 & "C" & DerLig1 & ",MATCH(RC2,'XXXX'!R2C1:R" & DerLig1 & "C1,0),MATCH(RC3,'XXXX'!R1C2:R1C" & DerLig1 & ",0))=0, ""Blablabla"", INDEX('XXXX'!R2C2:R" & DerLig1 & "C" & DerLig1 & ",MATCH(RC2,'XXXX'!R2C1:R" & DerLig1 & "C1,0),MATCH(RC3,'XXXX'!R1C2:R1C" & DerLig1 & ",0)))".

Y a t il possibilité de renommer cet index equiv, en le définissant avant, de sorte à me retrouver avec qqch du genre :

Code:

.FormulaR1C1 = "=IF(FORMULE=0, ""Blablabla"", FORMULE)"?

C'est plus digeste en lecture même si ça ne change effectivement rien à l'exécution de la procédure.

Merci

Bonjour,

Essayez ceci

Code:

1
2
3
4
5
Formule_1 = "INDEX('XXXX'!R2C2:R" & DerLig1 & "C" & DerLig1 & ",MATCH(RC2,'XXXX'!R2C1:R" & DerLig1 & "C1,0),MATCH(RC3,'XXXX'!R1C2:R1C" & DerLig1 & ",0))"
Formule_2 = "INDEX('XXXX'!R2C2:R" & DerLig1 & "C" & DerLig1 & ",MATCH(RC2,'XXXX'!R2C1:R" & DerLig1 & "C1,0),MATCH(RC3,'XXXX'!R1C2:R1C" & DerLig1 & ",0))"
With Sheets("YYYY").Range(Cells(2, 4), Cells(DerLig2, 4))
    .FormulaR1C1 = "=IFERROR(IF(" & Formule_1 & "=0, ""Blablabla"", " & Formule_2 & "),"""")"
End With

Cdlt

Niquel merci BEAUCOUP

Bon j'ai fait différemment. Je pense que je m'étais mal exprimé.

En gros comme formule_1 = formule_2, il me fallait juste ça :
Code:

1 2 3 4 Formule_1 = "INDEX('XXXX'!R2C2:R" & DerLig1 & "C" & DerLig1 & ",MATCH(RC2,'XXXX'!R2C1:R" & DerLig1 & "C1,0),MATCH(RC3,'XXXX'!R1C2:R1C" & DerLig1 & ",0))" With Sheets("YYYY").Range(Cells(2, 4), Cells(DerLig2, 4)) .FormulaR1C1 = "=IF(" & Formule_1 & "=0, ""Blablabla"", " & Formule_1 & ")" End With
Ce qui est fou c'est que Formule_1 arrive comme ça comme un cheveu sur la soupe. VBA traite ça comme une variable ou juste comme un texte raccourci?