graphique suivent mois et années

[gege21]

Bonjours a tous

je voudrai faire des graphique en choisissant le mois et l'année
j'ai mis plus de détail dans la feuille joint
🙄

 

[gege21]

Re : graphique suivent mois et années

🙁
pas de petite ide pour moi

 

[JNP]

Re : graphique suivent mois et années

Bonjour Gege21 🙂,
Je ne pense pas qu'on manque d'idées, je pense plutôt qu'entre les explications nébuleuses, et la conception du fichier test très bancale, ceux qui s'y sont intéressé ont vite abandonné 😛...
Sous réserve d'enlever l'espace " " derrière janvier, de mettre avril au lieu d'avirl, d'enlever l'espace derrière juin, etc., ensuite de respecter des données dates (le 10/01/10, les cellules sont en "10/janv/10", donc du texte 😡...), je ne parle pas de l'onglet "nenu" au lieu de "menu"... Un début de code qui fonctionne, à compléter pour la suite des mois 🙄.

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

Vu que les dates sont identiques, la référence des abscisses est l'heure. S'il y a plus d'une date par mois, il faudrait se référer à une colonne qui ajouterait la date et l'heure...
Bon courage 😎

 

[gege21]

Re : graphique suivent mois et années

merci JNP pour ta réponse

je vais regarde sa mais cela me semble plutôt bien

ps: désolé pour les erreurs 😀

 

[gege21]

Re : graphique suivent mois et années

bonjours

cela marche très bien
1er il faudrait juste un message d'erreur si je rentre un mois ou une année fausse
2er comment agrandir le graph. en plane page
🙄

 

[JNP]

Re : graphique suivent mois et années

Re 🙂,

cela marche très bien
1er il faudrait juste un message d'erreur si je rentre un mois ou une année fausse
2er comment agrandir le graph. en plane page

1) Vu que c'est des listes de validations, cela ne devrait pas exister, mais tu peut utiliser un MsgBox après le End With en faisant un test

If Plage Is Nothing Then

2)Là, aucune idée, je n'utilise jamais de graphe (même sans VBA), c'était quasiment la première fois, juste parce que tu te désespérais 😛. Mais tu dois pouvoir trouver en cherchant sur le forum...
Bon courage 😎

 

[gege21]

Re : graphique suivent mois et années

re.
bonjours
chez moi cela ne marche pas (je suis sous 2007)🙁

1) Vu que c'est des listes de validations, cela ne devrait pas exister, mais tu peut utiliser un MsgBox après le End With en faisant un test

If Plage Is Nothing Then

 

[JNP]

Re : graphique suivent mois et années

Re 🙂,

chez moi cela ne marche pas (je suis sous 2007)🙁

Moi aussi je suis en 2007 😉.
Mais, il ne faut pas se contenter de mettre le test, il faut aussi lui dire ce qu'il faut faire 😛...

[COLOR=blue]End With[/COLOR]
If Plage Is Nothing Then
MsgBox "Il n'y a pas de valeurs à cette date !"
Exit Sub
End If
[COLOR=blue]ActiveSheet.Shapes.AddChart.Select[/COLOR]

à injecter entre les 2 lignes en bleu.
Bonne journée 😎