[VBA-E]Fonction Range

Version imprimable

Quelqu'un peut-il m'aider à débuguer ce code ? Plante sur la dernière ligne. Merci d'avance.
Bernard

Code:

1
2
3
4
5
6
7
8
Set r1 = Range(Cells(NbLignes1 + 6, 2), Cells(NbLignes1 + NbLignes2 + 6, 2))
Set r2 = Range(Cells(NbLignes1 + 6, 5), Cells(NbLignes1 + NbLignes2 + 6, NbColonnes2))
Set r3 = Union(r1, r2)
r3.Activate
 
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Volumes").r3, PlotBy:=xlRows

18/02/2006, 00h21
SfJ5Rpw8

quelle est la valeur contenu dans nbligne1 ?
message d'erreur ?

bonjour Bernard , bonjour Bbil

tu peux essayer ce type de synthaxe ( tesyé avec Excel2002)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim R1 As Range, R2 As Range, R3 As Range
Dim NbLignes1 As Integer, NbLignes2 As Integer
Dim NbColonnes2 As Byte
 
NbLignes1 = 1
NbLignes2 = 5
NbColonnes2 = 2
 
Set R1 = Sheets("Volumes").Range(Cells(NbLignes1 + 6, 2), _
    Cells(NbLignes1 + NbLignes2 + 6, 2))
Set R2 = Sheets("Volumes").Range(Cells(NbLignes1 + 6, 5), _
    Cells(NbLignes1 + NbLignes2 + 6, NbColonnes2))
Set R3 = Union(R1, R2)
R3.Activate
 
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=R3, PlotBy:=xlRows

bon week end
michel

18/02/2006, 07h50
LE MEAUX

ça marche.

J'avais perdu au moins 2 heures sur le sujet. Merci beaucoup.

Bernard