1004

Version imprimable

Bonjour,

aprés une petite recherche sur les erreurs 1004, je n'arrive pas à trouver d'où vient le problème.
La formule (indigeste) fonctionne correctement lorsque je la saisie dans Excel mais une erreur 1004 apparaît lors de l'execution de la macro
"erreur définie par l'application ou par l'objet"
Le débogage VBA m'arrête sur la formule

Je suis obligé de tester plusieurs possibilités d'où la longueur de la formule. Est-elle trop longue? Est elle mal construite?

EXCEL:

Code:

=SI(OU(ET(C2="y";E2>0;D2="V1");ET(C2="n";E2>0;D2="V1");ET(C2="y";D2="V1");ET(C2="n";D2="PD";OU(E2="0";E2=0));ET(C2="y";D2="PD";OU(E2="0";E2=0));ET(ESTVIDE(C2);ESTVIDE(D2);OU(E2="0";E2=0));ET(C2="n";ESTVIDE(D2);OU(E2="0";E2=0)));"";SI(OU(ET(C2="y";E2>0;D2="PD");ET(C2="n";E2>0;D2="PD"));"Passer en 01";"Passer en 00"))

VBA:
Code:

1 2 3 4 5 FEUILLE.Select Range("F2").Select ActiveCell.FormulaR1C1 = _ "=IF(OR(AND(RC[-3]=""y"",RC[-1]>0,RC[-2]=""V1""),AND(RC[-3]=""n"",RC[-1]>0,RC[-2]=""V1""),AND(RC[-3]=""y"",RC[-2]=""V1""),AND(RC[-3]=""n"",RC[-2]=""PD"",OR(RC[-1]=""0"",RC[-1]=0)),AND(RC[-3]=""y"",RC[-2]=""PD"",OR(RC[-1]=""0"",RC[-1]=0)),AND(ISBLANK(RC[-3]),ISBLANK(RC[-2]),OR(RC[-1]=""0"",RC[-1]=0)),AND(RC[-3]=""n"",ISBLANK(RC[-2]),OR(RC[-1]=""0"",RC[-1]=0))),"""",IF" & _ "RC[-3]=""y"",RC[-1]>0,RC[-2]=""PD""),AND(RC[-3]=""n"",RC[-1]>0,RC[-2]=""PD"")),""Passer en 01"",""Passer en 00""))"
Merci par avance

27/01/2016, 11h43
Tsteel

Essaye de remplacer les virgules par des points virgules pour voir !!!

:weird:
27/01/2016, 12h41
Mauresque13

Bonjour,

l'erreur est toujours là.
pour info, j'ai bien saisi des points virgules lors de l'enregistrement de la macro.

Bonjour Mauresque13,

Il manque toute une partie de la formule :
Code:

1 2 3 Range("F2").FormulaR1C1 = _ "=IF(OR(AND(RC[-3]=""y"",RC[-1]>0,RC[-2]=""V1""),AND(RC[-3]=""n"",RC[-1]>0,RC[-2]=""V1""),AND(RC[-3]=""y"",RC[-2]=""V1""),AND(RC[-3]=""n"",RC[-2]=""PD"",OR(RC[-1]=""0"",RC[-1]=0)),AND(RC[-3]=""y"",RC[-2]=""PD"",OR(RC[-1]=""0"",RC[-1]=0)),AND(ISBLANK(RC[-3]),ISBLANK(RC[-2]),OR(RC[-1]=""0"",RC[-1]=0)),AND(RC[-3]=""n"",ISBLANK(RC[-2]),OR(RC[-1]=""0"",RC[-1]=0))),"""",IF(" & _ "OR(AND(RC[-3]=""y"",RC[-1]>0,RC[-2]=""PD""),AND(RC[-3]=""n"",RC[-1]>0,RC[-2]=""PD"")),""Passer en 01"",""Passer en 00""))"
Par contre je ne m'explique pas pourquoi l'enregistreur en coupe une partie (même problème chez moi)

Il manquait juste (OR(AND( a l'endroit ou la formule est coupé par & _
EDIT :
Je n'ai pas regardé en détail ce que fait cette formule mais j'ai l'impression qu'on peut la simplifier.

Combien a tu de modalité différente par cellules (C2, D2 et E2) ?

Sinon , ça va peut être pas t'arranger mais ça marche avec des $

Code:

1
2
3
4
5
Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(OR(AND(R2C3=""y"",R2C5>0,R2C4=""V1""),AND(R2C3=""n"",R2C5>0,R2C4=""V1""),AND(R2C3=""y"",R2C4=""V1""),AND(R2C3=""n"",R2C4=""PD"",OR(R2C5=""0"",R2C5=0)),AND(R2C3=""y"",R2C4=""PD"",OR(R2C5=""0"",R2C5=0)),AND(ISBLANK(R2C3),ISBLANK(R2C4),OR(R2C5=""0"",R2C5=0)),AND(R2C3=""n"",ISBLANK(R2C4),OR(R2C5=""0"",R2C5=0))),"""",IF(OR(AND(R2C3=""y"",R2C5>0,R2C4=""PD""),AND(R2C3=" & _
        "C5>0,R2C4=""PD"")),""Passer en 01"",""Passer en 00""))"
    Range("A2").Select

27/01/2016, 14h23
Mauresque13

Merci pour ton aide antonysansh, effectivement ça marche mieux avec un code complet !
pour répondre à ta deuxième question:
C : 3 modalités "y" / "n" / vide
D : 3 modalités "V1" / "PD" / vide
E : 3 modalités Valeur > 0 / valeur à 0 / valeur à 0 non convertis en nombre
pour la valeur à 0 de la colonne E je vais convertir la colonne pour obtenir uniquement des nombres. il faut que je l'intègre dans la macro ça me permettra de commencer à simplifier en supprimant cette petite partie de code :

Code:

OU(E2="0")

Code:

OR(RC[-1]=""0"")