autour du graphique

[Philippe63000]

Bonsoir,

J'essaie de créer un graphique. Et c'est d'autant plus difficile que les macros n'enregistrent pas toutes les actions faites au clavier!!

Voilà j'ai tout de même écrit quelque chose que voici:



Sub courbe4()
Dim Graph As ChartObject

With ActiveWorkbook.Worksheets(1)

Dim TD(30, 2) As Variant
For i = 1 To 30
For j = 1 To 2
TD(i, j) = i
Next
Next

Dim tableau() As Integer, tableau2() As Double, Tableau3() As Double

'Création du tableau pour les Abscisses
For i = 1 To UBound(TD)
tableau2(i) = TD(i, 2)
tableau(i) = i
Tableau3(i) = 5
Next i


' ajout du graphe et définution de ses dimensions et position(
'-----------------------------------------------------------
Set Graph = .ChartObjects.Add(70, 50, 700, 330)
End With

With Graph.Chart
' pour tracer la courbe valeurs de X et valeurs de Y
'-----------------------------------------------------
'.SetSourceData Worksheets(1).Range("A1:B10")
.ChartArea.Border.LineStyle = xlDashDotDot
.ChartArea.Border.Weight = xlMedium
.HasTitle = True
.ChartTitle.Text = "Débits" & Chr(13) & site & " " & annee_etudiee
.ChartTitle.Characters(0, 9).Font.Bold = True
.ChartType = xlLine

.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = tableau() 'Abscisses
' .SeriesCollection(1).Values = tableau2() 'Ordonnées
.SeriesCollection(2).Values = Tableau3() 'Ordonnées

.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False

'couleur de l'intérieur du graphe
.PlotArea.Interior.ColorIndex = 2
.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
.ChartArea.Font.Size = 12
.Deselect
End With
End Sub


Ma première question : Comment puis-je passer les données de TD(i,2) à l'axe des ordonnées . Je suppose que ce que j'ai fait ne marche pas car les tableaux TD et Tableau2 ne sont pas de m^me dimension.

Ma deuxième question : Le contour du graphique est transparent. Je voudrais qu'il ne le soit pas.
Il semblerait que j'arrive à agir sur l'aire u tracé mais je ne trouve rien sur le contour.

Ma troisième question : En lançant la routine ci-dessus et en faisant abstraction des erreurs , une courbe se forme et le mot 'courbe' apparaît au dessus du graphique . Il semblerait que ce soit une forme. Pourriez-vous m'aider à m'en débarasser.

Merci d'avance pour votre aide sur les trois points ci-dessus.

Cordialement

 

[Gardien de phare]

Re : autour du graphique

Bonjour,
Pas sur d'avoir tout compris ! Corrigé les bugs de ton code, qui reste à optimiser, à toi de voir.

 

[Philippe63000]

Re : autour du graphique

Merci pour ton aide.
La courbe une fois traçée affiche le titre et non loin du titre affiche 'courbes'. D'où cela vient-il? Je voudrais m'en débarasser.

Merci d'avance.

 

[Gardien de phare]

Re : autour du graphique

Re,

Non, pas chez moi, pas de "courbes" affichées.

 

[Philippe63000]

Re : autour du graphique

Re,

Etrange! Merci pour la réponse.
Une toute petite dernière question. Avec le programme ci-dessus que vous avez corrigé. Puis-je tracer deux courbes en chargeant les ordonnées avec des tableaux?
Merci d'avance,

 

[Gardien de phare]

Re : autour du graphique

Re,

Oui bien sur, mais je ne vois pas bien l'intérêt de définir la source des graphiques avec des tableaux plutôt qu'avec des données de feuilles de calcul, mais il y a sans doute quelque chose qui m'échappe !

Pour ton histoire de "courbe", met ton classeur en Pj que je regarde ça.

 

[Philippe63000]

Re : autour du graphique

Bonsoir merci pour votre aide.
Je joins le fichier .xlsm.J'espère que c'est fait!?
Remarque:
Les tableaux me permettent de charger les données sans les afficher à l'écran.

 

[Philippe63000]

Re : autour du graphique

Re,

Le fichier que j'ai envoyé précedemment m'a posé des problèmes lors de sa sauvegarde (message d'erreur).
J'ai refait rapidement une routine de tracé de courbe à partir de l'enregistrement des commandes excel. Et j'ai affiché la courbe obtenue sur la page 1 pour mettre en évidence le mot 'courbes' (qui se trouve à côté du titre du graphique). J'espère que vous pourrez voir la page, la courbe et le mot.
Merci et bonne soirée.

 

[Gardien de phare]

Re : autour du graphique

Bonsoir,

Si j'efface ton graphique et que je relance la macro, je n'ai pas la Textbox avec le mot courbe... Tu n'aurais pas un Addin installé ou une macro complémentaire ? Je ne vois pas d'où ça peut venir, sinon.

 

[Philippe63000]

Re : autour du graphique

Bonsoir,

Merci pour la réponse.
Qu'est-ce qu'un Addlin?

Puis-je afficher à l'écran le nom de la courbe et ceci au niveau du dernier point?
Merci.

 

[Gardien de phare]

Re : autour du graphique

Re,

Un Addin est un programme qui se greffe sur un logiciel pour modifier ou améliorer ses fonctions.

Oui, tu peux afficher le nom de la série sur le dernier point avec ou sans Vba. Sans Vba, sélectionner le dernier point de la série, ajouter une étiquette de donnée et choisir "Nom de la série".

 

[Philippe63000]

Re : autour du graphique

Re,
Merci pour cette réponse. Mais je ne sais pas si il y a un ou des Addlin.
Tant pis je vais faire avec.

En ce qui concerne l'ajout d'une etiquette, pourriez-vous me dire comme cela se fait en vba.
Cordialement,

 

[Gardien de phare]

Re : autour du graphique

Re,

En PJ un classeur pour les noms de séries.

Est-ce que tu as une macro XLA qui apparait sous l'éditeur Vba ? Ton "courbes" est dans une textbox qui semble liée au graphique.

 

[Philippe63000]

Re : autour du graphique

Re, Merci pour la routine.
J'ai bien un textbox1 qui s'affiche dans la barre au dessus de l'écran (à gauche) quand je clique sur le mot 'courbes'.
Mais je ne pense pas avoir de macro supplémentaire. Dans la partie module, je n'ai que la macro que j'utilise . En cliquant au dessus de l'écran à gauche, je n'ai que 'Général ' . Et en cliquant à droite j'ai 'déclarations et 'macro' qui est le nom de la routine que j'ai employée pour tracerla courbe. 'Déclaration' renvoie au même endroit que 'macro'.
Qu'est ce qu'une macro XLA?
Cordialement,

 

[Gardien de phare]

Re : autour du graphique

Re,

Une XLA est une macro complémentaire disponible dans tous les classeurs...
Est-ce que tu as cette Textbox

• quand tu crées un graphique à la main ?
• quand tu crées un graphique dans un autre classeur ?
• quand tu crées un graphique sur une autre feuille du même classeur ?
• quand tu crées un graphique sur un autre PC ?
• quand tu crées un autre type de graphique ?