Graphique avec sélection de données variable

[ted1057]

Bonjour,

Je me permet de vous solliciter afin d'avoir un peu d'aide sur du code VBA.

Je cherche à réaliser un graphique via VBA avec des données d'entrée du graphique variable afin de suivre ma consommation de composant.

J'avais bidouiller un trucs qui à l'époque me satisfaisait à moitié mais aujourd’hui j'aimerais le modifier sans savoir comment.

Il s'agit d'un graphique prenant comme élément la date (colonne A) puis des valeurs en (colonne B).
Il prend également la valeur constante E, comme valeur de stock de sécu.

Les données de dates, données et donc stock de sécu peuvent être variable selon la référence traitée.

Ainsi j'aimerais obtenir un graphique qui soit plus beau que celui que j'ai dans ma pièce jointe et que les dates aillent de la première de mon tableau à la dernière.

 

[ted1057]

Re : Graphique avec sélection de données variable

bonjour,

je me permet de relancer le sujet
toujours pas de solution me concernant

 

[Misange]

Re : Graphique avec sélection de données variable

Bonjour

tu n'as pas besoin de macro pour faire cela, il te suffit d'utiliser la fonctionalité tableau (onglet accueil/style/mettre sous forme de tableau) et de construire ton graphique à partir de là.
Dès que tu écris dans la première ligne vide sous le tableau, la formule du dessus se recopie, la donnée s'intègre dans le tableau et dans le graphique.
Voir plus d'explications ici et ton fichier en retour
Ce lien n'existe plus

 

[Efgé]

Re : Graphique avec sélection de données variable

Bonjour ted1057, Salut Misange 🙂 .
Comme j'étais parti, je livre
Je suis bien d'accord avec Misange, je t'ai même fait un exemple complet (voir fichier joint).
Si tu tiens vraiment à te compliquer la vie, essai ces changerments :

Sub Prep_Graph()
Sheets("analyse").Select
 Ls = Cells(Rows.Count, "A").End(xlUp).Row
 ActiveWorkbook.Names("date").RefersToR1C1 = "=Analyse!R3C1:R" & Ls & "C1"
 ActiveWorkbook.Names("valeur").RefersToR1C1 = "=Analyse!R3C2:R" & Ls & "C2"
 ActiveWorkbook.Names("ss").RefersToR1C1 = "=Analyse!R3C5:R" & Ls & "C5"
 'ActiveWindow.SmallScroll Down:=-6
 'Reprise de ton code original
Ls = Cells(Rows.Count, "f").End(xlUp).Row
 'Etc.....

Cordialement

 

[ted1057]

Re : Graphique avec sélection de données variable

Bonjour, Efgé et Misange

Vos solutions fonctionnent très bien merci à vous.
Je vais opter pour la solution macro mais je vais étudier la solution du tableau qui pourrait mettre utile pour d'autres applications.

 

[Misange]

Re : Graphique avec sélection de données variable

Pourquoi faire simple quand on peut faire compliqué c'est bien vrai ça 🙂