Discussion :

[Idoubi]

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 :

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

"=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 :

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

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

[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 :

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

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

Cdlt

[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 :

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

"=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 :

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

"=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.

[Idoubi]

Dernière petite question :

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

Code :

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

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

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

.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

[ARTURO83]

Bonjour,

Essayez ceci

Code :

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

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

[Idoubi]

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 :

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

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?