Macro simpliste qui ne s'execute pas.

Version imprimable

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

Merci

Code:

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

18/09/2007, 12h08
K2O2$
Salut,

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

1 2 Worksheet("feuil1").Range("X2").Select ...
18/09/2007, 12h16
klowba

Ah zut, ça ne marche pas. Merci pour ta réponse K2O2$
18/09/2007, 12h21
K2O2$

Pardon...

c'est worksheets("feuil1.....
18/09/2007, 12h26
klowba

Citation:

Envoyé par K2O2$

Pardon...

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

Oui, j'avais remplacé par activesheet
18/09/2007, 12h43
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.
18/09/2007, 14h29
klowba

Citation:

Envoyé par jacques_jean

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.

ah zut, j'ai la v2003 ca doit etre le meme bin's
18/09/2007, 14h57
Invité

En effet, il me semble bien que l'on peut aller plus loin mais seulement à partir de la version 2007.

Il ne sert à rien de ressasser le passé, paraît-il, mais j'ai du mal à comprendre cette limitation alors que déjà en 1986 j'utilisais un intégré (sous Dos) et dans le tableur j'ai utilisé des formules comprenant au moins une quinzaine de "SI" imbriqués et peut-être plus avec si on le voulait la possibilité pour que ce soit plus clair, d'utiliser un éditeur de formule à partir duquel on pouvait mettre en forme un peu comme on le fait en VBA :

Si ........
sinon......
si....
sinonsi......
etc

de ce point de vue, Microsoft n'a pas fait très fort avec Excel.
20/09/2007, 14h42
klowba

En effet c'est vraiment pas pratique.
20/09/2007, 15h42
Invité

Bonjour Klowba,

Une question que j'aurais déjà dû vous poser :

-tenez-vous absolument à insérer la formule dans votre classeur ?

Car en VBA cette limitation n'existe pas et d'autre part on peut faire une boucle donc sans écrire un grand nombre de SI et dans ce cas enregistrer le résultat dans la cellule au lieu d'une formule.