graphique par VBA

[gege21]

bonjours a tous

j'ai besoin de votre aide pour crée un graphique par vba

 

[James007]

Re : graphique par VBA

Bonjour,

Comme pour ton post de début d'année :
https://www.excel-downloads.com/threads/macro-pour-cree-un-graphique.155756/

Tu peux demander à ce qu'on t'aide sur un point bien défini ... mais une question trop générale n'incite pas à répondre ...

As-tu déjà déroulé tout ton processus, avec l'enregistreur de macros ... ?

A +
🙂

 

[gege21]

Re : graphique par VBA

bonjours James007
comme j'ai essaye de l'explique je voudrais faire par vba un un graphique des colonnes "d" et "f"
les donnes étant sur plusieurs années je voudrai choisie l'année pour laquelle je veut faire une graphique
j'espère avoir été un peut plus claire

 

[James007]

Re : graphique par VBA

Bonjour,

Pour commencer par le commencement, tu dois organiser tes données ...

voir fichier joint

A +
🙂

 

[gege21]

Re : graphique par VBA

bonjours.

j'avoue que je suis très nul en vba et je ne c pas quoi et comment faire😕😕

 

[James007]

Re : graphique par VBA

Re,

Avec un simple filtre et sans VBA, est-ce-que cela répond à ta question ...

A +
🙂

 

[gege21]

Re : graphique par VBA

bas non cas je vais ajoute cette macro avec d'autre c pour sa qu'il faut que se soi en vba
si tu as une autre ide
ou si quelqu'un savait faire sa cela m'aiderai bien

 

[gege21]

Re : graphique par VBA

j'ai se code qui fait un graph suivant le mois et l'année

Sub Test()
Dim Mois As Integer, Année As Long, Plage As Range, I As Integer
Select Case Sheets("nenu").Range("D5")
Case "janvier"
Mois = 1
Case "fevrier"
Mois = 2
' A complèter avec les 10 autres mois...
Case Else
Exit Sub
End Select
Année = Sheets("nenu").Range("F5")
If Année = 0 Then Exit Sub
With Sheets("Données")
I = 2
While .Cells(I, 1) <> ""
If Month(.Cells(I, 1)) = Mois And Year(.Cells(I, 1)) = Année Then
If Plage Is Nothing Then
Set Plage = Union(.Cells(I, 2), .Cells(I, 5))
Else
Set Plage = Union(Plage, .Cells(I, 2), .Cells(I, 5))
End If
End If
I = I + 1
Wend
End With
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Plage
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Location Where:=xlLocationAsObject, Name:="graph."
End Sub

quelle modif sont a faire pour n'avoir que les années a choisir