Correction de mon graph

  • Initiateur de la discussion Initiateur de la discussion miky973
  • 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 !

miky973

XLDnaute Occasionnel
Bonjour,

J'aimerai que vous me corrigier car j'ai beau essayer je n'arrive pas trouver le problème.


Code:
Dim objChart As Chart, A As Range
Range("A93", Range("D93").End(xlDown)).Select
i = Sheets("Résultat").Range("A93", Range("D93").End(xlDown)).Row
 Set Plage = Sheets("Résultat").Range("A" & 93 & ":D" & i)
Charts.Add
   ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Plage, PlotBy:=xlColumns

ActiveChart.SeriesCollection(1).Name = "Indice"
[COLOR="darkorange"]ActiveChart.SeriesCollection(1).XValues = Range("A93", Range("D93").End(xlDown))[/COLOR]

ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphique"


J'ai le bon graphique il s'affiche mais avec une erreur et donc ce n'est pas bon du coup.
J'aimerai finir mon code, voir l'amélioré.

Merci pour votre aide et vos réponses


Best regards,

Miky
 
- 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

Discussions similaires

Réponses
10
Affichages
1 K
Retour