créer un lien dynamique pour une fomule SI à partir du code

Version imprimable

Bonjour à tous,

je voudrais créer des liens dinamyques sur ma feuille excel en passant par du code.
J'ai une fomulle utilisant des SI. Et je voudrais la renseigner dans FL1

Code:

1
2
3
lig = FL2.Columns(3).Find(FenetreFMESUser.LblEffetCalEC.Value, Range("C65536"), , , xlByRows).Row
        FL1.Range("T" & i).Value = "=SI(E" & i & "=0,00%;0,00%;SI(E" & i & "=100,00%;'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & ";SI('[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!E" & lig & "> '[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & ";'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & "/'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!E" & lig & ";100,00%)))"
        FL1.Range("T" & i + 1).Value = "=SI(E" & i & "= 0,00;('[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & "- E" & i & ")/E" & i + 1 & ";SI(E" & i & "=100,00;0,00%;'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!E" & lig & "-E" & i & ")/E" & i + 1 & "))"

lorsque j'exécute mon code les cellules de destinations restent vides et pas d'erreur.
Comment dois-je faire?
Merci à tous pour votre aide

09/07/2007, 19h03
alsimbad

regarde peut-etre a formula et formulalocal
09/07/2007, 19h05
zazaraignée

+1

Formula à la place de Value.

Merci pour vos réponses

j'ai utilisé formulalocal, formula ne marchait pas !
ca marche mais que pour mes lignes au rang i, au rang i +1 ca ne marche plus
:(
Code:

1 2 3 FL1.Range("T" & i + 1).FormulaLocal = "=SI(E" & i & "= 0,00%;'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & "- E" & i & "/E" & i + 1 & _ ";SI(E" & i & "=100,00%;0,00%;'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!E" & lig & "-E" & i & ")/E" & i + 1 & "))"
Est ce que les calculs que je fais sont réalisables?

Oui ils le sont,

:king: ça marche

voilà un exemple de liens dynamiques utilisant des boucles SI imbriquées (pour ceux que ca intéresserait) ;)

Code:

1
2
FL1.Range("T" & i).FormulaLocal = "=SI(E" & i & "=0,00%;0,00%;SI(E" & i & "=100,00%;'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & ";SI('[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!E" & lig & "> '[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & ";'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & "/'[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!E" & lig & ";100,00%)))"
        FL1.Range("T" & i + 1).FormulaLocal = "=SI(E" & i & "=0,00%;('[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & "- E" & i & ")/E" & i + 1 & ";SI(E" & i & "=100,00%;0,00%;SI('[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!E" & lig & "> '[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & ";0,00%;('[FMES-" & NomProjet & ".xls]" & "FMES Equipement" & "'!F" & lig & "-E" & i & ")/E" & i + 1 & ")))"

vive le dev