Discussion :

[Marin d'Eau Douce]

Bonjour,

Je veux écrire dans une cellule une formule du style

Code :

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

=SI(...;alors...;sinon...)

.
Le problème est que j'ai une erreur VBA

Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet

.
En fait, ça vient du fait qu'il y a des points-virgule dans ma formule, et que je ne peux les insérer.
Comment faire pour écrire les points-virgule ?

Cordialement,

[jfontaine]

Bonjour,

Peux tu nous faire voir le code que tu as utilisé

[Marin d'Eau Douce]

Le code est long et compliqué :

Code :

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

xlApp.worksheets("data").Cells(Lig, 7).Formula = "=SI(ESTNUM(B" & Lig & ");SI(ESTNUM(C" & Lig & ");SI(DATEDIF(B" & Lig & ";(C" & Lig & " + 1);""md"")=0;(DATEDIF(B" & Lig & ";(C" & Lig & " + 1);""y"")*12) + DATEDIF(B2;(C" & Lig & " + 1);""ym"");(DATEDIF(B" & Lig & ";(C" & Lig & " + 1);""y"")*12) + DATEDIF(B" & Lig & ";(C" & Lig & " + 1);""ym"") + 1);0);0)"

En attendant, j'ai tester l'écriture d'un ; dans une cellule comme ça et ça ne marche pas :

Code :

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

xlApp.worksheets("data").Cells(Lig, 7).Formula = "=;"

Mais si j'écris un simple ; qui n'est pas dans une formule en enlevant le =, je n'ai pas d'erreur.

[jfontaine]

utilise FormulaLocal à la place de Formula qui attend une formule au format anglais (If(a>1,oui,non))

[Marin d'Eau Douce]

Ok merci.
Ca plante toujours en revanche.

[jfontaine]

Erreur de code ou formule non correct?
Si message d erreur lequel

[Marin d'Eau Douce]

L'erreur est

Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet.

L'entête de la fenêtre d'erreur est Microsoft Visual Basic.

[jfontaine]

Chez moi la ligne ci dessous ne pose pas de problème

Code :

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

xlApp.worksheets("data").Cells(Lig, 7).FormulaLocal = "=SI(ESTNUM(B" & Lig & ");SI(ESTNUM(C" & Lig & ");SI(DATEDIF(B" & Lig & ";(C" & Lig & " + 1);""md"")=0;(DATEDIF(B" & Lig & ";(C" & Lig & " + 1);""y"")*12) + DATEDIF(B2;(C" & Lig & " + 1);""ym"");(DATEDIF(B" & Lig & ";(C" & Lig & " + 1);""y"")*12) + DATEDIF(B" & Lig & ";(C" & Lig & " + 1);""ym"") + 1);0);0)"

Quelle est la valeur de Lig chez toi.

[Marin d'Eau Douce]

La valeur de Lig varie, elle commence à 2 et est incrémentée de 1. Bien sûr, ça plante à 2.

[jfontaine]

pas de plantage non plus avec lig = 2 chez moi