Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ajouter une nouvelle série (nuage de points XY) avec un emplacement variable

nam90

XLDnaute Nouveau
Bonjour à tous,

Dimanche pluvieux, Excel heureux

Un petit problème que je n'arrive pas à résoudre... Voilà:

Dans ma macro, je souhaite ajouter une série de données sur un graph type nuage de points.
En enregistrant, j'obtiens le code suivant:

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""Nominal Current"""
ActiveChart.SeriesCollection(2).XValues = "='50Hz 400V -10% Vlim'!$A$10:$A$11"
ActiveChart.SeriesCollection(2).Values = "='50Hz 400V -10% Vlim'!$B$10:$B$11"

C'est parfait, mais maintenant je souhaiterais que le nom de mon onglet soit une variable.
J'ai essayé:

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""Nominal Current"""
ActiveChart.SeriesCollection(2).XValues = nomfeuil & "!$A$10:$A$11"
ou
ActiveChart.SeriesCollection(2).XValues = "=" & nomfeuil & "!$B$10:$B$11"

Mais cela ne fonctionne pas
nomfeuil est ma variable (nom de l'onglet où sont mes données) en question...

Je pense qu'il faudrait peut-être passé par des "Range", mais je ne vois pas trop comment tourner le truc...
Je pourrais aussi concatener dans une case le texte (nomfeuil + !$A$10:$A$11), mais ce n'est pas très élégant, non?!

Un petit conseil, une suggestion?

Merci d'avance et bon dimanche !
 

nam90

XLDnaute Nouveau
Re : Ajouter une nouvelle série (nuage de points XY) avec un emplacement variable

Ah ! J'ai trouvé...
C'était une question d'apostrophe...

ActiveChart.SeriesCollection(2).XValues = "='" & nomfeuil & "'!$A$10:$A$11"
ActiveChart.SeriesCollection(2).Values = "='" & nomfeuil & "'!$B$10:$B$11"

Le détail!

Merci à tous.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…