Discussion :

[Youni92]

Bonjour,

J'ai un petit soucis avec le code suivant:

Code :

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

1
2
3
4
5
6
Sheets("Curves").Select
ActiveSheet.ChartObjects("Chart 6").Activate
'Ne fonctionne pas
      'ActiveChart.SeriesCollection(1).Values = Sheets("Data").Range(Cells(89, 10), Cells(89, 24))
'Fonctionne
ActiveChart.SeriesCollection(1).Values = Sheets("Data").Range("J89:X89")

Je souhaite mettre à jour un graphique pointant sur un tableau dont le nombre de colonne varie.
Je cherche le nombre de colonne en amont, ici 24.
Vu que je ne peux pas directement faire varié la colonne "X" je souhaite utiliser la notation "RC" mais cela ne fonctionne pas...

Une idée ?


EDIT:
Si je travaille dans une seule et même feuille le code suivant fonctionne:

Code :

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

'ActiveChart.SeriesCollection(1).Values = Range(Cells(89, 10), Cells(89, 24))

Mon soucis est vraiment de travailler avec 2 feuilles distinctes

[mercatog]

Code :

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

1
2
3
With Worksheets("Data")
    Worksheets("Curves").ChartObjects("Chart 6").Chart.SeriesCollection(1).Values = .Range(.Cells(89, 10), .Cells(89, .Columns.Count).End(xlToLeft))
End With

[Youni92]

Merci !!

Je ne comprends pas vraiment le code, donc je vais simplement l'utiliser en l'état.
Encore merci

[mercatog]

Je ne comprends pas vraiment le code, donc je vais simplement l'utiliser en l'état.

Mauvais choix

Explication

Code :

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

1
2
3
4
5
Dim LastCol As Integer
 
'donne la dernière colonne remplie de la ligne 89 de la feuille Data
LastCol = Worksheets("Data").Cells(89, Worksheets("Data").Columns.Count).End(xlToLeft)
Worksheets("Curves").ChartObjects("Chart 6").Chart.SeriesCollection(1).Values = Worksheets("Data").Range(Worksheets("Data").Cells(89, 10), Worksheets("Data").Cells(89, LastCol))

On peut améliorer la visibilité du code grace à With/End With

Code :

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

1
2
3
4
5
6
7
Dim LastCol As Integer
 
With Worksheets("Data")
    'donne la dernière colonne remplie de la ligne 89 de la feuille Data
    LastCol = .Cells(89, .Columns.Count).End(xlToLeft)
    Worksheets("Curves").ChartObjects("Chart 6").Chart.SeriesCollection(1).Values = .Range(.Cells(89, 10), .Cells(89, LastCol))
End With

Et dans le code #2, j'avais remplacé LastCol directement par sa valeur recherchée

Les 3 codes fonctionnent identiquement

[Kimy_Ire]

Mauvais choix