Discussion :

[alex.a]

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 :

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

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

[alsimbad]

regarde peut-etre a formula et formulalocal

[zazaraignée]

+1

Formula à la place de Value.

[alex.a]

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 :

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

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?

[alex.a]

Oui ils le sont,

ça marche

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

Code :

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

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