Discussion :

[andreamat]

Bonjour a tous, j ai un problème concernant le remplissage d'une cellule excel par access. Je souhaite entrer une formule "=..." et j ai une erreur 1004 si je met le égal.

Voici mon code, il fonctionne avec un ' devant le égal ou sans le égal. Mais je ne peut mettre "=" pour que access comprenne que c'est une formule.

Merci d avance

For i = 3 To 100
xlSheet.Cells(i, 69).Value = "'" & "=" & "IF" & "(H" & i & "=""Proj Active"";" & "(IF(N" & i & "="""";"""";(MetricCalc!$C$2-N" & i & ")/30));"""")"
Next i

celui ci me fait une erreur

For i = 3 To 100
xlSheet.Cells(i, 69).Value = "=" & "IF" & "(H" & i & "=""Proj Active"";" & "(IF(N" & i & "="""";"""";(MetricCalc!$C$2-N" & i & ")/30));"""")"
Next i

[Muhad'hib]

Salut et bienvenu sur le forum.

1- Tu n'est pas dans le bon forum, ici c'est pas pour les questions, mais pour mettre les code sources, les bonnes idées, les contributions ... Va ici plutot.
Un modérateur se chargera surement de déplacer le post.

2- pour ton pb c'est pas cells.value mais cells.FormulaR1C1 pour mettre une fonction.


=>

Code :

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

1
2
3
4
 
For i = 3 To 100
xlSheet.Cells(i, 69).FormulaR1C1 = "'" & "=" & "IF" & "(H" & i & "=""Proj Active"";" & "(IF(N" & i & "="""";"""";(MetricCalc!$C$2-N" & i & ")/30));"""")"
Next i

A+