[excel] Macro pour graphique.

[invite266df5c8]

Bonsoir à tous.

Voila je dois actuellement réaliser une macro qui me ferai automatiquement une courbe en fonction de mon tableau.

-Mon tableau à toujours les mêmes dimensions.
-En abscisse mes valeurs vont de A30 à A16000
-Mes ordonnées vont de B30 à B16000, C30 à C16000 et D30 à D16000.

Vous l'aurez donc compris, mon graphique final sera composée de 3 courbes, et d'ailleurs à ce propos les courbes sont en nuage de points, mais sans les points, juste la courbe "lisse".

Donc si quelqu'un avait un didacticiel ou un truc du genre pour m'aider je vous en serait vraiment reconnaissant, car il ne me reste aucun souvenir de mes cours de VB xD

Merci, et si vous avez des questions, n'hésitez pas =)
-----

[invite2313209787891133]

Bonjour

Tu peux utiliser ça:

    Range("A30:D16000").Select
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Sheets("test").Range("A30:D16000")

En remplaçant "test" par le nom de ta feuille.

[invite266df5c8]

Ok merci je vais test ça

[invite266df5c8]

Bon voila j'ai un code qui fonctionne mais j'aimerai corriger 2 petites imperfection.

Voici mon code :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/10/2009 par #######
'

    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "='trial force test Inconel DA_2'!$A$24:$A$18023"
    ActiveChart.SeriesCollection(1).Values = "='trial force test Inconel DA_2'!$B$24:$B$18023"
    ActiveChart.SeriesCollection(1).Name = "=""Fx"""
    ActiveChart.SeriesCollection(2).XValues = "='trial force test Inconel DA_2'!$A$24:$A$18023"
    ActiveChart.SeriesCollection(2).Values = "='trial force test Inconel DA_2'!$C$24:$C$18023"
    ActiveChart.SeriesCollection(2).Name = "=""Fy"""
    ActiveChart.SeriesCollection(3).XValues = "='trial force test Inconel DA_2'!$A$24:$A$18023"
    ActiveChart.SeriesCollection(3).Values = "='trial force test Inconel DA_2'!$D$24:$D$18023"
    ActiveChart.SeriesCollection(3).Name = "=""Fz"""
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Results"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

Mes 2 problèmes :

Je sélectionne les valeurs sur la feuille "trial force test Inconel DA_2", le truc c'est que j'ai des vingtaine de feuille avec après le DA des 1,2,3, ect. Donc quand je lance la macro sur "trial force test Inconel DA_3" et bien, ça marche pas :/ Y a t-il moyen de faire une variable ou quelque chose du genre pour que cela marche quelque soit le numéro du fichier?

Mon second problème viens de "ActiveChart.ChartType = xlXYScatterSmoothNoMarkers", en effet, je demande une courbe lissé sans points, et il me met des points sur mes courbes à chaque fois cet enfoiré, alors avec 18000 valeurs * 3 colonnes, ça fait un peu trop de points à mon gout... Une solution pour ce problème?

P.S : je suis sur Excel 2007.

Merci d'avance

[A voir en vidéo sur Futura]

[sitalgo]

B'jour,

Au lieu de mettre

 ActiveChart.SeriesCollection(1).XValues = "='trial force test Inconel DA_2'!$A$24:$A$18023"

qui s'adresse à une feuille fixe, mets plutôt

 ActiveChart.SeriesCollection(1).XValues = ActiveSheet.Range("$A$24:$A$18023")

qui fait avec la feuille active lors du lancement de la macro.

[invite266df5c8]

Merci beaucoup \o/

Reste plus que la solution à ma deuxième question et c'est nickel

[sitalgo]

Je ne sais pas, il faut lire 4 tonnes de documentation pour avoir une malheureuse syntaxe. Essaie d'appliquer chartype sur les séries au lieu du graphe.

[invite266df5c8]

Héhé oui j'imagine pour la doc...

Je vais essayer ce que tu as dis, au pire si ça marche pas je ferai ça à la main ça prend 3s.

Merci à tous encore, bye

[Stan_94]

Bonjour,
puisque tu peux faire la manipulation à la main, tu peux donc enregistrer une macro de cela et insérer le code dans ton programme VBA, non ?

[invite266df5c8]

Bonjour,
puisque tu peux faire la manipulation à la main, tu peux donc enregistrer une macro de cela et insérer le code dans ton programme VBA, non ?

Ce de là que je suis partit, mais bon c'est vraiment pas top, j'ai du apporter pas mal de correction, c'est pour ces corrections que j'avais besoins d'aide ici

[invite266df5c8]

B'jour,

Au lieu de mettre

 ActiveChart.SeriesCollection(1).XValues = "='trial force test Inconel DA_2'!$A$24:$A$18023"

qui s'adresse à une feuille fixe, mets plutôt

 ActiveChart.SeriesCollection(1).XValues = ActiveSheet.Range("$A$24:$A$18023")

qui fait avec la feuille active lors du lancement de la macro.

Bonsoir,

J'ai essayer ton code, mais même après moult bidouillage, ça ne marche toujours pas, le debug s'arrête toujours sur cette ligne :/