Graphique dynamique

Bonjour à tous,

Je recherche à faire un graphique « dynamique » à partir du fichier en Pièce Jointe.

Le fichier contient déjà un code VBA permettant de faire ressortir les données en fonction du nombre d’entreprise choisit ( A et/ou B et/ou C et/ou D) et de la période ( nombre de semaine variant de 1 à 52 ) le tableau peut contenir plus ou moins de lignes et de colonnes .

J’ai fait des recherche sur la Fonction DECALER mais je ne parviens pas à la mettre en place est-il possible d’utiliser cette solution ?

Je laisse le fichier en Pièce jointe si quelqu’un a une idée je suis preneur.

Merci à vous,

Bonne journée

Bonjour,

Un exemple à adapter et à intégrer dans ta procédure.

Cdlt.

Public Sub MAJ_Graphique()
Dim rng As Range, rngChart As Range
Dim objChart As ChartObject
    With ActiveSheet
        Set objChart = .ChartObjects(1)
        Set rng = .Cells(26, 2).CurrentRegion
        Set rngChart = rng.Offset(, 2).Resize(, rng.Columns.Count - 2)
        With objChart.Chart
            .SetSourceData Source:=rngChart, PlotBy:=xlRows
        End With
    End With
    Set objChart = Nothing: Set rngChart = Nothing: Set rng = Nothing
End Sub

Re,

Bon après fermeture et réouverture du fichier, petits soucis.

Je regarde !

Re,

Non c'est OK !

Je vais prendre un café.

Bonjour Jean Eric,

Merci pour ton apport ton code marche du tonnerre pour actualiser en fonction des périodes recherchées.

Il y a juste un petit truc c est que le code ne semble pas prendre en compte qu'il peut y avoir 2 / 3 / 4 voir plusieurs lignes à représenter sur le graphique, qu'importe ma sélection il n y a que 2 lignes maximum qui apparaissent as tu une idée de modification ?

Merci encore =)

RE,

Voir fichier joint adapté avec ma procédure.

A te relire.

Cdlt.

C est exactement ça !! 8)

Merci beaucoup Jean Eric