Evaluate en vba

[tiow]

Bonjour à tous,

Je me tourne vers vous pour un problème que je ne comprends pas. Je vais quand même tenter de vous l'exposer.

Je voudrais stocker un numéro de semaine dans une variable que je calcule de la manière suivante:

Evaluate("INT(MOD(INT((F48-2)/7)+0.6,52+5/28))+1")

La cellule F48 contient 04/02/2008 donc la formule ci dessus me renvoie bien 6.

Mon problème survient quand je remplace F48 par Cells(6,48) dans ce cas j'obtient l'erreur 2015.
Sur le site de microsoft il est expliqué que cela peut survenir du fait que mon année n'est pas à 4 chiffres ou d'autre problème mais mon soucis est que F48 ou Cells(6,48) c'est la même chose ...

De plus je souhaite utilisé la syntaxe Cells(,) pour pouvoir utilisé des variable pour les lignes.

Je vous joint un fichier avec quelques test,

Merci de votre aide,
tiow

 

[Gruick]

Re : Evaluate en vba

Bonjour Tiow,

En fait, dans les tests 2 et 3 tu mélanges le language vba au language excel, et donc excel trouve la syntaxe bizarre. L'introduction d'une variable vba dans la formule excel dans la formule evaluate n'est pas compatible.
Regardes l'aide qui, pour une fois, est bien expliquée.

Ne sachant pas ce que tu veux faire, tu devras choisir entièrement vba, soit formules du tableur.

Seul le test1 est adequat.

Gruick

 

[pierrejean]

Re : Evaluate en vba

bonjour tiow

Teste

resulttest2 = Evaluate("INT(MOD(INT((" & Cells(1, 1).Address(0, 0) & "-2)/7)+0.6,52+5/28))+1")

Edit: Salut Gruick

 

[tiow]

Re : Evaluate en vba

Merci pierrejean et gruick

pierrejean, le code que tu m'as passé fonctionne très bien

Une dernière question: pourquoi ?

Merci encore,

tiow

 

[Gruick]

Re : Evaluate en vba

Hello PierreJean

Trop fort, les guillemets, je n'ai pas cherché plus loin que le bout de mon groin....

Mais je pense, si Tiow fait un programme en vba, la fonction evaluate n'est pas indispensable.

A plus,

Gruick

 

[pierrejean]

Re : Evaluate en vba

Re

Parce que je suis meilleur (lol !!!)

Plus serieusement:

Le parametre d' EVALUATE doit etre un string
A partir de la il sufit de reconstituer la formulation telle qu'elle serait mentionnée dans la formule
C'est pour cela qu'a l'emplacement ou il y avait A1 j'ai mis Cells(1,1).Address(0,0) qui vaut "A1"

 

[tiow]

Re : Evaluate en vba

Merci !

 

[tiow]

Re : Evaluate en vba

Mais je pense, si Tiow fait un programme en vba, la fonction evaluate n'est pas indispensable.

Gruick

Re,
tu as surement raison, le problème c'est que je ne sais pas comment retranscrire cette fonction dans mon evaluate en vba "pur" ...
Si tu as des pistes ? Je suis preneur

tiow

 

[Gruick]

Re : Evaluate en vba

re,

Honte à moi,
La fonction modulo du vba est moins puissante que celle du tableur, elle ne prend en compte que les entiers. J'ai appris quelque chose !
C'est donc la formule du génial PierreJean qu'il faudra utiliser.

Gruick

 

[pierrejean]

Re : Evaluate en vba

Re

génial , faut pas pousser !!!
ça fait quand même plaisir ..., merci Gruick
En attendant une fonction personnalisée en Vba pour le Numero de semaine (Europe)