Re !
Bon alors pas de Souci bebe1310, tout s'arrange.....et bienvenu sur XLD
Alors pour tes feuilles, je pense que c'est réglé....
Pour tes graphs, comme je t'ai déjà écrit, ce n'est pas ma spécialité. Ceci dit j'ai un peu regardé pour toi tout à l'heure et donc la méthode que je t'ai donnée :
X = Worksheets("sheet1").ChartObjects(1).Chart.SeriesCollection.Count
Une fois adaptée à ton classeur (nom de feuille, index de Chart) te permettra de savoir combien de Séries sont actuellement dans ta Chart.
Maintenant pour rajouter une série et la nommer j'ai écrit ceci :
Sub GraphAjoutSerie()
Dim X As Byte
Dim Plage As Range
Dim Nom As String
X = Worksheets("Feuil1").ChartObjects(1).Chart.SeriesCollection.Count
Set Plage = Application.InputBox(prompt:="Sélection de la plage", Type:=8)
Nom = InputBox("Nom de la nouvelle Série")
With Worksheets("Feuil1").ChartObjects(1).Chart
.SeriesCollection.Add Source:=Plage
.SeriesCollection(X + 1).Name = Nom
End With
End Sub
Voilà, je pense que tu pourras avancer maintenant...
Bonne Fin de Week End à tous et toutes
@+Thierry
PS déjà la Méthode InputBox de Ti mise en application ! (thanks again)