Conversion d'une formule excel en VBA

Bonjour,
Je cherche à traduire deux formules excel en vba.
L'enregistrement en macro me donne :

Code:

---

ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(MATCH(FeuilleBdd!R2C[-8],OFFSET(R2C1:R5000C1,R[-1]C,),0)),"""",ROW(INDEX(OFFSET(R2C1:R5000C4,R[-1]C,),MATCH(FeuilleBdd!R2C[-8],OFFSET(R2C1:R5000C1,R[-1]C,),0),2))-1)"

---

et

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",INDEX(OFFSET(R2C1:R5000C4,R[-1]C[1],),MATCH(FeuilleBdd!R2C[-7],OFFSET(R2C1:R5000C1,R[-1]C[1],),0),4))"

---

Mais je ne voudrais pas ce type de formule car les lignes ne sont pas fixe, ce sont des variables. Il faudrait que toutes les lignes et colonnes soit sous forme de cells()
Pourriez-vous m'aider car je bloque dessus.

Merci d'avance

Bonjour,

cela serait plus simple avec la propriété FormulaLocal ou encore Formula !

Ensuite concaténer les parties fixes de la formule avec les adresses variables des cellules (propriété Address) …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Pourriez-vous m'aider ?
Voila les formules de mes cellules

Code:

---

1 2	=SI(ESTERREUR(EQUIV(FeuilleBdd!A$2;DECALER($A$2:$A$5000;I2;);0));"";LIGNE(INDEX(DECALER($A$2:$D$5000;I2;);EQUIV(FeuilleBdd!A$2;DECALER($A$2:$A$5000;I2;);0);2))-1) =SI(I3="";"";INDEX(DECALER($A$2:$D$5000;I2;);EQUIV(FeuilleBdd!A$2;DECALER($A$2:$A$5000;I2;);0);4))

---

au moins pour une formule que je comprenne le principe

Bonjour,
Sans que ça résout ton problème voilà un exemple d'une formule que j'ai rendu dynamique pour une MFC, peut être que cela peut t'inspirer :
le lien

P'tit exemple dans la discussion VBA insertion d'une formule somme avec des données dynamique …

Hi Marc,
Sympa l'exemple, très explicite :plusser: ;)

Merci beaucoup, grâce à vos deux exemples j'ai réussi !

C'est cool :)
Est-il possible de voir le résultat stp, cela pourra resservir a d'autre
Merci

Les colonnes ont un peut bougées, mais la formule principale reste la même :

Code:

---

1 2 3 4

Cells(j, 12).Formula = _ "=IF(ISERROR(Match(FeuilleBdd!" & Cells(ligne, 1).Address & ",offset(" & Cells(2, 1).Resize(5000, 1).Address & "," & Cells(j - 1, 12).Address _ & ",),0)),"""",ROW(INDEX(offset(" & Cells(2, 1).Resize(5000, 5).Address & "," & Cells(j - 1, 12).Address & ",),match(FeuilleBdd!" & _ Cells(ligne, 1).Address & ",offset(" & Cells(2, 1).Resize(5000, 1).Address & "," & Cells(j - 1, 12).Address & ",),0),2))-1)"

---

et

Code:

---

1 2 3

Cells(j, 7).Formula = _ "=IF(" & Cells(j, 12).Address & "="""","""",INDEX(OFFSET(" & Cells(2, 1).Resize(5000, 6).Address & "," & Cells(j - 1, 12).Address & ",),match(FeuilleBdd!" & _ Cells(ligne, 1).Address & ",offset(" & Cells(2, 1).Resize(5000, 1).Address & "," & Cells(j - 1, 12).Address & ",),0),1))"

---

Merci !