Formule trop longue - solutions ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Formule trop longue - solutions ?

jipo

Kamoulox !

Salut,

Je rencontre un problème. J'ai du code VBA qui génère des formules. Or une des formules générées semble bien trop longue.
Apparemment la limite pour la taille des formules est 1024 octets.
Voici la fameuse formule :

=SUMPRODUCT( N(WEEKDAY(Reg20080101,2)=C$38), N(OFFSET(Reg20080101,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080101,2)=C$38), N(OFFSET(Reg20080101,3,0)="RP" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080102,2)=C$38), N(OFFSET(Reg20080102,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080102,2)=C$38), N(OFFSET(Reg20080102,3,0)="RP" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080103,2)=C$38), N(OFFSET(Reg20080103,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080103,2)=C$38), N(OFFSET(Reg20080103,3,0)="RP" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080104,2)=C$38), N(OFFSET(Reg20080104,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080104,2)=C$38), N(OFFSET(Reg20080104,3,0)="RP" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080105,2)=C$38), N(OFFSET(Reg20080105,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080105,2)=C$38), N(OFFSET(Reg20080105,3,0)="RP" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080106,2)=C$38), N(OFFSET(Reg20080106,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080106,2)=C$38), N(OFFSET(Reg20080106,3,0)="RP" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080107,2)=C$38), N(OFFSET(Reg20080107,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080107,2)=C$38), N(OFFSET(Reg20080107,3,0)="RP" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080108,2)=C$38), N(OFFSET(Reg20080108,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080108,2)=C$38), N(OFFSET(Reg20080108,3,0)="RP" ))
+etc ...

1/ Est-il possible de créer des formules personnelles qui font appel à des sous fonctions du même type que les formules utilisées ci-dessus ? Autrement dit, puis-je remplacer SUMPRODUCT par un appel de fonction dans le corps d'une procédure que j'utiliserai comme une formule ?

2/ Avez-vous une idée pour résoudre mon PB sachant que je ne peux pas raccourcir les noms de plages utilisés ?

---------------
"Comme des pommes d'or sur des ciselures d'argent, Ainsi est une parole dite à propos" (Proverbes de Salomon)

Publicité

jipo

Kamoulox !

Finalement en réfléchissant, y a-t-il moyen de réduire l'expression suivante :

SUMPRODUCT( N(WEEKDAY(Reg20080101,2)=C$38), N(OFFSET(Reg20080101,3,0)="R" ))
+SUMPRODUCT( N(WEEKDAY(Reg20080101,2)=C$38), N(OFFSET(Reg20080101,3,0)="RP" ))

en une expression du style :

SUMPRODUCT( N(WEEKDAY(Reg20080101,2)=C$38), N(APPARTIENT(OFFSET(Reg20080101,3,0),"R", "RP" ))

Dans le 2ème exemple la fonction APPARTIENT n'existe pas ... mais si vous connaissez un truc pour passer du morceau de formule 1 à quelque chose du type du morceau de formule 2, ca m'intéresse.

Merci

Message édité par jipo le 20-06-2008 à 15:07:33

---------------
"Comme des pommes d'or sur des ciselures d'argent, Ainsi est une parole dite à propos" (Proverbes de Salomon)

kiki29

salut, voir aide en ligne sur la création de fonctions personnalisées, elles sont mixables avec les fonctions intégrées d'Excel, pour les fonctions personnalisées utiliser éventuellement Application.Volatile=True ( voir aide en ligne )

Message édité par kiki29 le 21-06-2008 à 14:23:57

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Formule trop longue - solutions ?

Sujets relatifs
Formule sous open offfice base	Bouton pour afficher une cellule qui contient une formule
Copier Formule sur la derniere ligne ajoutee	[Trouve] Formule auto : affectation valeur cellule en "dur"
problème formule excel : valeur d'une cellule précise dans zone nommee	formule dans une requqte
[ASP] - Stopper une exécution si trop longue	probléme affichage d'une longue chaine de caractére
Formule vba avec plage de taille variable	IE7 attraper l'erreur "URL trop longue"
Plus de sujets relatifs à : Formule trop longue - solutions ?

Page générée en 0.028 secondes