MAcro pour graphique

Bonjour,

Je dois créer une macro afin de générer des graphiques.

LE problème c'est que j'ai aucune connaisance en VBA, je lis des documents sur le net mais je n'ai rien trouvé concernant l'écriture en VBA pour les graphiques ou simplement enregistrer une macro à partir de valeurs.

Mon graphique représentera une concentration et une température en fonction du temps.

Mon nombre de données est aléatoire. Un jour je peux avoir un centaine de valeurs et un autre en avoir que 50 par exemple.

De plus, je dois mettre un bouton afin de simplifier encore plus la génrération du graphique.

Je vous cache pas que je suis perdu et un peu complexe pour moi.

Je vous remercie de m'aider.

Edouard

Bonjour,

Aurais-tu un exemple de fichier à nous faire parvenir, stp?

Cela augmentera les possibilités de réponse.

Slts

Bap

alors voici unfichiers excel 1500 données

le nombre de colonne restera toujours le même (c'est à dire 3)

• une pour la date et l'heure
• une pour la température
• une pour la concentration

je vous remercie !

Edouard

j'ai un deuxième fichier mais il est trop gros pour être en pièce jointe

merci Edouard

Bonjour à tous,

j'ai fait ma macro et j'obtiens ce code ci :

Option Explicit

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/03/2011 par MESLON
'

'
    Range("C1:E09").Select
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("C1:E09"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "?????????????????"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "H2S (ppm)"
    End With
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).AxisGroup = 2
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 3
        .MarkerForegroundColorIndex = 3
        .MarkerStyle = xlSquare
        .Smooth = True
        .MarkerSize = 5
        .Shadow = False
    End With
    With ActiveChart
        .Axes(xlValue, xlSecondary).HasTitle = True
        .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "T"
    End With
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlCategory).Select
End Sub

Je dois générer des graphique avec un nombre de données variable

Ma question est :

est ce qu'il faut obligatoirement aller dans le visual basic et changer le nombre de cellules ou est ce qu'on peut faire plus simple ?

je vous remercie

BOnjour c'est encore moi

j'ai ce code ci :

Sub Macro1()

    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth

    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "H2S & Température en fonction du temps"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "H2S (ppm)"
    End With
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).AxisGroup = 2
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 3
        .MarkerForegroundColorIndex = 3
        .MarkerStyle = xlSquare
        .Smooth = True
        .MarkerSize = 5
        .Shadow = False
    End With
    With ActiveChart
        .Axes(xlValue, xlSecondary).HasTitle = True
        .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Température (°C)"
    End With
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = 0
        .MaximumScaleIsAuto = True
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic

    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlCategory).Select
End With

End Sub

mais quand je le lance, la macro bug et la ligne pour mettre le titre ( la 6ème ligne : .HasTitle = True) se surbrille en jaune alors qu'avant je n'avais pas de problème et je ne sais pas pourquoi

je vous remercie de regarder

je vous ai mis le fichier

on clique sur le bouton, une fenêtre apparait

on sélectionne les données et on clique sur graphique et j'obtenais le graphique

merci

Edouard