XL 2019 [Resolu] Mise a jour graphique dynamique

[julien1982]

Bonjour a tous, et tout d'abord merci deja pour l'aide apportée sur ce forum.

J'ai besoin de vous car je n'arrive pas a faire un graphique qui s'adapte en fonction des données.Je m'explique:

je souhaite réaliser un graph qui serai adaptatif en fonction du nombre de lignes que j'ai

Actuellement, seules les valeurs présentes dans le tableau de droite sont sélectionnées, mais ce tableau est amené a évolué, c'est a dire des lignes peuvent être rajouter ou supprimées et je voudrais que mon graph ce mette automatique a jour si cela est faisable avidement

 

[R@chid]

Bonjour,
malheureusement on ne peut rien faire sur des images.
Tu peux créer des champs dynamiques et les liés au graphique.

Si tu peux joindre un fichier exemple on pourrait peut-être t'aider.

Cordialement

 

[MyloX]

Bonjour Julien,

C'est bien possible oui. Il suffit de créer une variable qui compte les lignes tant que la cellule n'est pas vide.

Sub DispGraph()

    Application.ScreenUpdating=False

       Dim nblignes as Integer
    nblignes = 2

    Sheets(1).select
        
    While cells(nblignes,21)<>""
           nblignes=nblignes+1
       Wend
        
    Sheets(1).Range(Cells(2,21),cells(nblignes-1,24)).Select
        
    ActiveSheet.Shapes.Addchart(201,xlLine).Select
    ActiveChart.SetSourceData Source:=Sheets(1).Range(Cells(2,21),cells(nblignes-1,24))        ActiveChart.PlotBy = xlColumns
        
    ActiveChartTitle = "PROFIL EN LONG VOIE E"
        
    ActiveChart.FullSeriesCollection(1).Select
    With Selection.Format.Fill
        .ForeColor.RGB = (320,50,0)
    End With
        
    ActiveChart.FullSeriesCollection(2).Select
    With Selection.Format.Fill
        .ForeColor.RGB = (0,100,255)
    End With
        
    ActiveChart.FullSeriesCollection(3).Select
    With Selection.Format.Fill
        .ForeColor.RGB = (20,255,0)
    End With
        
Application.ScreenUpdating=False

End Sub

Cordialement,
MyloX

 

[julien1982]

Bonjour,
malheureusement on ne peut rien faire sur des images.
Tu peux créer des champs dynamiques et les liés au graphique.

Si tu peux joindre un fichier exemple on pourrait peut-être t'aider.

Cordialement

Bonjour,
malheureusement on ne peut rien faire sur des images.
Tu peux créer des champs dynamiques et les liés au graphique.

Si tu peux joindre un fichier exemple on pourrait peut-être t'aider.

Cordialement

Bonsoir,

effectivement avec le fichier se sera surement plus simple.

Tableau pentes et rampes pour forum.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

Donc dans ce fichier, le graph doit faire apparaitre la colonne A, B, S et W de l'onglet "DESAXEMENTS & PENTES" qui sont pas fixes car le nbre de donnée dans la colonne A est variable.

 

[julien1982]

Bonjour Julien,

C'est bien possible oui. Il suffit de créer une variable qui compte les lignes tant que la cellule n'est pas vide.

Sub DispGraph()

    Application.ScreenUpdating=False

       Dim nblignes as Integer
    nblignes = 2

    Sheets(1).select
      
    While cells(nblignes,21)<>""
           nblignes=nblignes+1
       Wend
      
    Sheets(1).Range(Cells(2,21),cells(nblignes-1,24)).Select
      
    ActiveSheet.Shapes.Addchart(201,xlLine).Select
    ActiveChart.SetSourceData Source:=Sheets(1).Range(Cells(2,21),cells(nblignes-1,24))        ActiveChart.PlotBy = xlColumns
      
    ActiveChartTitle = "PROFIL EN LONG VOIE E"
      
    ActiveChart.FullSeriesCollection(1).Select
    With Selection.Format.Fill
        .ForeColor.RGB = (320,50,0)
    End With
      
    ActiveChart.FullSeriesCollection(2).Select
    With Selection.Format.Fill
        .ForeColor.RGB = (0,100,255)
    End With
      
    ActiveChart.FullSeriesCollection(3).Select
    With Selection.Format.Fill
        .ForeColor.RGB = (20,255,0)
    End With
      
Application.ScreenUpdating=False

End Sub

Cordialement,
MyloX

Bjr,

j'ai essayé mais je me retrouve avec ce msg...

et comme mon niveau en VBA est proche de zero...ca se complique un peu

 

[R@chid]

Bonsoir @ tous,

Bonsoir,
effectivement avec le fichier se sera surement plus simple.

Tableau pentes et rampes pour forum.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

oui bien sûr mais pas un fichier sans données, je tai donné une piste sur ma première réponse, inspire-toi et fais comme j'ai fait.

Cordialement

 

[julien1982]

Bonjour,
malheureusement on ne peut rien faire sur des images.
Tu peux créer des champs dynamiques et les liés au graphique.

Si tu peux joindre un fichier exemple on pourrait peut-être t'aider.

Cordialement

Bjr, autant pour moi je n'avaias pas vu ton fichier je vais voir

 

[julien1982]

Bonsoir @ tous,

oui bien sûr mais pas un fichier sans données, je tai donné une piste sur ma première réponse, inspire-toi et fais comme j'ai fait.

Cordialement

Cool ca marche top ca, apr contre pourrais tu m'expliquer comment tu as fait?

 

[chris]

Bonjour à tous

A partir de 2007 (même 2003) il suffit que le tableau source soit sous forme de tableau structuré et le graphique évolue naturellement

Ce lien n'existe plus

 

[julien1982]

Cool ca marche top ca, apr contre pourrais tu m'expliquer comment tu as fait?

Bonsoir @ tous,

oui bien sûr mais pas un fichier sans données, je tai donné une piste sur ma première réponse, inspire-toi et fais comme j'ai fait.

Cordialement

Bonjour R@chid, ci dessous un lien avec le fichier plein de données , je vais tester celui que tu m'a transmis je vais essayer de l'adapter pour mon tableau.

Tableau pentes et rampes pour forum.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

 

[R@chid]

Bonjour @ tous,
@julien1982
et la réponse que t'a donnée notre amie Chris en Post #9, tu l'as vue ?

 

[julien1982]

Bonjour @ tous,
@julien1982
et la réponse que t'a donnée notre amis Chris en Post #9, tu l'as vue ?

Oui j'ai vu cela ce matin, je n'ai pas encore eu le temps de me pencher dessus, une urgence a traiter mais ce soir j'y jette un œil a tout cela. En tout cas merci a vous pour votre aide.

 

[R@chid]

Re,
voir PJ
https://www.cjoint.com/c/JLqlTnafVgQ

Cordialement

 

[julien1982]

Re,
voir PJ
https://www.cjoint.com/c/JLqlTnafVgQ

Cordialement

Oh MERCI!! c'est tout simplement parfait!! du coup tu as fait en donnant des noms au plages si j'ai bien compris et en combinant avec la formule "decaler"?
Merci bcp en tout cas.

 

[R@chid]

Re,
Oui c'est ça, avec des champs dynamiques on va pas avoir de vide sur le graphique et ça va rester lisible.

Cordialement