Formule R1C1 avec variable

Bonjour,

J'utilise cette formule sous forme R1C1 dans VBA mais j'ai une erreur d'exécution 1004. Voici la formule :

Cells(x, y).FormulaR1C1Local = "=RECHERCHEV(R1C" & x & ";'TCD BDD mod'!C77:C112;EQUIV(%PREV!R" & x & "C" & y & ";'TCD BDD mod'!R1C77:R1C112;0);FAUX)"

Une idée de la provenance de l'erreur?

Merci,

J'ai réussi à outrepasser l'erreur d'exécution en changeant la formule mais j'ai un léger soucis

Voici le code VBA :

Sub Prévisionnel()
Dim x As Integer, y As Integer
Sheets("%PREV").Activate
For x = 2 To 45
a = 0
For y = 4 To 40

If Cells(x, y).Text = "DEBUT/FIN" Or Cells(x, y).Text = "FIN" Then
Cells(x, y).Value = 1
End If

If Cells(x, y).Text = "DEBUT" Then
a = 1
End If

If a = 1 Then
Cells(x, y).FormulaR1C1Local = "=RECHERCHEV('%PREV'!LC(-" & y & ");'TCD BDD mod'!C(66):C(101);EQUIV('%PREV'!L(-" & x & ")C;'TCD BDD mod'!L(-" & x & ")C(66):L(-" & x & ")C(101);0);FAUX)"
End If
Next
Next
End Sub

Et voici la formule en L3C11 (ou K3) : =RECHERCHEV('%PREV'!LC(16373);'TCD BDD mod'!C(66):C(101);EQUIV('%PREV'!L(1048573)C;'TCD BDD mod'!L(1048573)C(66):L(1048573)C(101);0);FAUX)

Je ne comprends pas les chiffres issu de mes variables. Elles sont pourtant bornées entre 2 et 45 pour x et 4 et 40 pour y.

Une idée de mon erreur?

Merci,

Bonjour Sothin

Passez à

Cells(x, y).FormulaLocal 

Vous pourrez comme cela y intégrer votre formule comme celle de votre feuille

A+