Discussion :

[LaPanic]

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

[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 :

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

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.

[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

[comme de bien entendu]

Bonjour,

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

Code :

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

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.

[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

[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.