modif de macro

[gege21]

bonjours a tous

j'ai une macro que mes crée un graphique jusque la tous va bien
il me faut une modif.

1) que le graphique sois génère jusqu'à la dernier ligne écrite

Option Explicit
' =============== Création des 3 graphiques ============================================================
Dim F1 As Worksheet, f2 As Worksheet
' --------------- Graphique 1 type : Courbes
Sub BoutonCreer1_Click()
Set F1 = Worksheets(RMfeuil1.Name)
Set f2 = Worksheets(Feuil6.Name)
Application.ScreenUpdating = False
On Error Resume Next
f2.Shapes("Graphique1").Delete
Charts.Add
With ActiveChart
    .ChartType = xlLine
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = F1.[[COLOR="Red"]B3:B25[/COLOR]]
    .SeriesCollection(1).Values = F1.[[COLOR="Red"]C3:C25[/COLOR]]
    .SeriesCollection(1).Name = "Y1"
    .Location Where:=xlLocationAsObject, Name:="feuil1"
End With
ActiveChart.Parent.Name = "Graphique1"
With ActiveSheet.Shapes("Graphique1")
    .Left = 220
    .Top = 220
    .Width = 440
    .Height = 260
End With
[A1].Select
End Sub

merci par avance 🙄

 

[soenda]

Re : modif de macro

Bonjour le fil, gege21

...Que le graphique soit généré jusqu'à la dernière ligne écrite ...

Peut-être quelque chose comme ça :

SeriesCollection(1).XValues = F1.[COLOR=red]Range("B3", F1.[B3].End(xlDown))[/COLOR]

Idem pour la colonne [C:C]

PS: Je n'ai pas testé et je n'ai pas regardé le fichier (pas trop le temps)

A plus

 

[gege21]

Re : modif de macro

bonjours soenda

vu les premier teste sa a l'air de marcher
merci