Discussion :

[supengalere]

Bonjour à tous !
Je viens vous voir pour quelque chose de simple seulement voila je n'arrive pas à voir d'ou provient mon erreur ...
J'ai deux colonnes :
en A des vitesses de vent
en C des puissances associée
j'aimerai tracer la puissance en fonction de la vitesse .
Je me suis aidé de l'enregistreur de macro mais le résultat n'est pas le bon : il me trace 2 courbes en fonction du nombre de points ...
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub courbe_puissance()
 
Dim DernLigne2 As Long
 
DernLigne2 = Range("A" & Rows.Count).End(xlUp).Row
 
 
ActiveSheet.Shapes.AddChart.Select
 
 
With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "courbe puissance "
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = ActiveSheet.Range("A2:A" & DernLigne2).Value
        .SeriesCollection(1).Values = ActiveSheet.Range("C2:C" & DernLigne2).Value
        .ChartType = xlXYScatter
    End With
 
 
End Sub

Je sais que l'erreur doit être toute bête mais ca fait 45min que je galère dessus ...
Pouvez vous m'aider svp ?

[supengalere]

J'ai trouvé ce qui n'allait pas et j'ai amélioré nettement le programme.
Si quelqu'un est intéressé me contacter par MP.
Je clos le sujet