Discussion :

[Damien3710]

Bonjour à tous,

Je suis débutant en macro excel et je souhaite en réaliser une simple.
Pour commencer j'ai enregistrer une macro pour m'entrainer mais la je suis bloquer.

Je souhaite réaliser une macro qui trace un graphique (jusque içi c'est simple) mais avec les données qui sont prélevés dans la feuille active.

J'ai fait une boite de dialogue qui me permet d'activer tel ou tel feuille mais j'arrive pas à selectionner les données dans cette feuille. Voici mes tests :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Charts.Add
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = _
        "='ActiveSheet.Name'!R2C2:R351C2"
    ActiveChart.SeriesCollection(1).Values = _
        "='ActiveSheet.Name'!R2C6:R351C6"
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With

Les "ActiveSheet.Name ne marche pas. Je vois pas comment faire.

Merci pour votre aide

[tedo01]

Bonjour,
Le "ActiveSheet.Name" doit se trouver dans le code VBA, à l'extérieur de la chaîne de caractère, car ce code n'est pas reconnu dans les formules Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveChart.SeriesCollection(1).XValues = "='" & ActiveSheet.Name & "'!R2C2:R351C2"
ActiveChart.SeriesCollection(1).Values = "='" & ActiveSheet.Name & "'!R2C6:R351C6"

[Kimy_Ire]

Tente ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Charts.Add
With ActiveChart
    .ChartType = xlXYScatterLinesNoMarkers
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = ActiveSheet.Range("B2:B351")
    .SeriesCollection(1).Values = ActiveSheet.Range("F2:F351")
    .Location Where:=xlLocationAsNewSheet
 
 
    .HasTitle = False
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
End With

Tiens moi au courant !

[Damien3710]

Bonjour,

Tout d'abord, merci pour votre aide.
Malheureusement, aucune des solutions ne fonctionne...

D'autres idées?
Merci d'avance

[Damien3710]

Bon en fait ca marche dsl.

Merci!