Discussion :

[andlio]

Bonjour à tous!

Je souhaite créer une macro qui mette à jour les sources de données d'un graphique.
Ce graphique possède 2 séries.

La macro reçoit 3 arguments :
1°) La ligne max
2°) La colonne 1 (correspondant aux données de la séries 1)
3°) La colonne 2 (correspondant aux données de la séries 2)

Voici mon code :

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
Sub PourcentCmdParFN(intNbRows, intCol1, intCol2)
'
' PourcentCmdParFN Macro
' Macro enregistrée le 03/01/2007 par administrateur
'
 
'
    ActiveChart.SeriesCollection(2).XValues = "='Commandes FN'!R4C1:R" & (3 + intNbRows) & "C1"
 
    ActiveChart.SeriesCollection(2).Values = "='Commandes FN'!R4C" & intCol2 & ":R" & (3 + intNbRows) & "C" & intCol2
 
    ActiveChart.SeriesCollection(1).XValues = "='Commandes FN'!R4C1:R" & (4 + intNbRows) & "C1"
 
    If intCol2 > 4 Then
        ActiveChart.SeriesCollection(1).Values = "='Commandes FN'!R4C" & intCol1 & ":R" & (3 + intNbRows) & "C" & intCol1
    Else
        ActiveChart.SeriesCollection(1).Values = "={0}"
    End If
 
End Sub

Je lance cette macro à partir d'un prog VB.Net (framework 1.1), et j'utilise MS Excel 2000 SP-3.

A l'éxecution, l'erreur suivante apparait :

Erreur d'éxection '1004'
La méthode 'seriescollection' de l'objet '_chart' a échoué

L'erreur intervient sur la 1ère ligne.
Voici la manière dont j'appelle la macro : PourcentCmdParFN(14, 14, 15)

Merci pour votre aide!
Lionel.

[ouskel'n'or]

A la place de

ActiveChart.SeriesCollection(2).XValues = "='Commandes FN'!R4C1:R" & (3 + intNbRows) & "C1"

essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Valeur = Worksheets("Commandes FN").Range(Cells(Activecell.row+4,Activecell.column+1), _
cells(3 + intNbRows,Activecell.row+1)).value
    ActiveChart.SeriesCollection(2).XValues = Valeur

Si l'erreur passe à la deuxième ligne, c'est que c'est bon
A+

PS - en espérant ne pas m'être trompé dans le passage des adresses...

[Pierre Fauconnier]

Bonsoir

Si j'ai bien compris, tu as un classeur Excel avec un graphique, et tu souhaites modifier le graphique via un programme externe écrit en vb.net? Je me trompe?

Le code que tu proposes est un code VBA, issu du classeur contenant le graphique? Je me trompe?


Dans ce cas,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activeChart...

n'est pas un objet valide.
Tu dois, dans ton code vb.net
- utiliser une référence à Excel
- créer un objet excel.workbook et ouvrir le fichier contenant le graphique
- créer un objet excel.chart(*) pointant vers le graphique que tu veux modifier
- modifier ton code en remplaçant ActiveChart par l'objet Chart créé

(*) Je n'ai pas vérifié l'appellation exacte, à toi de voir, notamment dans l'aide de VB.Net lié à Office.

Ok?

[ouskel'n'or]

Oui, Pierre, tu as raison mais, pour ma propre gouverne, peut-on utiliser la formule Excel "='Commandes FN'!R4C1:R" & (3 + intNbRows) & "C1" dans ce cas-là ?

[Pierre Fauconnier]

Oui, Pierre, tu as raison mais, pour ma propre gouverne, peut-on utiliser la formule Excel "='Commandes FN'!R4C1:R" & (3 + intNbRows) & "C1" dans ce cas-là ?

Non, XValues demande une variable string.

Lorsque l'on veut référencer une plage, on utilise la propriété FORMULA comme pour un objet Cell ou Range.

Dans l'image zippée jointe, on voit les propriétés et leur valeur dans un espion VBA... (C'est parfois utile, l'espion VBA... )

Ai-je répondu?

Bonne année Ouskel'n'or

[ouskel'n'or]

En effet, on voit plein de choses... C'est ta copine qui s'appelle Martine ?
Pour la formule, je respire, j'ai cru que j'avais raté un cours
Bonne année à toi aussi, Pierre

[Pierre Fauconnier]

C'est même mon épouse...

La prochaine fois, je nettoyerai mieux mes données

A bientôt