Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment "desactiver" le rafraichis. d'un graph?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Id_forum
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

Id_forum

Guest
Bonjour,

Je débute avec Excel, et je viens de faire une petite macro qui affiche dans un graph. 14 courbes ( 32000 pts pr chacunes d'elles ) a partir d'une feuille située dans le meme dossier que le graph. La macro lancée tourne bien mais prend bcp de temps car a chaque fois qu'elle ajoute une des 14 courbes sur le graph., elle retrace toutes les autres courbes ( 32000 pts pr chaque... ) déjà prisent en compte.

Est il possible de "desactiver le rafraichissement du graph" pendant qu'il ajoute les courbes et de le reactiver avoir seulement a la fin le resultat final avec l'ensemble des courbes?

Merci pr votre aide,

Id
 
Trier par date Trier par votes
Re : Comment "desactiver" le rafraichis. d'un graph?

Bonjour Darnel,

Ci-dessous la partie du code qui va chercher les colonnes souhaitées d'une feuille et les affiche sur un graph. Je n'ai pas réussi a attacher l'ensemble de mon fichier ( apparemment trop gros ) mais le traitement est tres tres long.

Merci pr ton aide,

Id

' Copie de la feuille et suppresion des 1 eres lignes :

Sheets("13-10-2006 1").Select
Sheets("13-10-2006 1").Copy After:=Sheets(1)
Sheets("13-10-2006 1 (2)").Select
Sheets("13-10-2006 1 (2)").Name = "Modifié"
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Range("D9").Select
Columns("A:A").ColumnWidth = 16.71
Columns("A:A").Select
Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss"
Selection.ColumnWidth = 18
Range("B2").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Modifié").Range("A1:X26045"), _
PlotBy:=xlColumns

' Création des courbes :

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(1).Values = "=Modifié!R2C3:R32000C3"
ActiveChart.SeriesCollection(1).Name = "=Modifié!R1C3"
ActiveChart.SeriesCollection(2).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(2).Values = "=Modifié!R2C10:R32000C10"
ActiveChart.SeriesCollection(2).Name = "=Modifié!R1C10"
ActiveChart.SeriesCollection(3).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(3).Values = "=Modifié!R2C11:R32000C11"
ActiveChart.SeriesCollection(3).Name = "=Modifié!R1C11"
ActiveChart.SeriesCollection(4).XValues = "=Modifié!R2C12:R32000C12"
ActiveChart.SeriesCollection(4).Values = "=Modifié!R2C12:R32000C12"
ActiveChart.SeriesCollection(4).Name = "=Modifié!R1C12"
ActiveChart.SeriesCollection(5).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(5).Values = "=Modifié!R2C13:R32000C13"
ActiveChart.SeriesCollection(5).Name = "=Modifié!R1C13"
ActiveChart.SeriesCollection(6).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(6).Values = "=Modifié!R2C14:R32000C14"
ActiveChart.SeriesCollection(6).Name = "=Modifié!R1C14"
ActiveChart.SeriesCollection(7).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(7).Values = "=Modifié!R2C15:R32000C15"
ActiveChart.SeriesCollection(7).Name = "=Modifié!R1C15"
ActiveChart.SeriesCollection(8).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(8).Values = "=Modifié!R2C16:R32000C16"
ActiveChart.SeriesCollection(8).Name = "=Modifié!R1C16"
ActiveChart.SeriesCollection(9).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(9).Values = "=Modifié!R2C17:R32000C17"
ActiveChart.SeriesCollection(9).Name = "=Modifié!R1C17"
ActiveChart.SeriesCollection(10).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(10).Values = "=Modifié!R2C18:R32000C18"
ActiveChart.SeriesCollection(10).Name = "=Modifié!R1C18"
ActiveChart.SeriesCollection(11).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(11).Values = "=Modifié!R2C19:R32000C19"
ActiveChart.SeriesCollection(11).Name = "=Modifié!R1C19"
ActiveChart.SeriesCollection(12).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(12).Values = "=Modifié!R2C20:R32000C20"
ActiveChart.SeriesCollection(12).Name = "=Modifié!R1C20"
ActiveChart.SeriesCollection(13).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(13).Values = "=Modifié!R2C21:R32000C21"
ActiveChart.SeriesCollection(13).Name = "=Modifié!R1C21"
ActiveChart.SeriesCollection(14).XValues = "=Modifié!R2C1:R32000C1"
ActiveChart.SeriesCollection(14).Values = "=Modifié!R2C22:R32000C22"
ActiveChart.SeriesCollection(14).Name = "=Modifié!R1C22"


'
'
''
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

I
  • Question Question
Comment afficher un graph., en construction ou modification, seult a la fin?
Réponses
0
Affichages
1 K
Id_forum
I
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…