Crétion d'une macro pour tracer un graphique

Bonjour a tous,

je dois réaliser une macro qui me permette de tracer un graphique, mais je n'ai aucune idée de comment faire

le problème est assez simple, je dois réaliser une 3 courbes de trois ligne s de mon tableau.

sans macro c'est simple maic avec macro ...

merci de me proposer des solutions

Bonsoir,

Ben tu peux pas faire un enregistrement de ce que tu fais sans macro ?

Outils/Macro/Nouvelle macro

A partir de là tes moindres actions se retrouveront dans la macro (sélection de cellule, déplacement avec la molette...). Donc fais tout ce que tu aurais fait pour créer ton graphique, en évitant les actions superflues. quand tu as fini arrête l'enregistrement à l'aide du bouton "stop" sur la barre d'outils macro.

Tu peux maintenant lancer ta macro avec Outils/Macro/Macros... et exécuter.

Elle pourra ressembler à ça :

Sub Graphique()
'
' Graphique Macro
' Macro enregistrée le 25/06/2008 par Sylvain
'

'
    Range("B5").Select
    Selection.CurrentRegion.Select
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:D11"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

MERCI

sa marche

je cherche cette fois ci a afficher puis a supprimer mon graphique dans une autre feuille de mon classeur,

je fais exactement la même chose que précedemment(céer une macro, copy, paste, délete, arrêter macro), j'arrive bien a afficher un graphe mais je n'arrive pas a le supprimer.

En fait je veux mettre une condition IF

IF cellule = 1

Afficher mon graphe

else

Supprimer mon graphe

end IF

Si vous avez une idée je suis pronneur

MERCI

En attendant une meilleure réponse, voici ce que tu peux faire (à adapter selon tes besoins:

Sub Macro7()
On Error Resume Next

If Range("C1").Value = 1 Then ' si C1 = 1 alors:
'création du grpahe
    Range("A1:B4").Select
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B4"), PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
Else 'sinon
'selectionner le graphe avant
    Selection.Delete
    End If
End Sub

Pour supprimer ton graphe, sélectionne le.... je n'arrive pas à le sélectionner automatiquement.... je laisse donc place aux grands "codeurs" forum.... mais c déjà une piste....

Souri84

Quand tu crées ton graphique, crée le sur une nouvelle feuille.

Ensuite tu n'auras plus qu'à supprimer cette feuille.

se n'est ps si simple, en fait ce que je veux faire, c'est utiliser une case "coche" pour :

si case coché: copier vers une autre feuille de mon classeur

si je décoche ma case: je supprime le graphique que j'ai précedemment copier

voila voila le blème...