URGENT: Rafraichir des fonctions VBA

[DPhBxl]

<font color="navy">Bonjour à  tous,</font>

J'ai créé des fonctions perso en VBA basées sur des fonctions existantes (IFSUM <font size="-3"><I>SOMME.SI</I></font> & IFCOUNT <font size="-3"><I>NB.SI</I></font>). Tout fonctionne correctement, mais je me suis rendu compte que les fonctions VBA ne sont pas rafraichies lors d'une modification de valeur dans une cellule contenant une valeur duquel elle dépend.
Autrement dit, la fonction existante SOMME.SI (qui fait la somme de plusieurs cellules en fonction d'une condition) modifie la valeur en temps réel en fonction des valeurs dont elle dépend, mais pas mes fonctions en VBA.

A savoir: les commande VBA <Application.CalculateFull>, <Worksheets(x).Calculate> après un événement CHANGE ne permettent pas le recalcul automatique des formules après la modification des valeurs sur la feuille. Les options de calcul automatiques sont cochées. Le recalcul via la touche F9 n'y change rien.
Seule solution détectée jusqu'à  présent, c'est de sélectionner la cellule contenant la fonction et faire revalider (Enter) le contenu. Ce n'est pas une solution... il y a plus d'un millier de cellules contenant ces formules.

Qui va m'aider à  resoudre ce problème. Mon projet au boulot en dépend <IMG SRC="/images/smiles/embaressed_smile46.gif">

Merci à  tous,

Philippe.

[DPhBxl]

... Une autre solution est d'entrer ce code :

Sub Worksheet_Activate()
for each c in selection
c.formula = c.formula
next
end sub

Ce n'est pas normal de devoir réencoder les formules pour rafraichir le contenu des cellules. Tout se passait comme s'il n'y avait rien dans les cellules lors d'une modification dans d'autres cellules dont dépend la formule !!!

Ce n'est pas normal <IMG SRC="/images/smiles/confused_smile46.gif">

[alain51]

Salut,

Je ne connais pas bien excel, mais je viens de trouver cela:
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
<a href="http://www.vbfrance.com/forum.v2.aspx?ID=39641" target="_blank">http://www.vbfrance.com/forum.v2.aspx?ID=39641</a>