Discussion :

[etudiant en hydro]

Bonjour.
Je souhaite tracer des graphiques sous Excel via une macro.
Je souhaite attribuer une plage de données de longueur variable, dépendante d'un paramètre que la macro calcule et qui s'appelle ici "nb_pas_temps" et d'un autre que l'utilisateur rentre lui même et qui s'appelle "Producteur".

J'ai essayé (un collègue de travail m'a aidé, sinon, je n'aurais rien à écrire) ces scripts suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'Initialisation des nouvelles variables
Producteurs = Sheets("Results_bruts").Cells(1, 2).Value
Injecteurs = Sheets("Results_bruts").Cells(1, 4).Value
Nb_pas_temps = Sheets("Results_bruts").Cells(1, 6).Value
For i = 4 To 4 + Nb_pas_temps
    If Cells(i, 1).Value = "" Then Exit For
Next i
Nb_pas_temps = i - 1 - 3
Cells(3, 1).Value = ""
 
'Mise à jour du graphique "Flux"
Sheets("Flux").Select
ActiveChart.SetSourceData Source:=Sheets("Results_bruts"). _
    Range(Cells(3, 1), Cells(Nb_pas_temps + 3, Producteurs + 1)), PlotBy:=xlColumns

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveChart.SetSourceData Source:=Sheets("Results_bruts"). _
    R3C1:R " & (Nb_pas_temps + 3) & " C " & (Producteurs + 1) & ", PlotBy:=xlColumns

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveChart.SetSourceData Source:=Sheets("Results_bruts").Range("A3:I6"), _
    PlotBy:=xlColumns

Quelles seraient de possibles solutions à appliquer pour que cela fonctionne?
Merci d'avance.

[Daranc]

pourquoi fait une variation de donnée par macro?
tu veut pouvoir ajouter des donnée à la suite de ta série?
essaies
insertion
nom
definir
ajouter
tu met un nom par ex List_done
et dans le champ en bas
=decaler(feuil1!$A$1;1;0;nbval(a:a);1)
ceci sous entends que tes données sont sur la feuille 1 et descendent depuis A1
la cellule de titre est en A1 autrement après la parenthèse du decaler tu cliques sur la cellule de titre nbval( a:a) ou la zone ou tu doit trouver tes données de même pour que ce soit correct si tu as un plage de données en a1:a100 tu n'inscrit rien en A2300 ou tu limites ta référence de calcul nbval($a$1:$a$500)
le graphique tu te met sur un cellule toute seule avec rien ni dedans ni a coté tu cliques sur l'icone graphique tu choisi le type de graphique .suivant
tu ouvres l'onglet serie tu cliques sur ajouter tu as un champ y={1} tu remplaces le ={1} par =nom_du_classeur.xls!List_done (là je conseille au début d'enregistrer le classeur sous un nom du type A ou B parce que retaper: "voici_le_classeur_de_jean_pierre_qui__va_vachement_me_servir_pour_epater_les_copains0.xls! " tu risques des erreurs lorsque ton fichier marche avec A.xls!list_done tu peut l'enregistrer sous le nom que tu veux Excel corrigeras les fonctions avec le nouveau nom
la procédure est la même pour les valeurs en X tu fait une insertion nom tu peut pointer la première faire ajouter mettre le nouveau nom le champ en bas à toujours le texte de l'insertion précédente tu ne change que les lettres des colonnes
Daranc