XL 2019 Erreur dans formule R1C1

netparty

XLDnaute Occasionnel
Bonjour à tous

j'essaie de convertir une formule au format R1C1 mais j'ai l'erreur 1004 quand je lance la macro.

La formule original :
=SI(ET($J2="SLA06";$K2="NON CRITIQUE";($AE2*24)>BONUS!$E$8);(ENT($AE2*24)-BONUS!$E$8)*BONUS!$C$8;SI(ET($J2="SLA06";$K2="CRITIQUE";($AE2*24)>BONUS!$J$8);(ENT($AE2*24)-BONUS!$J$8)*BONUS!$H$8;""))

et la R1C1 :
Range("O" & i).FormulaR1C1 = "=IF(AND(RC10=""SLA06"",RC11=""NON CRITIQUE"",(RC31*24)>BONUS!$E$8),(ENT(RC31*24)-BONUS!$E$8)*BONUS!$C$8,SI(ET(RC10=""SLA06"",RC11=""CRITIQUE"",(RC31*24)>BONUS!$J$8),(ENT(RC31*24)-BONUS!$J$8)*BONUS!$H$8,""""))"

Si quelqu'un voit l'erreur car moi je ne la trouve pas

Merci d'avance

Bonne journée
 
Solution
Bonjour.
VB:
.FormulaR1C1 = "=IF(AND(R[1]C10=""SLA06"",R[1]C11=""NON CRITIQUE"",(R[1]C31*24)>BONUS!R8C5),(INT(R[1]C31*24)-BONUS!R8C5)*BONUS!R8C3,IF(AND(R[1]C10=""SLA06"",R[1]C11=""CRITIQUE"",(R[1]C31*24)>BONUS!R8C10),(INT(R[1]C31*24)-BONUS!R8C10)*BONUS!R8C8,""""))"
Vu SI(ET( quelque part au lieu de IF(AND(

Dranreb

XLDnaute Barbatruc
Bonjour.
VB:
.FormulaR1C1 = "=IF(AND(R[1]C10=""SLA06"",R[1]C11=""NON CRITIQUE"",(R[1]C31*24)>BONUS!R8C5),(INT(R[1]C31*24)-BONUS!R8C5)*BONUS!R8C3,IF(AND(R[1]C10=""SLA06"",R[1]C11=""CRITIQUE"",(R[1]C31*24)>BONUS!R8C10),(INT(R[1]C31*24)-BONUS!R8C10)*BONUS!R8C8,""""))"
Vu SI(ET( quelque part au lieu de IF(AND(
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Netparty, Dranreb,
Ou alors conserver la notation "française" avec :
VB:
Range("O" & i).FormulaLocal = _
   "=SI(ET($J2=""SLA06"";$K2=""NON CRITIQUE"";($AE2*24)>BONUS!$E$8);(ENT($AE2*24)-BONUS!$E$8)*BONUS!$C$8;SI(ET($J2=""SLA06"";$K2=""CRITIQUE"";($AE2*24)>BONUS!$J$8);(ENT($AE2*24)-BONUS!$J$8)*BONUS!$H$8;""""))"
Ce qui peut être plus simple à la compréhension si le fichier n'est pas appelé à être utilisé sur un PC en anglais.
 

Discussions similaires

Réponses
8
Affichages
834
Réponses
1
Affichages
1 K

Statistiques des forums

Discussions
315 144
Messages
2 116 724
Membres
112 847
dernier inscrit
kevin1023