Discussion :

[klowba]

Le code ultra simple ci-dessous plante (erreur 1004) et je ne sais pas pourquoi!
La formule est-elle trop longue?

Merci

Code :

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

1
2
3
4
5
6
7
8
Sub Macro4()
 
    Range("X2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-11]<59,7998;5,99;IF(AND(RC[-11]>59,7999;RC[-11]<119,5998);6,99;IF(AND(RC[-11]>119,5999;RC[-11]<179,3998);7,99;IF(AND(RC[-11]>179,3999;RC[-11]<239,1998);8,99;IF(AND(RC[-11]>239,1999;RC[-11]<298,998);10,99;IF(AND(RC[-11]>298,999;RC[-11]<478,3998);11,99;IF(AND(RC[-11]>479,3999;RC[-11]<597,998);12,99;IF(RC[-11]>597,999;13,99;0))))))))"
    Range("X2").Select
    Selection.AutoFill Destination:=Range("X2:X2371"), Type:=xlFillDefault
    Range("X2:X2371").Select
End Sub

[K2O2$]

Salut,

Ajoute une référence a une feuille devant tes range :

Code :

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

1
2
Worksheet("feuil1").Range("X2").Select
...

[klowba]

Ah zut, ça ne marche pas. Merci pour ta réponse K2O2$

[K2O2$]

Pardon...

c'est worksheets("feuil1.....

[klowba]

Pardon...

c'est worksheets("feuil1.....

Oui, j'avais remplacé par activesheet

[Invité]

Bonjour Klowba,

Avec la version 2000 il est indiqué que vous pouvez imbriquer jusqu'à 7 "SI" et il me semble bien que vous en avez 8.