Nztx
XLDnaute Nouveau
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.
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 :
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.
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.
Code:
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 :
Code:
Public Function nb_onglets()
nb_onglets = Sheets.Count
End FunctionAfin 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.