Sélection cellules pour graphe

[ledaf]

Bonjour,

Ci joint le code que j'utilise:

Sheets("Feuil2").Select
i = 2
Do Until Cells(2, i) = Sheets("Tableau de bord").Range("F29")
    i = i + 1
Loop
Cells(2, i).Select
j = 2
Do Until Cells(2, j) = Sheets("Tableau de bord").Range("F31")
    j = j + 1
Loop
Cells(2, j).Select
Range(Cells(2, i), Cells(10, j)).Select

    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(Cells(2, i), Cells(10, j)), PlotBy _
        :=xlRows

Mon problème se situe à ce niveau:

 ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(Cells(2, i), Cells(10, j)), PlotBy _
        :=xlRows

Il bloque sur les cellules que je sélectionne. La syntaxe n'est pas bonne?

En vous remerciant.

 

[ledaf]

Re : Sélection cellules pour graphe

Bonjour,

Un peu dans le même style, cette syntaxe ne fonctionne pas et je nes sais pas pourquoi:

ch = Cells(14, i).Address & ":" & Cells(14, j).Address

sélectionne par exemple la plage de cellules "B14:E14"

ch1 = Cells(23, i).Address & ":" & Cells(23, j).Address

sélectionne par exemple la plage de cellules "B23:E23"

ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(ch, ch1), _
        PlotBy:=xlRows

au lieu de sélectionner les 2 plages ci-dessus il me sélectionne "B14:E23", pourquoi?

 

[soenda]

Re : Sélection cellules pour graphe

Bonjour le fil, ledaf

Modifies la partie en rouge

ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(ch[COLOR=Red][B] & "," &[/B][/COLOR] ch1), PlotBy:=xlRows

A plus