Discussion :

[Patitou]

Bonjour,

Je suis une débutante en ce qui concerne VBA. Je travaille sur Microsoft 2003

Dans mon classeur j'ai deux feuilles. Pour les deux feuilles, j'ai déclaré des noms définis (insert/name/define).

L'origine de mon problème est un nom défini nommé "test" dans la feuille2 dont la référence est =EVALUATE(VLOOKUP(feuill2!$D3;feuill1!$A:$AG;17;FALSE)) où VLOOKUP(feuill2!$D3;feuill1!$A:$AG;17;FALSE) renvoie une chaîne de caractères qui en fait est une formule comprenant elle même des noms définis telle que 4*X*Y.

X, Y sont déclarés comme des noms définis à la fois dans les deux feuilles où X renvoie =feuill2!$K3 et Y =feuill2!$L3. X et Y sont des valeurs qui varient dans la feuill2.

Lorsque dans une cellule de la feuil2 j'exécute =test mon résultat s'affiche bien. Par contre lorque je modifie la valeur de X ou Y il faut que je fasse F2 + ENTER dans la cellule pour actualiser mon résultat.

Quelqu'un aurait il une solution pour automatiser cette actualisation qui est pénible manuellement?

N'hésitez pas à poser des questions pour plus d'informations.

Merci d'avance

[pgz]

Bonsoir.

Je pense qu'il y a plusieurs solutions. Tu peux essayer celle-ci:
Dans la cellule où tu a écris "=test", tu remplaces par "=fctTest(Cellule X, Cellule Y)", et tu crées

Code :

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

1
2
3
 fctTest(byval v1 as variant, v2 as variant) as variant
fctTest = [test]
end function

Pour voir.

PGZ

[Patitou]

Bonjour pgz,

Merci beaucoup pour ta réactivité.

J'ai fais ce que tu m'as indiqué mais j'ai l'erreur #NAME? dans ma cellule.
Peut-être je n'exécute pas bien ma fonction.
J'ai écris le code dans l'editeur VBA en sélectionnant la feuille sur laquelle je travaille , ensuite j'ai enregistré et je suis retournée dans la cellule de ma feuille excel faire Enter

[pgz]

Bonjour.

J'ai écris le code dans l'editeur VBA en sélectionnant la feuille sur laquelle je travaille

Il n'y a pas de feuille à sélectionner.
Peux-tu montrer le code de la fonction, et aussi la formule que tu as mise dans la feuille?

PGZ

[Patitou]

Voici le code :

Code :

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

1
2
3
Function fctTest(ByVal v1 As Variant, v2 As Variant) As Variant
fctTest = [test2]
End Function

où test2 =EVALUATE(VLOOKUP(Offres_ALL!$D4;Familles!$A:$AG;17;FALSE))

Maintenant, j'ai écris le code dans un module

Voici la formule dans la feuille

=fctTest( Cellule IPH; Cellule A)où IPH et A sont deux noms définis

ça m'affiche #VALUE comme erreur maintenant

[pgz]

Re,

Il faut plutôt écrire

Code :

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

=fctTest(IPH; A)

avec IPH et A deux noms définis

PGZ

[Patitou]

La modification ne change pas l'erreur. La cellule affiche toujours #VALUE

Qd je suis les étapes du calcul en allant sur "show calculation steps", il prend bien en compte les arguments IPH et A (fctTest ($F$3;$N$3 )mais c'est au niveau de la fonction fctTest que ça affiche #VALUE.

Lorsque que dans le code on fait fctTest = [test], il prend directement en comte le résultat de test ou alors il recalcule comme test

[pgz]

Bonsoir.

A ce stade, il serait plus facile d'avoir un classeur. Peux-tu simplifier ton pb dans un classeur de démonstration?

PGZ

[Patitou]

Bonjour PGZ,

Ci-jointe la petite demo. j'espère que c'est bien ce que tu me demandais.

J'ai aussi remarqué que le "COUNTIF($F3:$J3" qui est dans ma formule ne fonctionne pas quand j'ai 3 champs ou plus qui sont remplis. je ne sais pas pourquoi?

Patitou

[Patitou]

Bonjour PGZ,
as-tu une solution pour moi?

Bonne année 2011