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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!