probleme de macro

[dede039]

bonjours a tous
j'ai une macro qui me fait un graphique
sur l'axe X j'ai l'heure (sur la feuil jointe colonne 2 sur ongles données)
or je voudrai y mettre date + heure (sur la feuil jointe colonne 18 sur ongles données)

Set Plage = Union(.Cells(I,[COLOR="Red"] 2[/COLOR]), .Cells(I, 3), .Cells(I, 13)) 
Else
Set Plage = Union(Plage, .Cells(I,[COLOR="Red"] 2[/COLOR]), .Cells(I, 3), .Cells(I, 13))

et si je met la colonne 18 le graphique me fait n'importe quoi
ma question et simple comment faire (a savoirs que je ne doit pas touche la place des colonne)
😕

 

[pierrejean]

Re : probleme de macro

bonjour dede039

Une solution palliative:

ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.Axes(xlValue).CrossesAt = Worksheets("config").Range("K11").Value
    ActiveChart.Axes(xlCategory).TickLabelSpacing = Worksheets("config").Range("K12").Value
    ActiveChart.SeriesCollection(1).Name = "='Données'!$c$1"
    ActiveChart.SeriesCollection(2).Name = "='Données'!$m$1"
    ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.ChartArea.Select
  [COLOR=blue]  ActiveChart.SeriesCollection(1).XValues = "='Données'!$R$2:$R$27"
[/COLOR]ActiveChart.Parent.Name = "Graphique1"
With ActiveSheet.Shapes("Graphique1")
    .Left = Worksheets("config").Range("K13").Value
    .Top = Worksheets("config").Range("K14").Value
    .Width = Worksheets("config").Range("K15").Value
    .Height = Worksheets("config").Range("K16").Value
End With

 

[dede039]

Re : probleme de macro

bonjours et merci pierrejean
pour la réponse cela marche très bien
il faut juste que cela aie jusqu'à la dernier linge écrite

ActiveChart.SeriesCollection(1).XValues = "='Données'!$R$2:$R$27"

🙄

 

[pierrejean]

Re : probleme de macro

Re

Ok

ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.Axes(xlValue).CrossesAt = Worksheets("config").Range("K11").Value
    ActiveChart.Axes(xlCategory).TickLabelSpacing = Worksheets("config").Range("K12").Value
    ActiveChart.SeriesCollection(1).Name = "='Données'!$c$1"
    ActiveChart.SeriesCollection(2).Name = "='Données'!$m$1"
    ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.ChartArea.Select
   [COLOR=blue] derlin = Sheets("Données").Range("R65536").End(xlUp).Row
    ActiveChart.SeriesCollection(1).XValues = "='Données'!$R$2:$R$" & derlin
[/COLOR]ActiveChart.Parent.Name = "Graphique1"
With ActiveSheet.Shapes("Graphique1")
    .Left = Worksheets("config").Range("K13").Value
    .Top = Worksheets("config").Range("K14").Value
    .Width = Worksheets("config").Range("K15").Value
    .Height = Worksheets("config").Range("K16").Value
End With

 

[dede039]

Re : probleme de macro

merci pierrejean 🙂