Question graphique.

[Hulk]

Mesdames, Mesdemoiselles, Messieurs,

Je souhaite faire une petite animation avec des graphs, est-ce possible ?

Voir le petit fichier joint.

Merci pour vos réponses.

Bon week à tous 😀 !

Hulk.

 

[Catrice]

Re : Question graphique.

Bonjour,

voir 2 exemples ci-joint

 

[Hulk]

Re : Question graphique.

Hello,

Alos là Catrice magnifique CHAPEAU !

Si tu pouvais juste me donner des explications par rapport aux couleurs.

Couleurs = Array(6, 4, 46, 8, 7)
Set MesSeries = ActiveSheet.ChartObjects("Graphique 14").Chart.SeriesCollection
For i = 1 To MesSeries.Count
ToutEffacer
MesSeries(i).Border.LineStyle = xlAutomatic
MesSeries(i).Interior.ColorIndex = Couleurs(i - 1)
MesSeries(i).ApplyDataLabels ShowValue:=True
Application.Wait (Now + TimeValue("0:00:01"))
Next
Tempo
End Sub

Je ne comprends pas vraiment ce que veut dire ce qui est en gras.

Si je veux toutes les séries en noires je fais comment ? J'ai essayé en remplaçant Couleurs(i - 1) par xlAutomatic, mais il y a toujours les mêmes couleurs, et même en changeant les couleurs des séries, quand j'anime, il remets les couleurs initiales.

Et encore juste une petite question:

possible d'afficher toutes les séries en même temps et que ça soit une fois les séries de Carouge, une fois celles de Perly, et l'autre de Chênes.

En tous les cas, je te remercie encore infiniment pour ton aide, et encore bravo pour ce code.

Hulk.

 

[Catrice]

Re : Question graphique.

Bonjour,

J'ai modifié le code pour faire défiler les équipes (voir fichier joint).
J'ai également commenté dans le Module.

Pour tout afficher en Noir tu peux utiliser le code modifé comme suit :

Sub ToutAfficher()
Set MesSeries = ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection
For i = 1 To MesSeries.Count
MesSeries(i).Border.LineStyle = xlAutomatic
MesSeries(i).Interior.ColorIndex = 1 'Couleurs(i - 1)
MesSeries(i).ApplyDataLabels ShowValue:=True
Next
End Sub

 

[Hulk]

Re : Question graphique.

Bonjour le Forum, Catrice,

Merci Catrice pour ton aide et tes explications.

J'me rends compte que j'ai encore beaucoup à apprendre avec Excel.
Public j, Public k, Public ci, Public ça, Private, Dim, Array... ect sont pour moi encore des mystères 😱
J'aimerais bien pouvoir créer ma propre macro quoi.. 🙁
Me suis lancer tout seul comme un grand sur Excel, mais je crois que des petits cours seraient les bienvenus.

Avant que j'oublie, est-ce possible de masquer le sablier pendant l'animation ?

Je vais analyser tour ça.

En tous cas, encore un grand MERCI de m'avoir aidé.

Bon dimanche.

Hulk.

 

[Hulk]

Re : Question graphique.

Re,

Bon ben pour ma question de masquer le sablier, c'est réglé puisque dans le dernier fichier que tu m'as joins, il n'y a pas de sablier, et on peut même bosser pendant l'animation !
Euh c'est quoi qui définit ça ?

Et juste encore une chose:
On peut tout faire pendant l'animation sauf changer de feuille.
J'ai essayé avec ça

If Sheets("Feuil1").Select Then ArretTempo

dans l'Open du classeur, mais rien toujours le message d'erreur qui apparait.

Est-ce possible que lorsque l'on selectionne une autre feuille, que l'animation s'arrête automatiquement ?

Merci pour ton aide Catrice.

Hulk.

 

[Catrice]

Re : Question graphique.

Re,

Pour le curseur de la souris, tu peux mettre :

Sub Tempo()
Application.Cursor = xlNorthwestArrow
.....
Au début de la Sub Tempo


Et :
.....
Application.Cursor = xlDefault
End Sub
A la fin de la Sub : Sub ArretTempo()

NB - Les variables sont déclarées en Public car on en a besoin apres la fin d'execution des procedures. (voir l'aide sur "Public")

 

[Hulk]

Re : Question graphique.

Re bonjour,

Catrice excuse-moi de t'embêter avec ça, mais je n'arrive pas à gérer les couleurs, et encore moins si je change de graphique.

Si je mets un graphique en courbes, il m'affiche des messages d'erreurs concernant les "Interior.ColorIndex" et je souhaiterais qu'elles soient toutes noires.

Aussi, dans le dernier fichier, les séries défilent, mais si je mets un graphique en courbes, la série de l'équipe séléctionnée s'affiche, ok, mais les autres points (juste les points) des autres équipes restent visibles.

Donc pour éviter ça (toujours dans l'optique d'un graphique en courbes) est-il possible, non pas qu'il m'affiche séries par séries de chaque équipes, mais équipes par équipes, cad : Toutes les séries de l'équipe 1, celles de l'équipe 2 ect..

Et finalement, concernant le changement de feuille, j'imagine que tu as du oublier de me répondre sur ce sujet, ou pas de solution ? (Voir post un peu plus haut)

Merci de consacrer ton temps et ton savoir à mon prob.

Hulk.

 

[Catrice]

Re : Question graphique.

Re,

J'ai effectivement zappé la question concernant l'arret en cas de changement de feuille.
Voir le fichier joint.

Pour l'histoire des courbes il faudrait que tu postes ton fichier car je ne comprend pas tres bien.
Il n'y a à priori pas de propriété Interior.ColorIndex pour les courbes ...

Pour le sablier, il y avait un sablier dans la premiere macro car la macro tournait 1 fois pour les 5 series (donc attente = 5 x les n secondes définies).
La 2eme tournait 5 fois pour chaque series. Elle tourne plus souvent mais moins longtemps (donc pas d'attente mais execution de modification des graphes)
Enfin avec Application.Cursor = xlNorthwestArrow on peut changer le curseur sablier en fleche(pendant le temps furtif où il s'affiche). Mais la macro tourne qd meme.

 

[Hulk]

Re : Question graphique.

bonsoir,

Ok merci Catrice pour tout.

Je vais me débrouiller avec tout ça et je trouverais bien la combine 😀
Le pire est qu'hier j'ai réussi à mettre mes lignes de courbes en noires, et today impossible grr 😡.

Merci infiniment encore pour tout, bonne soirée à tous.

Hulk.

PS. Je te joins quand même le fichier avec le graph que j'n'arrive pas à mettre en noires ces fameuses lignes pour que tu voies.