executer code vba apres le calcul automatique des fomules

Version imprimable

15/12/2011, 15h50
LaPanic

executer code vba apres le calcul automatique des fomules

Bonjour,

j'ai un userform dans laquelle j'affiche et j'actualise un graphe par code vba et ce graphe est lié a une série de cellules dans lesquelles il y a des formules
le problème est que des-fois le graphe s'affiche avant que les formules ne soient actualisées (calcule automatique des formules) donc le graphe affiche les anciennes données avant le calcul
y a t-il le moyen de démarrer l’exécution du code vba après le calcul automatique des formules ?

Merci pour votre aide
15/12/2011, 16h42
comme de bien entendu
Bonjour,
Je te propose avant de lancer ton affichage de vérifier que les formules se soient executés.
Si une des formules affiche une valeur à la fin des process de calcul automatique, tu peux t'en servir comme condition.
Sinon tu peux créer ta propre formule dans un module.
Code:

1 2 3 4 5 function Verif() as int application.volatile activesheet.range("TestFin")=1 ' TestFin est une cellule nommée end function
tu mets "=Verif" dans une cellule en bas à droite de ton fichier.
(en plus tu pourrais vérifier que les autres fonctions sont passées avant
que Verif s'execute)
Et dans ton code de graphe du vérfie la valeur de la cellule nommée "TestFin"..
Voila.
Ca devrait le faire.
18/12/2011, 17h03
LaPanic

Merci pour ta réponse,
je trouve l’idée inintéressante mais je n'arrive pas a utiliser la fonction et quand je fais des changements et j'actualise les formules rien ne se passe et la fonction '=verif' renvoi #NOM?
merci pour votre aide
18/12/2011, 21h47
comme de bien entendu
Bonjour,

J'ai oublié de faire une fonction correcte, qui doit renvoyer une valeur
Voilà la correction
Code:

1 2 3 4 5 6 7 8 Function verif() As Integer Application.Volatile If ActiveSheet.Range("Verif") = 1 Then verif = 1 Else verif = 0 End If End Function
Verif est bien sûr une cellule nommée, que tu peux placer ou tu veux.
verif() étant une fonction que tu dois glisser dans un module de code.
(insertion->Module dans VBE)

Voilà bonne semaine.
19/12/2011, 15h24
LaPanic

merci
ça ne marche pas ou bien je n'arrive pas a afficher le graphe après l'actualisation des formules
est ce que je peux faire quelque chose avec Worksheet_Calculate ??
merci pour votre aide
19/12/2011, 15h53
comme de bien entendu

Bonjour,
Est ce que tu as bien posé une condition dans ton graphe
qui implique la création du graphe une fois qu'une formule
a rendu son résultat ?
Le Worksheet.calculate peut effectivement forcer le calcul.
On peut aussi mettre application.calculation=xlCalculationAutomatic
au démarrage de ton code.
En souhaitant que cela marche. Sinon soumet nous le code de ton graphe
pour voir comment l'activer en fonction d'un résultat extérieur.
Bye.

slt
au fait le graph a actualiser est sur un userform et que j'actualise a partir d'une liste déroulante
la fonction 'Verif' est dans lacellule

Code:

Sheets("calculation").Range("G1")

et pointe dans la cellule

Code:

Sheets("calculation").Range("H1")

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox3_Change()
 
Sheets("calculation").Range("H1").Value = 0
Sheets("calculation").Range("F1") = ComboBox3.ListIndex
 
 
Sheets("calculation").Range("H1").Value = 1
 
        Do Until Sheets("calculation").Range("G1").Value = 1
 
       Loop
 
listbox1_Update
 
littleChart
End Sub

et listbox1_Update

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Public Sub listbox1_Update()
 
Dim X As Integer, i As Integer, j As Integer
Dim Tableau(13), Plage(13)
 
If ComboBox1.Value = "Column 3D" Then
 
    For i = Cht.SeriesCollection.Count To 1 Step -1
        Cht.SeriesCollection.Delete i - 1
    Next i
    For i = 2 To 13
        Tableau(i) = Sheets("calculation").Cells(2, 2 + i)
    Next i
    With Cht
    .HasLegend = True
    .Legend.Position = chLegendPositionBottom
    End With
For j = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(j) = True Then
        If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
        For i = 2 To 13
            Plage(i) = Sheets("calculation").Cells(j + 3, 2 + i)
        Next i
        With Cht
            .SetData C.chDimCategories, C.chDataLiteral, Tableau
            .SeriesCollection(X).Caption = Sheets("calculation").Cells(j + 3, 1)
            .SeriesCollection(X).SetData C.chDimValues, C.chDataLiteral, Plage
'            .SeriesCollection(x).Interior.Color = 50000 * (j + 1)
            .SeriesCollection(X).Interior.Color = 90000 * (j + 3)
            .SeriesCollection(X).Line.Color = 90000 * (j + 3)
 
        End With
        X = X + 1
        Erase Plage
      End If
Next j
 
 Else
    For i = Cht.SeriesCollection.Count To 1 Step -1
        Cht.SeriesCollection.Delete i - 1
    Next i
    For i = 1 To 13
        Tableau(i) = Sheets("calculation").Cells(2, 2 + i)
    Next i
    With Cht
    .HasLegend = True
    .Legend.Position = chLegendPositionBottom
    End With
For j = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(j) = True Then
        If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
        For i = 1 To 13
            Plage(i) = Sheets("calculation").Cells(j + 3, 2 + i)
        Next i
        With Cht
            .SetData C.chDimCategories, C.chDataLiteral, Tableau
            .SeriesCollection(X).Caption = Sheets("calculation").Cells(j + 3, 1)
            .SeriesCollection(X).SetData C.chDimValues, C.chDataLiteral, Plage
'            .SeriesCollection(x).Interior.Color = 50000 * (j + 1)
            .SeriesCollection(X).Interior.Color = 90000 * (j + 3)
            .SeriesCollection(X).Line.Color = 90000 * (j + 3)
 
        End With
        X = X + 1
        Erase Plage
      End If
Next j
End If
 
End Sub

et littlechart

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub littleChart()
Dim X As Integer, i As Integer
Dim Tableau(3)
 
If ComboBox3.Value = "Year to date" Then
 
 
    For i = Chh.SeriesCollection.Count To 1 Step -1
        Chh.SeriesCollection.Delete i - 1
    Next i
    For i = 1 To 3
        Tableau(i) = Sheets("calculation").Cells(18, i)
    Next i
 
        For i = 1 To 3
            Plage(i) = Sheets("calculation").Cells(19, i)
        Next i
        With Chh
            .HasTitle = True
            .Title.Caption = "Year to date till " & Sheets("calculation").Range("C20")
            .SetData D.chDimCategories, D.chDataLiteral, Tableau
            .SeriesCollection(X).SetData D.chDimValues, D.chDataLiteral, Plage
            .SeriesCollection(X).Interior.Color = 590000 * (i + 3)
            '.SeriesCollection(X).
            '.Axes(xlValue).TickLabels.NumberFormat = "0.0%"
        End With
'ChartSpace2.Charts(1).Axes(xlValue).TickLabelUnitType
 
        X = X + 1
    Erase Plage
 
Else
 
    For i = Chh.SeriesCollection.Count To 1 Step -1
        Chh.SeriesCollection.Delete i - 1
    Next i
    For i = 1 To 2
        Tableau(i) = Sheets("calculation").Cells(18, i)
    Next i
 
        For i = 1 To 2
            Plage(i) = Sheets("calculation").Cells(20, i)
        Next i
        With Chh
            .HasTitle = True
            .SetData D.chDimCategories, D.chDataLiteral, Tableau
            .SeriesCollection(X).SetData D.chDimValues, D.chDataLiteral, Plage
            .SeriesCollection(X).Interior.Color = 590000 * (i + 3)
            .Title.Caption = Sheets("calculation").Range("C20")
 
 
        End With
 
        X = X + 1
    Erase Plage
 
 
End If
 
End Sub

Merci pour votre aide

19/12/2011, 16h46
ZebreLoup

Et si tu fais tout simplement

Code:

Application.Calculate

Avant de tracer ton graph ?
19/12/2011, 17h05
LaPanic

merci ZebreLoup
non ca ne régle pas le problème des fois le calcul des formules est rapide donc lors de l'affichage du graphe il prend les bonnes données mais des fois le calcule prend un peut plus de temps je ne sais pas pourquoi ??? le graphe prend les données avant actualisation
donc lors de l’exécution de

Code:

Application.Calculate

le code continu et affiche le graphe en même temps que l'actualisation des formules d'ou le probleme

merci pour votre aide !!
19/12/2011, 17h23
ZebreLoup

Je vais regarder de plus près car il me semblait que ça attendait la fin du recalcul avant de continuer. Tu es bien en mode calcul manuel ?
19/12/2011, 17h31
comme de bien entendu
As tu essayé en mode debug pour voir comment il se comportait ?
Je n'avais pas compris que tu voulais qu'il y ait une mise à jour en direct
de ton UserForm qui restait ouvert.
Le application.calculate est une bonne idée.
Tu pourrais faire dans le code du UserForm
Code:

1 2 3 4 while maValeurTest<>1 ' mise à jour des valeurs des fonctions de la feuille application.calculate wend
Dis nous si c'est ok.
19/12/2011, 17h42
ZebreLoup

Je viens de vérifier chez moi, si tu es en mode calcul manuel, le code VBA attend bien la fin du calcul lancé par Application.Calculate pour continuer à s'exécuter. Tu lances bien le calcul au bon moment ? (Après avoir modifier toutes les valeurs dont dépendent les calculs).

@comme de bien entendu : Je ne comprends pas bien ce que tu proposes. Tester une valeur pour savoir si le calcul est terminé pourrait être une solution mais il faudrait savoir à l'avance le résultat qu'on attend dans la cellule et être sûr que ce soit la dernière valeur calculée. Ca doit être faisable mais je ne pense pas que ce soit nécessaire, c'est un peu l'artillerie lourde.
Et en tout cas boucler sur un Application.Calculate au mieux ne marchera pas ou bloquera l'application, au pire fera planter Excel. Il faut d'abord lancer le calcul et ensuite boucler pour attendre le résultat. Même si une fois encore je ne pense pas que ce soit nécessaire.

@LaPanic : Tu as l'air d'utiliser pleins de variables globales. Peut-être qu'un code complet ou un fichier exemple pourra nous aider à mieux cerner le problème.