aide pour données dans un graphique

[lao31]

Bonjour les forumeurs.
Pourriez vous m'aidez a résoudre un soucis que j'ai avec un graphique ?
Je voudrais savoir s'il est possible de passer par ( définir un nom, ou autres astuces ) pour changer les valeurs d'axes d'un graphique.
Je vous joins un fichier cela sera peut être plus clair, car j 'ai toujours des soucis pour bien poser mes questions.
Merci d'avance
Michel

 

[job75]

Re : aide pour données dans un graphique

Bonjour lao31,

Voyez le(s) fichier(s) joint(s).

A partir des adresses (feuille+cellule) en E1 et F1, on définit les noms BASE1 et BASE2.

Ces noms sont alors utilisés pour la définition des 2 séries.

A+

 

[ROGER2327]

Re : aide pour données dans un graphique

Bonjour à tous

Une autre version.​

ROGER2327
#5907

Lundi 9 Merdre 139 (Vidange - Vacuation)
7 Prairial An CCXX, 5,5627h - fromental
2012-W21-6T13:21:02Z

 

[Papou-net]

Re : aide pour données dans un graphique

Bonsoir lao31, le Forum,

L'ayant commencée mais ayant dû m'interrompre, je viens de terminer ma version alors je la joins à celles de job75 et de Roger (que je salue bien bas au passage).

Petite remarque : il est possible de choisir des bornes différentes pour chacune des séries (sait-on jamais ?). Des explications complémentaires sont sur la feuille principale.

Bonne soirée à tous.

Cordialement.

 

[lao31]

Re : aide pour données dans un graphique

Bonjour le forum

Merci a tous impeccable votre travail.
juste un petit soucis pour celle de papou que je trouve la mieux adapté car juste les lignes a mettre, mais je n'arrive pas a lire le code pour le bouton ( est ce une macro ? ) je n'arrive pas a trouver le code, et comme c'est en lecture seule, je ne peux l'adapter a mon fichier.
Merci en tout cas et bon w-end de pentecote a vous
cordialment
Michel

 

[Papou-net]

Re : aide pour données dans un graphique

Bonsoir (ou plutôt bonjour) lao31,

Ce sont effectivement des macros, mais je ne comprends pas : je n'ai pas protégé le classeur ni les macros.

Quoiqu'il en soit, voici le code dans son intégralité :

Private Sub CommandButton1_Click()
Cel = ActiveCell.Address
If (Range("E2") * Range("E3") * Range("F2") * Range("F3")) > 0 Then
  PlagA = "Feuil1!A" & Range("E2") & ":A" & Range("E3")
  PlagB = "Feuil1!B" & Range("F2") & ":B" & Range("F3")
  Plage = "A" & Application.Min(Range("E2:F2").Value) & ":B" & Application.Max(Range("E3:F3").Value)
  Me.ChartObjects("Graphique 1").Activate
  ActiveChart.PlotArea.Select
  ActiveChart.SetSourceData Source:=Range(Plage)
  ActiveChart.SeriesCollection.NewSeries
  ActiveChart.SeriesCollection(1).Name = Range("E2")
  ActiveChart.SeriesCollection(1).Values = PlagA
  ActiveChart.SeriesCollection.NewSeries
  ActiveChart.SeriesCollection(2).Name = Range("E3")
  ActiveChart.SeriesCollection(2).Values = PlagB
End If
Range(Cel).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("E2:E3"), Target) Is Nothing Then Cells(Target.Row, Target.Column + 1) = Target.Value
Application.EnableEvents = True
End Sub

Espérant que tu parviendras à le retranscrire sur ton application.

Cordialement.

 

[lao31]

Re : aide pour données dans un graphique

Bonjour papou , le forum
Merci pour le code, en fait je n'arrivai pas a lire le code de la macro car je cherchai dans afficher macro.
et comme le code est sous CommandButton1_Click(), je ne voyais pas de macro a lire ou a modifier.
Je ne sais pas si je suis clair, mais j'ai compris et trouvé.
Merci pour votre aide et votre disponibilité.
Bonne journée et a trés bientot
Michel