Discussion :

[AlfredKr]

Bonjour,
J'ai office 2016. En excel, j'ai un graphique nuage de points (XY) dans une feuille.
En VBA, j'ai une boucle for qui modifie les coordonnées X et Y.
Pour que le graphique se mette à jour, je suis obligé d'incorporer les 2 instructions suivantes pour que le graphique se mette à jour à chaque boucle:
Voici le couple d'instructions:
calculate
activesheet.chartobjects("chart 1").activate
Et des fois, ça ne fonctionne pas.
Pourtant tout marchait très bien sans ces instructions avec office 2010 !!!
Merci d'avance pour votre aide.

Fred

[Daniel.C]

Bonjour,

C'est connu, c'était toujours mieux avant ! Est-ce que tu peux poster ton code ?

[Menhir]

Ta feuille ne serait-elle pas en recalcul manuel ?
Tu n'aurais pas commencé ton code par des instructions pour empêcher les recalculs ou le rafraichissement de l'affichage ?

[AlfredKr]

Bonjour messieurs (qui ont répondu et les autres)
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
  Application.EnableCancelKey = xlErrorHandler
  On Error GoTo Gere_Erreurs1
  For i = 1 To 2700
    Worksheets("simul").Cells(1, 9) = i
    Calculate
    Worksheets("simul").ChartObjects("Graphique 5").Activate
  Next i
Gere_Erreurs1:
  If Err = 18 Then
    MsgBox "You cancelled"
  End If
End Sub

Il y a 4 boutons de commandes comme celui-là, chacun pour son graphique.
Ce code fonctionne pour 2 boutons mais pas pour les 2 autres !!!!!
Si j'enlève l'activation du graphique, ça ne marche pas.
Dans l'option générale, le recalcul des formules est en automatique.
Je n'ai pas vu de recalcul de graphique.
Je vais peut-être essayer avec des feuilles graphiques autonomes.
Merci encore,

Fred

[Daniel.C]

Bonjour,

Est-ce que tu peux, s'il te plait, mettre ton classeur en PJ ?

[AlfredKr]

Il fait plus de 2Mb donc pas chargeable sur ce site.

Fred

[Menhir]

Ton problème n'est peut être pas une non exécution mais plutôt un long délais d'exécution.

[Daniel.C]

Il fait plus de 2Mb donc pas chargeable sur ce site.

Utilise DropBox ou OneDrive, GoogleDrive etc.

[AlfredKr]

Il y a 4 boutons et 3 graphiques dans une feuille. 1 bouton par graphique et un 4ème qui réactualise les 3 graphiques.
Sauf que pour 2 boutons qui ne fonctionnent pas, le graphique se réactualise avec des valeurs qui se trouvent dans d'autres feuilles (tout est dans le même classeur).
Sauf qu'il y a un hic car pour le 4ème bouton qui réactualise les 3 graphiques (qui va chercher des valeurs dans les 3 feuilles), ça fonctionne.

Je viens de déplacer le graphique et son bouton (qui ne se réactualisent pas) dans la feuille où il y a ses valeurs et ça fonctionne.
Mais pour les boutons qui fonctionnent bien il faut rajouter "calculate"+ "chartobjects.Activate" sinon ça ne réactualise pas.
Que penser ?

Merci d'avance,

Fred

[Menhir]

Mais pour les boutons qui fonctionnent bien il faut rajouter "calculate"+ "chartobjects.Activate" sinon ça ne réactualise pas.
Que penser ?

La seul conclusion logique à l'intérêt de Calculate est que la feuille est en recalcul manuel. Mais puisque tu dis que non...

Par contre, je ne comprends pas pourquoi tu as mis ton calculate à l'intérieur de la boucle For to.
Recalculer 3000 fois ta feuille, ça doit prendre du temps.

[AlfredKr]

Merci pour votre réponse, Menhir,

Premièrement, le 4ème bouton met à jour les 3 graphiques dont les valeurs sont dans 3 feuilles différentes et ça fonctionne très bien et rapidement.
Deuxièmement, même pour les boutons qui fonctionnent, si je retire l'instruction "calculate", ça ne fonctionne plus.

Pour Daniel C., je n'ai jamais envoyé par dropbox et autres.
Je peux envoyer par wetransfer mais à quel mail destinataire?

Merci pour vous être intéressés à mon problème...

Fred

[Daniel.C]

Bonjour,

Tu peux charger le classeur ici : http://cjoint.com et poster le lien généré. Sinon, comment définis-tu les données des séries dans les graphiques ?

[AlfredKr]

Tout d'abord, ça fonctionnait très bien avec EXCEL 2010 et versions précédentes.
Chaque graphique est un nuage de points XY de 6 points. L'ordonnée est un vecteur colonne simple et constant de 6 valeurs (0..5) et l'abscisse est un vecteur de 6 valeurs qui est mis à jour à chaque fois dans la boucle for, les valeurs sont tirés d'un tableau de 6 colonnes et 2000 lignes. Par la fonction INDEX, le vecteur abscisse est remplacé par la ligne indice i de la boucle for.

J'ai toujours effectué ce procédé pour faire de l'animation dans les graphiques et ça a toujours marché avant cette version.

Fred

[Daniel.C]

Code :

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

Sinon, comment définis-tu les données des séries dans les graphiques ?

Je veux dire : quelles instructions VBA.

[clementmarcotte]

Bonjour,

Tout d'abord, ça fonctionnait très bien avec EXCEL 2010 et versions précédentes.

J'ai toujours effectué ce procédé pour faire de l'animation dans les graphiques et ça a toujours marché avant cette version.

Fred

Je n'ai pas Office 2016. Mais, si c'est comme pour Office 2010, il y a probablement dans ton aide de VBA, des rubriques sur les modifications du modèle-objet d'une version à l'autre. Tu ne perds pas grand chose à vérifier cela pour 2016.

[Invité]

Salut,

As-tu essayer DoEvents ?
Cette instruction permet de mettre à jour les données d'un graphique dans une boucle par exemple.

[AlfredKr]

Tout d'abord, merci pour toutes vos réponses.
A Daniel C.: VBA n'est utilisé que pour incrémenter la cellule "indice2". Il n'y a que la méthode que je vous ai envoyée au début. Le tableau qui fournit le vecteur des abscisses est un tableau de valeurs que j'ai copié simplement et que je ne modifie pas et que j'ai importé d'un autre programme par copier-coller.
Donc VBA ne fait presque rien.
Dans la boucle for, si j'enlève le calculate ça ne marche pas.
De plus, dans les graphiques, j'ai un contrôle texte qui indique un temps (=temps d'échantillonnage constant * indice2 qui est incrémenté dans la boucle for.
Quand j'ai le calculate mais pas l'activation du graphique, le contrôle texte se met à jour mais pas la courbe !!!!

Je tourne en rond.
Pour les autres: j'ai essayé avec doevents, ça pédale indéfiniment et rien ne change.
Fred
PS: je vais essayer de diminuer le nombre de valeurs de mes tableaux pour que le classeur soit plus light et je pourrai vous l'envoyer.

[AlfredKr]

Voici la version light du classeur.exemples diff bats light.xlsm

[Daniel.C]

"DoEvents" résout le problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
  Application.EnableCancelKey = xlErrorHandler
  On Error GoTo Gere_Erreurs2
  For i = 1 To 800
    Worksheets("simul").Cells(1, 9) = i
    DoEvents
'    Worksheets("simul").Calculate
'    ActiveSheet.ChartObjects("Graphique 5").Activate
  Next i
Gere_Erreurs2:
End Sub

[AlfredKr]

OK et merci mais je ne comprends toujours pas pourquoi avec calculate et activate ça marche avec des boutons et pas les autres.

Grand merci quand même...

Fred