Discussion :

[Yatagan66]

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...

Je vous mets le code dessous :

Code :

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

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!

[hugues03]

A adapter à ta macro:

Code :

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

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.

[Yatagan66]

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