Sujet Précédent Sujet Suivant

Vba excel graphique avec série de données non fixes

cs_celia62 Messages postés 3 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 28 mai 2008 - 26 mai 2008 à 11:57
cs_celia62 Messages postés 3 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 28 mai 2008 - 27 mai 2008 à 08:49

tout d'abord bonjour à tous et merci d'avance pour les gens qui prendront le temps de regarder cette question!

je vous explique mon problème je travaille sur excel sur un tableau de données mis à jour tous les mois donc ou tous les mois s'ajoute une cellule.
mes séries de données se touve sur les lignes 5, 6 ,7 et 8
et l'axe des abscisses sur la ligne 4.
J'aimerais donc créer un graphique qui prendrait encompte les données partant de la cellule B jusque la dernière cellule remplie.

Voici ce que j'ai testé mais sa ne fonctionne pas, mon graphique ne m'affiche rien

nomserie1 = range("B4").Select
nomserie2 = range("B5").Select
nomserie3= range("B6").Select
nomserie4 = range("B7").Select

x = 4
abscisse = range("B" & x & ":AZ" & x).Select
serie1 = Sheets("tb5-2008").range("B" & x + 1 & ":AZ" & x + 1).Select
serie2 = Sheets("tb5-2008").range("B" & x + 2 & ":AZ" & x + 2).Select
serie3 = Sheets("tb5-2008").range("B" & x + 3 & ":AZ" & x + 3).Select
serie4 = Sheets("tb5-2008").range("B" & x + 4 & ":AZ" & x + 4).Select

Charts.Add
    ActiveChart.ChartType = xlAreaStacked
    ActiveChart.SetSourceData Source:=Sheets("tb5-2008").range("I14")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = abscisse
    ActiveChart.SeriesCollection(1).Values = serie1
    ActiveChart.SeriesCollection(1).Name = nomserie1
    ActiveChart.SeriesCollection(2).XValues = abscisse
    ActiveChart.SeriesCollection(2).Values = serie2
    ActiveChart.SeriesCollection(2).Name = nomserie2
    ActiveChart.SeriesCollection(3).XValues = abscisse
    ActiveChart.SeriesCollection(3).Values = serie3
    ActiveChart.SeriesCollection(3).Name = nomserie3
    ActiveChart.SeriesCollection(4).XValues = abscisse
    ActiveChart.SeriesCollection(4).Values = serie4
    ActiveChart.SeriesCollection(4).Name = nomserie4

A voir également:

Vba excel graphique avec série de données non fixes
Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
Dernière ligne non vide vba - Forum VBA Office (Excel, Word ...)
Byval vba - Conseils pratiques -Visual Basic / VB.NET
Afficher userform vba a l'ouverture d'excel ✓ - Forum Visual Basic

1 réponse

Réponse 1 / 1

cs_celia62 Messages postés 3 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 28 mai 2008
27 mai 2008 à 08:49

personne ne veut m'aider?

Discussions similaires

fonction modulo en VBA

Dernière cellule non vide d'une colonne

Comment fonctionne la fonction FormulaR1C1

Le Modulo en VB6

Selection derniere cellule non vide plage cellule Excel

Votre réponse

Discussions similaires