[VBA] Données graphique

[Nztx]

Bonjour à tous,

Explication du fichier :
J'ai un fichier de maintenance d'accus, il me créer une fiche de maintenance par équipement.
Sur ma page d'accueil j'ai un menu qui me permet d'ajouter un équipement grâce a son numéro de série et de créer une feuille avec le nom de celui-ci.Ces feuilles de maintenance sont une copie d'une autre feuille qui s'appelle Modèle.

NomFeuil = Range("P1").Value
Sheets("Résultats").Select
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=NomFeuil!$E$3"
    ActiveChart.SeriesCollection(1).Values = "=NomFeuil!$C$10:$C$18"

But :
Chaque feuille à son graphique, mais je souhaite que chaque page crée vienne s'ajouter au Graphique Résultats, pour faire une comparaison globale.

Problèmes :
1) Ma variable de page NomFeuil ne fonctionne pas, car si je regarde les options de données dans mon graphique il m'écrit "=NomFeuil!$C$10:$C$18" j'ai essayer avec "='NomFeuil'!$C$10:$C$18" ne fonctionne pas non plus...

2) Le chiffre 1 dans ActiveChart.SeriesCollection(1).Name et Values devrait changer pour augmenter le nombre de courbes. J'ai essayer de récupéré le nombre d'onglet en attribuant ce code à une case :

Public Function nb_onglets()
    nb_onglets = Sheets.Count
End Function

Afin d'incrémenter en fonction du nombre de feuille.
Je reconnais que c'est vachement tordu ! Mais je suis débutant, je me débrouille comme je peux.

Si quelqu'un à une idée merci d'avance
Bonne journée


NOTE : C'est dernière ligne de ma macro dupliquer.

 

[mikachu]

Re : [VBA] Données graphique

Bonjour,

Pour le problème 1 essaye ça:

ActiveChart.SeriesCollection(1).Name = "=" & NomFeuil & "!$E$3"
ActiveChart.SeriesCollection(1).Values = "=" & NomFeuil & "!$C$10:$C$18"

pour le reste je n'ai pas bien compris...

mikachu

 

[Nztx]

Re : [VBA] Données graphique

Bonjour Mikachu,

Merci pour ta réponse, j'ai essayer ta solution mais ça ne fonctionne pas.
Pour le deuxième problème enfaite c'est une histoire d'incrémentation.

    ActiveChart.SeriesCollection(1).Name = "=NomFeuil!$E$3"
    ActiveChart.SeriesCollection(1).Values = "=NomFeuil!$C$10:$C$18"

le 1 étant les données de la première courbe du graphique, si je créer une autre courbe sur le même graphique la valeur entre parenthèse serra 2, etc...

Si tu as télécharger le fichier joint, dans l'onglet "Données" tu trouvera en F12 le nombre d'onglet existant, puis en F13 les données qui s'incrémente grâce à la création d'onglet. J'ai voulu me servir de ça pour incrémenter le nombre, mais ça ne fonctionne pas non plus. C'est pas facile à expliquer le mieux est d'essayer, c'est un peu tordu comme façon de faire je l'accorde !

Pour le fonctionnement du fichier, rentre du texte dans la TextBox et valide par le "+".

Merci de passer du temps sur mon topic