Discussion :

[ultrabody]

Bonjour,

Je souhaite créer un graphique en bâton dans une feuille excel dans laquelle j'affiche mon tableau de données. (abscisses - ordonnées)
Exemple:
test 1 test 2 test 3 test 4
OK 2 1 4 2
KO 0 0 0 1

Le nombre de tests varie.
Je peux avoir 4 colonnes de tests ou plus ou moins.

J'ai fait plusieurs recherches dans le forum et sur Google. Et je ne trouve pas de solutions à mon problème.
J'ai trouvé des méthodes différentes.

J'ai finalement enregistré une macro qui me donne ceci

Code :

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

1
2
3
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("Cartographie!$C$8:$J$10")

Cela fonctionne bien.

Toutefois, je ne sais pas comment modifier

Code :

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

    ...Source:=Range("Cartographie!$C$8:$J$10")

pour que les données soient dynamique.


J'ai testé en déclarant une variable Range sans succès.

Code :

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

myRange = mypage.Range(mypage.Cells(line, cptColumn), mypage.Cells(endline, p))

Comment solutionner ce problème ?

Par avance merci pour votre aide.

[ultrabody]

Finalement, j'ai trouvé...
j'ai mal cherché sur Google.

Je vous donne la solution à mon problème ça pourrait servir à d'autres

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim sheetName As string
Dim line, cptColumn, endline,p as Integer 'déclaration des coordonnées pour les cellules à utiliser pour le graphe
 
sheetName    = "[NOM DE LA FEUILLE]"
 
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered 'type de graphe: ici en bâton
ActiveChart.SetSourceData Source:=Sheets(sheetName).Range(Cells(line, cptColumn), Cells(endline, p))

[mercatog]

Notes que tu peux aussi faire un graphique dynamique sans code.
Il suffit de nommer dynamiquement tes plages de données.

Fais une recherche sur DVP (tutos ou sujets similaires)

[ultrabody]

Effectivement, j'ai vu aussi cette méthode.
Pour ma part, cela me semblait bizarrement plus complexe.

J'avais l'impression de ne pas "maîtriser" les données.