Excel Downloads Forums - Afficher un message

gilles_bsa · 05/05/2008, 08h26

Roland,
Les références circulaires sont faites pour de tel cas (par exemple, si l'on veut que notre marge soit de x% sur le prix de vente net).
Le calcul itératif est toujours actif : à l'ouverture d'Excel sans fichier ouvert (défini par défaut dans mon modèle), à la première ouverture du fichier concerné (où les erreurs apparaissent) et aux ouvertures suivantes (où il n'y a plus d'erreurs).
J'ai résolu mon problème d'une manière pas très élégante : j'ai ajouté le code suivant à PERSONAL.XLSB :

Sub Auto_Open()
Application.ScreenUpdating = False
Workbooks.Add
Application.DisplayAlerts = False
ActiveCell.FormulaR1C1 = "=calc_com(R[1]C,R[2]C,R[3]C)" 'appel de la fonction qui génère l'erreur
Selection.ClearContents
ActiveWindow.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Le premier appel de la fonction qui génère l'erreur est donc exécuté dans une nouvelle feuille à l'ouverture d'Excel sans que l'utilisateur ne le voit et ainsi lors que le fichier demandé s'ouvre il est sans erreurs.

05/05/2008, 08h26	#3 (permalink)
gilles_bsa XLDnaute Nouveau Date d'inscription: avril 2008 Messages: 2	Re : Calcul itératif depuis une XLA Roland, Les références circulaires sont faites pour de tel cas (par exemple, si l'on veut que notre marge soit de x% sur le prix de vente net). Le calcul itératif est toujours actif : à l'ouverture d'Excel sans fichier ouvert (défini par défaut dans mon modèle), à la première ouverture du fichier concerné (où les erreurs apparaissent) et aux ouvertures suivantes (où il n'y a plus d'erreurs). J'ai résolu mon problème d'une manière pas très élégante : j'ai ajouté le code suivant à PERSONAL.XLSB : Sub Auto_Open() Application.ScreenUpdating = False Workbooks.Add Application.DisplayAlerts = False ActiveCell.FormulaR1C1 = "=calc_com(R[1]C,R[2]C,R[3]C)" 'appel de la fonction qui génère l'erreur Selection.ClearContents ActiveWindow.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Le premier appel de la fonction qui génère l'erreur est donc exécuté dans une nouvelle feuille à l'ouverture d'Excel sans que l'utilisateur ne le voit et ainsi lors que le fichier demandé s'ouvre il est sans erreurs. Dernière modification par gilles_bsa ; 05/05/2008 à 10h46.