bloquage d' excel

**deubelte** · 25/09/2007, 09h33

Bonjour
Je suis travaille actuellement sur un logiciel de "pricing" en finance, sous VBA et Excel, dans lequel j'ai fait des macros en VBA.
Ce sont des calculs qui peuvent etre parfois assez "longs". (environ 1 minute)

Il se touve que quand je lance ces calculs, Excel s'execute, mais il plante apres ces calculs. Plus exactement, il se bloque.

Pour debloquer excel, il faut cliquer sur la crois rouge en haut a droite.
Et pour reutiliser excel, il faut sauvergarder le fichier, puis le fermer et le relancer.
Mais meme apres cette operation, ca se rebloque

Est ce que vous comprenez le probleme auquel je suis confronté?
Si vous avez deja rencontré ce genre de pb, comment peut on les resoudre?

Il ne me semble pas que les calculs soient intensifs.
Ca dure tout au plus une minute.
Il faut savoir que j'utilise des DLL, que j'ai faite moi meme, mais ca ne change rien.
faut il libere de la mémoire?
Merci

en revanche quand j'ouvre l'environnemen VBA
et que je lance macro apres macro, ca ne se bloque pas tout le temps

Je pb est que l'utilisateur du fichier ne vas pas ouvrir vba et lancer les macros a la main
il va cliquer sur les boutons du logiciel VBA, et qui le font bloquer comme je le decris precedemment

**Gorfael** · 25/09/2007, 11h10

Envoyé par deubelte

en revanche quand j'ouvre l'environnemen VBA
et que je lance macro apres macro, ca ne se bloque pas tout le temps

Je pb est que l'utilisateur du fichier ne vas pas ouvrir vba et lancer les macros a la main
il va cliquer sur les boutons du logiciel VBA, et qui le font bloquer comme je le decris precedemment

Salut
Déjà, édite tes postes au lieu d'en ajouter

Si "ca ne se bloque pas tout le temps", il serait interessant de savoir
- quand
- si c'est toujours au même endroit
- si ça dépend du travail demandé
etc...

S'il se bloque, c'est qu'il a de bonnes raisons de le faire.

Comme tu n'as pas de message d'erreur, je pense plutôt à un problème extérieur, sauf que ça peut simplement être une boucle infinie, mais là, ma boule de cristal étant en panne, je ne peux pas t'aider.

Regardes si dans tes macros, tu as des instructions dont le champ est "Application" et vérifies qu'elles ne provoquent pas ton problème

Si tu as des macros à lancement automatique, (worksheet_Change par exemple) vérifies qu'elles n'induisent pas une séquence infinie, etc...

Comme je ne suis pas devin, je ne peux aller plus loin sans infos

A+

**deubelte** · 25/09/2007, 11h29

merci pour la reponse

Envoyé par Gorfael

Si "ca ne se bloque pas tout le temps", il serait interessant de savoir
- quand

Generalement, a la fin de la macro que je veux exectuer.

Envoyé par Gorfael

- si c'est toujours au même endroit

Oui, a la fin.

Envoyé par Gorfael

- si ça dépend du travail demandé

non

En gros, la feuille excel reste figée. Je ne peux plus cliquer dessus.

Envoyé par Gorfael

sauf que ça peut simplement être une boucle infinie

pas de boucle infinie, ni d'appel recursif.

Envoyé par Gorfael

Application

Il y a des declaration avec "application" du style:
Application.AddIns.Add
ou

Application.ScreenUpdating = False

ou :
Application.Pi()

Envoyé par Gorfael

(worksheet_Change par exemple)

non

Ce qui se passe, c'est que la macro s'execute tres bien.
Mais la feuille excel reste figée lorsque je passe de l'envi VBA vers l'envi Excel.
Il faut fermer la feuille pour la relancer.
Pour l'instant, je declare tous les types, toutes les variables avec byval, byref
et on verra ensuite

peut etre est-ce un pb de mémoire.

Mais je peux pas en dire plus

**Pierre Fauconnier** · 25/09/2007, 11h36

Bonjour

Souvent,

Code :

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

application.screenupdating = false

suffit et il n'est pas nécessaire que la macro se termine par

Code :

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

application.screenupdating = true

, mais parfois, ne pas repasser le rafraîchissement d'écran à TRUE en fin de macro peut bloquer l'affichage. J'ai déjà constaté cela notamment après une modification de mise en page.

Dès lors, il serait peut-être intéressant que tu ajoutes une ligne en fin de macro.

Tu nous dis ce qu'il en est?

**ouskel'n'or** · 25/09/2007, 11h43

Avant toute macro, mets déjà et si ce n'est déjà fait

Code :

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

Option Explicit

Le seul moyen de savoir si toutes tes variables sont déclarées.
Les questions que je me pose...
As-tu des goto dans ton code ?
Fais-tu appel à un Timer ?
Utilises-tu Application.screenUpdating = False ?
Le remets-tu à true en sortie ?
Etc.
Pour t'aider, il serait intéressant de nous montrer le code de sortie de macro.
A+

**deubelte** · 25/09/2007, 11h43

Envoyé par Pierre Fauconnier

Tu nous dis ce qu'il en est?

non pb,

par ailleurs, j'en profite pour vous signaler une autre erreur
je viens de declarer touts les types:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function sig(ByVal f As Double, ByVal k As Double, ByVal beta As Double, ByVal nu As Double, ByVal alpha2 As Double, ByVal _
 tex As Double, ByVal rho As Double)
Dim D1, D2, z, N11, N12, N13, n1 As Double
 
D1 = 1 / ((f * k) ^ (0.5 - 0.5 * beta) * (1 + (1 - beta) ^ 2 / 24 * (Log(f / k) ^ 2 + (1 - beta) ^ 4 / 1920 * (Log(f / k) ^ 4))))
 
z = nu / alpha2 * (f * k) ^ (0.5 - 0.5 * beta) * Log(f / k)
 
D2 = 1 / (Log((Sqr(1 - 2 * rho * z + z * z) + z - rho) / (1 - rho)))
 
N11 = (1 - beta) ^ 2 / 24 * alpha2 ^ 2 / (f * k) ^ (1 - beta)
N12 = 0.25 * rho * beta * nu * alpha2 / (f * k) ^ (0.5 - 0.5 * beta)
N13 = (2 - 3 * rho * rho) / 24 * nu * nu
 
n1 = (1 + tex * (N11 + N12 + N13))
 
sig = alpha2 * z * D2 * n1 * D1
'SIG = z
End Function

et quand je lance, et que le curseur jaune se trouve sur D1
il y a un message d'erreur qui dit:

Run-time errror 16
expression too complex

Ca le faisait pas avant

**ouskel'n'or** · 25/09/2007, 11h50

Pour D1, utilise des variables intermédiaires

Envoyé par deubelte

Ca le faisait pas avant

Je suppose que ça doit dépendre de la charge du µp à l'instant T...
Le pb est que pendant qu'il travaille sur une ligne, la procédure se poursuit. Laisse-lui du temps de faire les calculs
Si tu ne veux pas utiliser de variables intermédiaires, teste en ajoutant un DoEvents après chaque ligne de calculs (sans garantie aucune mais tu peux tester, tu en tireras toujours "une" conclusion...)
A+

**Pierre Fauconnier** · 25/09/2007, 11h50

Attention
Ta ligne

Code :

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

Dim D1, D2, z, N11, N12, N13, n1 As Double

ne déclare par D1, D2... comme Double, mais seulement n1. Les autres variables sont par défaut des Variant.

Tu es obligé d'écrire

Code :

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

dim D1 as Double, D2 as Double, ...

pour préciser le type de chaque variable.

As-tu pu tester le screenupdating = true ?

**deubelte** · 25/09/2007, 11h51

merci pour la reponse
Fais-tu appel à un Timer ?
>>non
Utilises-tu Application.screenUpdating = False ?
>>oui, mais plus maintenant
Le remets-tu à true en sortie ?
>non

As-tu des goto dans ton code ?
>>non

Au fait, quel est l'intérêt, outre bien sur pour la propreté du code, de déclarer les types?
Y a t il une raison autre que la rapidité du code?

Sinon, j'ai enlevé les screenupdating, il semle que ca ne plante plus.

**deubelte** · 25/09/2007, 11h53

Merci pour l'info:

Ta ligne
Code :

Dim D1, D2, z, N11, N12, N13, n1 As Double

ne déclare par D1, D2... comme Double, mais seulement n1. Les autres variables sont par défaut des Variant.

Tu es obligé d'écrire
Code :

dim D1 as Double, D2 as Double, ...

pour préciser le type de chaque variable.

Parce que je croyais que ca declarait toute la ligne en double
et je fais ca tout le temps

**ouskel'n'or** · 25/09/2007, 11h56

Sinon, j'ai enlevé les screenupdating, il semble que ca ne plante plus.

Une explication possible : Application.screenUpdating = False accélère les procédures. En l'enlevant, tu les ralentis. Essaie de le remettre et d'ajouter un DoEvents entre chaque ligne de calculs. Tu testes et tu nous dis. Si c'est bon, ce sera plus propre que d'enlever un code qui accélère les procédures.

Mais remets-le à True en sortie.
A+

**Pierre Fauconnier** · 25/09/2007, 11h58

Le screenupdating permet d'accélérer l'exécution du code, parfois de manière substantielle.

Il est donc, à mon sens, préférable de le laisser, mais de vérifier la sortie de la macro.

Personnellement, je n'aimes pas les Exit Sub, car ils permettent trop de portes de sortie.
Je préfère utiliser une étiquette Fin après laquelle je ferme mes objets, je remets mes options d'application (screenupdating, Calculation, ...) comme elles étaient avant ma macro...
Exemple de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub MaMacro()
    On Error Goto Fin:
    Application.Screenupdating = False
    if Condition1 then goto Fin ' plutôt que Exit Sub
    ...
    ...
 
Fin:
    if err<>0 then msgbox "Erreur"
    Application.ScreenUpdating = True
End Sub

Code plus propre, une seule sortie de procédure ou de fonction. Tu contrôles donc mieux les différents paramètres, et tu peux sortir "proprement" de ta procédure

Ok?

**deubelte** · 25/09/2007, 12h00

Ok, merci pour les reponses

je vais essayer le DoEvent
Je sais pas ce que c'est mais je vais etudier

Je vais modifier tous les typages que j'ai fait du style
Dim ,,,,, as double

Parfois quand je lance une macro, et que je la stope,
il y a un message d'erreur qui dit:

Code :

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

1
2
 
Device I/O error

Ca signifie quoi?
Merci

**Pierre Fauconnier** · 25/09/2007, 12h02

Envoyé par deubelte

Parfois quand je lance une macro, et que je la stope,
il y a un message d'erreur qui dit:

Code :

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

1
2
 
Device I/O error

Ca signifie quoi?
Merci

Tu peux avoir ce problème avec l'installation/désinstallation d'Add-In, lorsque l'Add-In est désinstallé puis appelé par le code (souvent évènementiel). Mais cette erreur générique peut avoir beaucoup d'autres causes, et il serait illusoir e de croire que les messages d'erreurs sont tous explicites. Pour ma part, je considère par défaut qu'ils sont tous sybillins...

**Pierre Fauconnier** · 25/09/2007, 12h04

Salut Ouskel'n'or...

C'est effectivement un problème Input/Output...

**ouskel'n'or** · 25/09/2007, 12h05

Envoyé par deubelte

je vais essayer le DoEvent
Je sais pas ce que c'est mais je vais etudier

J'ai bien mis à tout hasard... DoEvents permet (pas toujours) au système de faire ses petites affaires avant de passer à autre chose

Salut Pierre, de retour ? Tu manquais

**deubelte** · 25/09/2007, 12h06

Ok merci
Je vais voir pour doevent

Mais voici en fait comment je declare ma macro:

Code :

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

1
2
3
4
5
6
7
 
Sub Macro
Call Function1
Call Function2
Call Function3
...
End sub

Je peux faire par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Macro
 
Application.Screenupdating=False
Call Function1
Call Function2
Call Function3
..
Application.Screenupdating=True
End sub

Je pense que il y avait plusieurs Application.Screenupdating=True
dans les fonctions.
Comme je ne declarais pas a la fin:
Application.Screenupdating=False,
ca fait qu'on avait des déclarations "emboitées".