[E-03] Utiliser un String comme reference de plage de cellules
Bonjour tout le monde,
j'ai un petit souci sur lequel je m'arrache les cheveux depuis plusieurs heures, je lance donc un SOS... (je precise que je suis debutant)
je voudrais utiliser le string "datarange" comme reference d'une plage de cellule.
quand je fais afficher le string datarange, je recois bien "B3:B502"
mais en tournant mon programme je recois un message d'erreur 1004.
je precise que quand je saisis Range("B3:B502"), a la place de Range(datarange), tout fonctionne...
voila mon code:
Code:
1
2
| Dim TabVoies As Variant
TabVoies = Range("B18:D32").Value |
tableau dont la derniere colonne contient des noms de colonne, du type A, B, C, etc...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "M1_Graph"
Dim compteur As Integer
Dim datarange As String
Dim suite As Label
Dim mongraph As ChartObject
datarange = ""
compteur = 0
For c = 1 To 15
If TabVoies(c, 2) = "" Then GoTo suite
datarange = """" & TabVoies(c, 3) & "3:" & TabVoies(c, 3) & "502"""
Sheets("M1_graph").Activate
Set mongraph = ActiveSheet.ChartObjects.Add(0, 200 * compteur, 500, 200)
mongraph.Chart.ChartType = xlXYScatterLines
mongraph.Chart.SeriesCollection.Add Source:=ActiveWorkbook.Sheets("M1_data_histo").Range(datarange), Rowcol:=xlColumns
compteur = compteur + 1
suite:
Next c
End If |
Merci beaucoup d'avance et bonne journee!
