Macro pour générer des graphiques

[EDMES]

Bonjour,

J'ai entendu dire qu'on pouvait utiliser des macros afin de générer des graphiques.
J'ai lu des documents sur les macros et le VBA mais rien de concret concernant les graphiques.
Je fais des mesures de concentrations de gaz et de température en fonction du temps.
C'est une tâche assez répétitive et j'aurai voulu passer par une macro pour effectuer ce graphique. De plus il faut mettre un bouton afin de simplifier encore plus.

Le soucis c'est que le nombre de valeurs de concentration va être variable.
Un jour j'ai 200 valeurs et l'autre que 50 par exemple.
y'aurait-il une personne qui pourrait m'aider à effectuer cette maccro.

Je vous remercie d'avance.
Edouard

 

[MJ13]

Re : Macro pour générer des graphiques

Bonjour Edouard

J'ai entendu dire qu'on pouvait utiliser des macros afin de générer des graphiques.

Ah bon, c'est super, çà 🙂.

Sinon, il nous faudrait une ébauche de fichier avec ce que tu veux obtenir pour mieux t'aider 😕

Par contre, pas sur que ce sera moi qui aurait le temps de m'en occupper, mais bon, le sujet m'intéresse 😱.

 

[EDMES]

Re : Macro pour générer des graphiques

ok je peux t'envoyer des fichiers avec des données si tu veux !
je te remercie
tu peux me sauver la vie

 

[phlaurent55]

Re : Macro pour générer des graphiques

Bonjour à tous

ok je peux t'envoyer des fichiers avec des données si tu veux !
je te remercie
tu peux me sauver la vie

@ Edmes,
l'idéal serait de mettre le fichier en pièce jointe

dans ta prochaine réponse, cliquer sur "Aller en mode Avancé", descendre un peu plus bas dans la feuille
et cliquer sur "Gérer les pièces jointes"

à+
Philippe

 

[EDMES]

Re : Macro pour générer des graphiques

yes merci
alors voici les deux fichiers excel (1 fichier avec 1500 données et l'autre avec 4550)
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

 

[MJ13]

Re : Macro pour générer des graphiques

Re

Avec l'enregistreur de macro sur Xl2007 et une petite adaptation, tu peux déjà partir sur cette base:

Après, je laisse la main, car pour la mise en forme, il y a du travail 😱.

Sub Macro_graphique()
    Range("C1").Select
    'Selection.Cut Destination:=Range("A1")
    Selection.Cut
    'Range("A1").Select
    'ActiveSheet.Paste
    Range("C2").Select
    Selection.CurrentRegion.Select
    ActiveSheet.Shapes.AddChart.Select
    'ActiveChart.SetSourceData Source:=Range("'Feuil1'!$C$1:$E$1523")
    'ActiveChart.SetSourceData Source:=Selection
    'ActiveChart.ChartType = xlXYScatter
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
End Sub

 

[EDMES]

Re : Macro pour générer des graphiques

Je te remercie MJ13 🙂
J'utilise Excel 2003.
Je copie ton code directement dans le VIsual Basic et j'exécute et ça me fait mon graphique.
je te remercie

 

[EDMES]

Re : Macro pour générer des graphiques

Bonjour

j'ai fait ma macro et elle marchait jusqu'au moment ou elle n'a plus voulu marcher

la ligne de la maccro ou on inscrit le titre était surbrillait en jaune.
Alors qu' avant il n'y avait pas de problème.
voici le code

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

je vous ai mis le fichier pour voir
on clique sur le bouton
une boite de dialogue apparait
on selection les données
et on appuie sur le bouton graphique
et le graphique se faisait

Je vous remercie