Discussion :

[guilou339]

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

Code :

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

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 :

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

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

[Marc-L]

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, …

[guilou339]

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

Code :

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

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

[RyuAutodidacte]

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

[Marc-L]

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

[RyuAutodidacte]

Hi Marc,
Sympa l'exemple, très explicite