Création d'un graph Excel en VBA

Bonjour,

Je cherche à tracer un graph de type camembert en cliquant sur un bouton.
J'ai donc commencé par enregistrer une macro Excel puis je cherche à l'adapter pour pouvoir l'utiliser.
En effet, la macro que j'ai enregistré est valable pour 1 certaine ligne et j'aimerai pouvoir l'adapter pour les autres lignes de mon tableau.

J'aimerai donc remplacer le Range("C8:O8") par une structure du type Cells(x,3),Cells(x,15) pour que je puisse ensuite faire varier la ligne.

J'ai essayé tout un tas d'idées, en créant des plages, des tableaux, ... mais malheureusement je bloque toujours... :cry:

Je vous mets le code dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Graph_Click()   'Tracer le graph   Charts.Add ActiveChart.ChartType = xlPie ActiveChart.SetSourceData Source:=Sheets("Feuille1").Range("C8:O8"), _ PlotBy:=xlRows   ActiveChart.SeriesCollection(1).XValues = "=Feuille1!R2C3:R2C15" ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphs"     End Sub

---

Merci d'avance pour toute l'aide que vous pourrez m'apporter!

A adapter à ta macro:

Code:

---

1 2 3 4 5 6 7

Sub Comptage_lignes_et_colonne() Sheets("feuil1").Select Range("a1").Select iNblignes = Range("A1").End(xlDown).Row iNbColonnes = Range("A1").End(xlToRight).Column MsgBox iNblignes & " lignes, et " & iNbColonnes & " colonnes." End Sub

---

En esperant que ca te convienne.

Merci pour ta réponse. J'avais finalement trouvé un autre moyen de contourner le problème et ça revenait à peu près à ta technique!
Bonne journée