j'ai un tableau de la form suivante:
B2 -> 01/06/2008
C2 -> 02/06/2008
D2 -> 03/06/2008
... pour un certain établissement et lorsque l'on passe à un autre établissement les dates sont à nouveau écrites, ex: E2 -> 01/06/2008, F2 -> 02/06/2008....
A3 -> nom var1, B3 -> donnees pour 01/06/2008, C3 -> donnees pour O2/06/2008...
A4 -> nom var2, B4 -> donnees pour 01/06/2008...
....
A11 -> nom var9, B11 -> donnees pour le 01/06/2008...
ce que je veux c'est réaliser un graphique suivant un étblissement et une variable (ex:var3) et pour lequel la plage de données est (B2: x2,BL:xL), x étant la colonne de la dernière date pour un établissement, L la ligne correspondant à la variable que l'on a choisi.
voici mon code:
'col est le nombre de jours/dates pour un établissement
'on sélectionne la dernière cellule au niveau des jours
va = Sheets("Etape1").Range("B2").Offset(O, col - 1)
'on sélectionne la dernière cellule au niveau des données
k = Sheets("Etape1").Range("B3").Offset(l - 3, col - 1)
dat = "B2:" & va
donnees = "B" & l & ":" & k
'si l'établissement vaut 1
If Sheets("Etape2").Range("K12").Value = 1 Then
For i = 1 To 9
'si le numéro de la variable et i sont égaux, il y a 9 variables en tout
If R = i Then
'selection de la plage de données et création du graphique
'Range("B2:" & va & ",B" & l & ":" & k).Select
Range(dat, donnees).Select
Range("B" & l).Activate
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Etape1").Range("B2:" & va & ",B" & l & ":" & k)
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.ChartArea.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Etape1").Range("B2:" & va & ",B" & l & ":" & k), _
PlotBy:=xlRows
ActiveChart.SeriesCollection(1).Name = "=Etape1!R" & l & "C1"
ActiveChart.Legend.Select
Selection.Delete
Sheets("Etape1").Select
End If
l = l + 1
Next i
mon problème est au niveau du range :
que je mette
'Range("B2:" & va & ",B" & l & ":" & k).Select
ou
Range(dat, donnees).Select
ca ne marche pas, je ne vois pas du tout comment débloquer tout ca!!!
le fait que ma plage de cellules se "découpe en 2" me pose problème.
je ne sais pas si j'ai bien expliquer mon problème mais j'ai vraimeent besoin d'aide!!!
