Graphique à source variable

Bonjour,
Je voudrais réaliser un graphique dont les données varient régulierement.

Parfois mon graphique aura les cellules B1 à B10 comme données à afficher en fonction de A1 et A10 (respectivements...)
D'autres fois de A1 à A100 et B1 à B100.
Comment programmer cela?

D'avance merci pour votre aide!

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Macro5() Range("A30:F43").Select Range("F30").Activate Selection.Sort Key1:=Range("F30"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Charts.Add ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Sheets("EtudeSpread").Range("E30:E43"), _ PlotBy:=xlColumns ActiveChart.SeriesCollection(1).XValues = "=Etude!R30C6:R200C6" ActiveChart.SeriesCollection(1).Values = "=Etude!R30C5:R200C5" ActiveChart.Location Where:=xlLocationAsObject, Name:="EtudeSpread" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Spread VS rating" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With Application.Run "BLPLinkReset" ActiveSheet.Shapes("Chart 9").IncrementLeft 426# ActiveSheet.Shapes("Chart 9").IncrementTop -2022.75 End Sub

---

Il faudrait que le passage en gras devienne variable mais je ne sais pas comment faire

Je pense qu'il faudrait implémente un truc du genre au début :

Code:

---

1 2 3

Range("A1").Select nb = Selection.End(xlDown).Row

---

et ensuite dans les éléments en gras du graphique aller de la cellule A1 à la cellule Anb (ou nb = dernier nombre)
et meme procédure pour la colonne B

Mais comment coder cela?

Tu peux faire varier la longueur de la colonne sans problème en automatique pour le nombre de série je ne sais pas
dans insertion nom définir

dans le champs du haut ma_serie (c'est un exemple )
dans le champ du bas

Code:

---

=decaler(feuilX!$a1;1;0;nbval(feuilX!$a:$a)-1;1)

---

le moins 1 si tu as en a1 une cellule titre
la formule va nommer ma_serie la zone définie par la fonction decaler
si tu rouvres insertion nom definir
tu sélectionnes ma_serie et tu pointes la formule la zone est sélectionnée par un encadrement pointillé

bon on a édité en même temps et ça change tout8O

En effet on a édité en meme temps!
Du coup je vois pas trop comment fonctionne ce que tu suggères...

Code:

---

ActiveWorkbook.Names.Add Name:="Plage", RefersToR1C1:="=Feuil1!R1C1:R" & lig & "C31"

---

ceci ajoutera le nom 'Plage' dans la liste des noms du classeur s'étendant de A1 à AE lig. lig étant la variable ligne

l'insertion des noms ou des plages nommées est une fonction de la feuille de calcul la fonction décaler permet de la rendre adaptative le code que je t'ai rajouté permet de rentrer une plage nommées par VBA

Ah super j'avais pas pensé à nommer ça en plage !!!!!! :king:
J'utilise jamais les plages (je sais, c'est mal :D)

Du coup, comment on met le nom de la plage dans mon code?

Ah oui c'est vrai que pour nommer une plage dans un graphique c'est encore une M..icrosofterie pas piquée des vers
valeur en x= nom_du_classeur.xls!ma_serie
je te conseille d'ailleurs pour faire les essais des graphique avec seris nommées de renommer le classeur en A.xls et de construire le nom en VBA avec le contenue d'une cellule
et merde mon clavier viens de basculer en qwerty
tu changes le nom a l'enregistrement
a=q '=u accent m=virgule Oh putain que c'est chiant
j'essaie de me remettre d'aplomb

Oula le QWERY a été fatal! Je capte pas un choux là comme on dit dans le sud ;-)


Pour régler mon problème j'ai besoin de deux choses :
- nommer une plage
- in sérer dans ce code le nom de la plage

Code:

---

1 2	ActiveChart.SeriesCollection(1).XValues = "=Etude!R30C6:R200C6" ActiveChart.SeriesCollection(1).Values = "=Etude!R30C5:R200C5"

---

j'ai réédité le dernier message les explication sont un tantinet plus clair
bon je vais me casser j'ai cours d' art plastique
A+

Code:

---

1 2	ActiveChart.SeriesCollection(1).XValues = nom_du_classeur.xls!ma_serie ActiveChart.SeriesCollection(1).Values = "=Etude!R30C5:R200C5"

---

ça serait comme ça?

je n'ai jamais essayé de rentrer le truc par VBA
je l'ai toujours installé dans le graphique et je ne modifié que les données se référant a la plage
notamment sur un truc pour du SPC les graphique évoluant en fonction des données entrées
mais je pense que le truc doit etre de cette sorte peut être avec des " " ou un '
il faudra que j'essaie

SPC???? C'est quoi?

SPC c'est du suivi de production par une méthode statistique qui permet donc de surveiller les dérives d'un process et de corriger avant de généré des fabrications mauvaise .Tu surveilles la dispersion (largeur d'une courbe de gauss ) et le positionnement de la mediane

D'accord!
Bon faudra que je teste le graphique cet aprem,
Merci pour tes réponses.