Discussion :

[Mauresque13]

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 :

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

=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 :

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

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

[Tsteel]

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

[Mauresque13]

Bonjour,

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

[antonysansh]

Bonjour Mauresque13,

Il manque toute une partie de la formule :

Code :

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

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) ?

[Tsteel]

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

Code :

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

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

[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 :

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

OU(E2="0")

Code :

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

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