Graphique avec plage discontinue et évolutive

[bruno8544]

Bonjour,

Je cherche à faire un graphique à partir depuis le tableau ci joint dans le fichier Excel. Mon soucis est que je cherche à faire un graphique qui laisse le choix du capteur (dans la colonne) donc A,B, ou C via un sélecteur et avec un autre sélecteur choisir le capteur à comparer (donc A,B, ou C dans la ligne). Pour cela j'ai bien la méthode de faire à la main un graphique mais je voudrais que ce soit plus automatique via un VBA.
En plus j'ai aussi (sur un autre excel mais la je voulais faire "simple") une macro qui rajoute un point à chaque clic donc le graphique doit suivre cette évolution du nombre de point jusque la première colonne vide (j'ai sinon une variable qui renseigne le numéro du point que je peux aussi utiliser)
Une idée pour me débloquer ??

Regarde la pièce jointe Test.xlsx

Merci d'avance

 

[chris]

Re : Graphique avec plage discontinue et évolutive

Bonjour

Ceci est la suite de
https://www.excel-downloads.com/threads/graphique-dynamique.222671/

où tu mentionnais un nuage de point mais sans fournir l'exemple du graphique voulu et sans info sur la ligne concernée ni les valeurs types...

Ici nous avons un exemple en courbe et plus d'info.

Il y a deux façons de faire des graphiques dynamiques soit avec des plages nommées élastiques, mais cela ne marche pas toujours bien avec des points discontinus, soit en redéfinissant par VBA les points de la série et en étirant le graphique si nécessaire.

As-déjà essayé avec l'enregistreur macro, de modifier la série ? Tu auras ainsi le code de base et pourras nous dire sur quoi tu bloques...

 

[bruno8544]

Re : Graphique avec plage discontinue et évolutive

Je reste malgré tout bloqué pour faire un graphique en VBA... j'ai bien cela comme macro :

Sub graph()
'
' graph Macro
'

'
    ActiveChart.SeriesCollection(1).ChartType = xlLineMarkers
    ActiveChart.ChartType = xlLineMarkers
    Range("J10").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveSheet.Shapes("Graphique 2").IncrementLeft 138.75
    ActiveSheet.Shapes("Graphique 2").IncrementTop 93
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=Feuil1!$B$3"
    ActiveChart.SeriesCollection(1).Values = _
        "=Feuil1!$D$3;Feuil1!$G$3;Feuil1!$J$3;Feuil1!$M$3"
End Sub

Mon soucis étant que je sélectionne "en dur" mes données. Je suis vraiment dans l'impasse 😕

 

[bruno8544]

Re : Graphique avec plage discontinue et évolutive

J'ai bien ça comme macro après un autre essai :

 Sub CreateChart()

    ' Select the cell in the upper-left corner of the chart.
    Range("b3").Select
    ' Select the current range of data. This line of code assumes that
    ' the current region of cells is contiguous - without empty rows
    ' or columns.
 Selection.CurrentRegion.Select

    ' Assign the address of the selected range of cells to a variable.
    myrange = Selection.Address

    ' Assign the name of the active sheet to a variable. This line is
    ' used in order to allow a chart to be created on a separate chart
    ' sheet.
 mysheetname = ActiveSheet.Name

    ' Add a chart to the active sheet.
    ActiveSheet.ChartObjects.Add(125.25, 60, 301.5, 155.25).Select

    ' To create a chart on a separate chart sheet, remark out the
    ' previous line, and substitute the next line for the one above.

    ' Charts.Add

    Application.CutCopyMode = False

    ' This line can best be written by recording a macro, and
    ' modifying the code generated by the Microsoft Excel Macro
    ' recorder.

    ActiveChart.ChartWizard _
       Source:=Sheets(mysheetname).Range(myrange), _
       Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
       CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
       Title:="", CategoryTitle:="", _
       ValueTitle:="", ExtraTitle:=""

 End Sub

Pour la valeur B3 je pense qu'en reliant avec une case d'option ca peut faire ma modif de la ligne concernée mais je ne vois pas comment faire pour sélectionner en VBA une plage discontinue