création de graphique avec selection variable

[david]

Bonjour tous le monde.

J'essai de créer un graphique automatiquement (via macro) avec une selection de donnée variable.

voici le code que j'utilise

Union(Range(Cells(1, 3), Cells(1, nbrecol)), Range(Cells(4, 3), Cells(4, nbrecol))).Select 'selectionne les cellules C1 à M1 et C4 à M4
    
'création du graphique
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets('Stats').Union(Range(Cells(1, 3), Cells(1, nbrecol)), Range(Cells(4, 3), Cells(4, nbrecol))), _
        PlotBy:=xlRows
    ActiveChart.SeriesCollection(1).Name = '=''Taux'''
    ActiveChart.Location Where:=xlLocationAsObject, Name:='Stats'
    
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = 'graphique'
           End With

Il me marque une erreur sur cette ligne:

ActiveChart.SetSourceData Source:=Sheets('Stats').Union(Range(Cells(1, 3), Cells(1, nbrecol)), Range(Cells(4, 3), Cells(4, nbrecol))), _

Par avance merci

David

 

[CB60]

bonjour le Forum, david


Regarde le fichier que Michelxld m'avait passé, je pense qu'il devrait répondre à ton probléme.

Lien supprimé eriode.zip

Bruno

 

[CB60]

Re
je te met le fichier en piéce jointe car le lien ne fonctionne pas
Bruno [file name=graph_20060519090526.zip size=42018]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/graph_20060519090526.zip[/file]

 

[david]

Bonjour CB60

Le lien fonctionne, enfin il suffit de faire un copier coller puis effacer l'espace. lol

Merci mais cela ne répond pas a ma question , c'est bien bien plus complexe que ce que j'essai de faire lol.

Je vais tenter de le réexpliquer:

Au début, je selectionne les données qui m'interressent pour le graphique puis ensuite je le cré mais le probleme est que dans la selection y'a une variable et c'est cette variable qui me cré une erreur dans le code (le union(.......)

Voila

Mais merci quand meme d'avoir pris le temps de me répondre

david