Graph avec données source variable

[famu]

Bonjour à tous,
Voici mon code :

Dim Maplage As Range
Dim SemDe As String
Dim SemA As String
Dim GraphDe As Range
Dim GraphA As Range

Range(SemDe).Select
GraphDe = ActiveCell.Address
Range(SemA).Select
GraphA = ActiveCell.Address
Maplage = Range("GraphDe" & ":" & "GraphA")
Charts.Add
ActiveChart.SetSourceData Source:=Range(Maplage)
ActiveChart.ChartType = xlColumnClustered

et comme vous pouvez certainement le voir : ça ne peut pas marcher !
Par contre...moi...je bloque !!!

Merci pour votre aide.

 

[Pierrot93]

Re : Graph avec données source variable

Bonsoir,

regarde ceci, en supposant les autres variables convenablement initialisées :

Set Maplage = Range("GraphDe" & ":" & "GraphA")
Charts.Add
ActiveChart.SetSourceData Source:=Maplage

bonne soirée
@+

 

[famu]

Re : Graph avec données source variable

Bonjour Pierrot et merci.

Set Maplage = Range("GraphDe" & ":" & "GraphA")
"La méthode Range de l'objet Global a échoué"
Set Maplage = Nothing

Voici mes variables :

Dim Maplage As Range
Dim SemDe As String
Dim SemA As String
Dim GraphDe As String
Dim GraphA As String

Merci de m'aider encore...je galère.

 

[Pierrot93]

Re : Graph avec données source variable

Boinjour,

comme dit hier :

regarde ceci, en supposant les autres variables convenablement initialisées :

dans le code que tu nous montres, je vois la définition mais pas l'initialisation... difficile d'en dire plus avec un bout de code jeté sur un post....

 

[famu]

Re : Graph avec données source variable

Boinjour,

comme dit hier :


dans le code que tu nous montres, je vois la définition mais pas l'initialisation... difficile d'en dire plus avec un bout de code jeté sur un post....

Oui c'est vrai...toujours pressé !
Voilà, ça marche :

Dim Maplage
Dim SemDe As String
Dim SemA As String
Dim GraphDe
Dim GraphA

Range(SemDe).Select
GraphDe = ActiveCell.Address
Range(SemA).Select
GraphA = ActiveCell.Address
Set Maplage = Range(GraphDe & ":" & GraphA)
Charts.Add
ActiveSheet.Name = "Graph"
ActiveChart.SetSourceData Source:=Maplage
etc..

En tout cas merci bcp de m'avoir aidé et mis sur la piste.
Bonne journée,
Francis.