Discussion :

[skipeemed]

Bonjour,

J'ai un autre problème: le code suivant qui ne marche pas:

Code :

Code :

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

1
2
3
4
ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData Source:=Range("A1:7"&dernière_cel_lign+1)

Je veux appliquer à un schéma des données contenu dans la plage A1 jusqu'à
V7, mais V change puisqu'elle correspond à la colonne qui est tout de suite après la dernière colonne du tableau.( V= dernière_cel_lign+1)

Merçi encore.
Cdt,
SKIP

[jfontaine]

Bonjour,

Ci dessous code a tester

Code :

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

1
2
 
ActiveChart.SetSourceData Source:=Range("A1:" & Cells(7, dernière_cel_lign+1).Address)

[babaothe]

salut

et en prenant le soin de vérifier une exception évidente : cas de la dernière déjà remplie = la dernière possible

[skipeemed]

Bonjour tous les 2,

en fait j'ai utilisé ce code là et ça marches à merveille :

Code :

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

ActiveChart.SetSourceData Source:=Range(cells(1,1),cells(7,derniere_cel_col+1))

Merçi comme même.

Cdt,
SKIP