Recalcul de formule excel

[petitstagiaire]

Code gentiment donné par STéphane :

Module :
Function demo(rg_modele As Range)
Application.Volatile
demo = Evaluate(rg_modele.Formula)
End Function

Feuil1!A1
=SUM(A2:A5)

Feuil2!A1:
=demo(Feuil1!A1)
'Utilise la formule de Feuil1!A1

Si je change la formule de Feuil1!A1, le nouveau total dans Feuil2!A1 ne se met
pas bien a jour.
Je dois cliquer sur la formule de Feuil2!A1 puis valider pour que ca marche.

Y a-t-il un moyen de rafraichir automatiquement ?

Faites du bien a un ane, il vous fera des crottes.

 

[STéphane]

bonjour ô petit stagiaire


je trouve cela étonnant, pire affolant j'ai voulu réappliquer mes principes ce matin et cela n'a pas voulu marcher ;-(

essaye une chose : dans un évènement worksheet_change de ta feuille 1, tu mets l'instruction application.calculate

ceci va forcer excel à recalculer tout le classeur (l'équivalent du bouton calculer tout le document qui se trouve dans la boîte de dialogue outils/options)


bye
stephane

 

[petitstagiaire]

Je te renvoie ton fichier.
Je viens de constater un autre problème que tu constateras surement toi-même.

 

[STéphane]

j'ai constaté ce matin :-(

 

[petitstagiaire]

Si tu as une autre idée.

sinon je vais voir si je peux nommer mes formules.

Merci qd même.

 

[STéphane]

j'ai beau avoir légèrement modifié légèrement le code comme suit :

Function demo(rg_modele As Range)
Application.Volatile
demo = ActiveSheet.Evaluate(rg_modele.Formula)
End Function


je n'ai pas trouvé la bonne solution
je n'ai qu'une parade horrible à te proposer :

tu mets ça dans ta première feuille
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Sheets("feuil2").Activate: Feuil2.Calculate: Sheets("feuil1").Activate
End Sub

 

[petitstagiaire]

En effet, c'est horrible mais ça marche.
Mais ça m'étonnerait que j'utiliserais ça.

Je veux une solution claire, précise, sans bugs ni bidouilles pour demain matin 9Heures précise (sous peine d'être privé d'excel A VIE).

Sur ce, je te souhaite quand même une bonne petite nuit et à demain.

petitstagiaire