erreur sur abcisse graphique

G

gege21

XLDnaute Occasionnel
bonjours a tous

cette macro me cree un graphique
mais la les date sur l'axe des abcisse est faux et je ne c pas pourquoi

j'ai besoin de votre aide

Code: 
Sub moisTemps()

Sheets("graph.mesuel").Visible = True
Sheets("graph.mesuel").Select
Set F1 = Worksheets(Feuil11.Name)
Application.ScreenUpdating = False
On Error Resume Next
F1.Shapes("Graphique1").Delete
Dim Mois As Integer, Année As Long, Plage As Range, I As Integer
Select Case Sheets("menu").ComboBox1
Case "janvier"
Mois = 1
Case "février"
Mois = 2
Case "mars"
Mois = 3
Case "avril"
Mois = 4
Case "mai"
Mois = 5
Case "juin"
Mois = 6
Case "juillet"
Mois = 7
Case "août"
Mois = 8
Case "septembre"
Mois = 9
Case "octobre"
Mois = 10
Case "novembre"
Mois = 11
Case "décembre"
Mois = 12
Case Else
Exit Sub
End Select
Année = Sheets("menu").ComboBox2
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, 3), .Cells(I, 13))  ' colone
Else
Set Plage = Union(Plage, .Cells(I, 3), .Cells(I, 13)) ' colone
End If
End If
I = I + 1
Wend
End With
If Plage Is Nothing Then
MsgBox "Il n'y a pas de valeurs à cette date !", vbExclamation, "Erreur" _
: Sheets("menu").Visible = True: Sheets("menu").Select _
: Sheets("graph.mesuel").Visible = False
Exit Sub
End If
Charts.Add
With ActiveChart
    .ChartType = xlLine
    .SetSourceData Source:=Plage, PlotBy:=xlColumns
    .Location Where:=xlLocationAsObject, Name:=F1.Name
End With
' réglage axe X du graphique
With ActiveChart
     .PlotArea.Select
     .Axes(xlValue).CrossesAt = -30
     .Axes(xlCategory).TickLabelSpacing = 40
     .Axes(xlCategory).TickMarkSpacing = 30
     .SeriesCollection(1).Name = "='Données'!$c$1"
     .SeriesCollection(2).Name = "='Données'!$m$1"
     .ChartTitle.Delete
End With
' affiche date et heurs sur graphique
    ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.ChartArea.Select
    derlin = Sheets("Données").Range("R1048576").End(xlUp).Row
    ActiveChart.SeriesCollection(1).XValues = "='Données'!$R$2:$R$" & derlin
    ActiveChart.Parent.Name = "Graphique1"
' réglage taille du graphique
With ActiveSheet.Shapes("Graphique1")
    .Left = 0
    .Top = 0
    .Width = 1260
    .Height = 750
End With

' couleur des courbes du graphique
    Sheets("graph.mini-maxi").Select
    ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 0
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .ColorIndex = 20
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    ActiveChart.ChartArea.Select

End Sub
 
Trier par date Trier par votes
G

gege21

XLDnaute Occasionnel
Re : erreur sur abcisse graphique

bonjour et merci pour la réponse

mais cela ne marche pas les dates sur abscisse sont toujours fausse

ps: les date et heurs de l'abscisse provienne de la colonne "R" et non "A"
mais cela ne change pas grand chose :(
 
Vote positif 0 Vote négatif
K

kjin

XLDnaute Barbatruc
Re : erreur sur abcisse graphique

Bonsoir,
gege21 à dit:
ps: les date et heurs de l'abscisse provienne de la colonne "R" et non "A"
mais cela ne change pas grand chose :(
Cliquez pour agrandir...
Non, hormis que dans la colonne R les dates sont fausses !
Une fois la conversions de la colonne A effectuée, en R2
Code: 
=A2+B2
Ceci étant dit, ce n'est pas le seul pb, mais en mettant...
Code: 
On Error Resume Next
...au début du code, ça masque les erreurs sans pour autant les résoudre
A+
kjin
 
Vote positif 0 Vote négatif
G

gege21

XLDnaute Occasionnel
Re : erreur sur abcisse graphique

bonsoir.

Ceci étant dit, ce n'est pas le seul pb, mais en mettant...
Code:

On Error Resume Next

...au début du code, ça masque les erreurs sans pour autant les résoudre
Cliquez pour agrandir...

"on error resume next " et déjà dans le code :eek:

a moin que je ne l'ai pas mis ou il faut :cool:
je croit que mon problème va être dur a résoudre :(:


Code: 
Sub moisTemps()
Sheets("graph.mesuel").Visible = True
Sheets("graph.mesuel").Select
Set F1 = Worksheets(Feuil11.Name)
Application.ScreenUpdating = False
[COLOR="Red"]On Error Resume Next[/COLOR]
F1.Shapes("Graphique1").Delete
Dim Mois As Integer, Année As Long, Plage As Range, I As Integer
Select Case Sheets("menu").ComboBox1
Case "janvier"
Mois = 1
Case "février"
Mois = 2
Case "mars"
Mois = 3
Case "avril"
Mois = 4
Case "mai"
Mois = 5
Case "juin"
Mois = 6
Case "juillet"
Mois = 7
Case "août"
Mois = 8
Case "septembre"
Mois = 9
Case "octobre"
Mois = 10
Case "novembre"
Mois = 11
Case "décembre"
Mois = 12
Case Else
Exit Sub
End Select
Année = Sheets("menu").ComboBox2
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, 3), .Cells(I, 13))  ' colone
Else
Set Plage = Union(Plage, .Cells(I, 3), .Cells(I, 13)) ' colone
End If
End If
I = I + 1
Wend
End With
If Plage Is Nothing Then
MsgBox "Il n'y a pas de valeurs à cette date !", vbExclamation, "Erreur" _
: Sheets("menu").Visible = True: Sheets("menu").Select _
: Sheets("graph.mesuel").Visible = False
Exit Sub
End If
Charts.Add
With ActiveChart
    .ChartType = xlLine
    .SetSourceData Source:=Plage, PlotBy:=xlColumns
    .Location Where:=xlLocationAsObject, Name:=F1.Name
End With
' réglage axe X du graphique
With ActiveChart
     .PlotArea.Select
     .Axes(xlValue).CrossesAt = -30
     .Axes(xlCategory).TickLabelSpacing = 40
     .Axes(xlCategory).TickMarkSpacing = 30
     .SeriesCollection(1).Name = "='Données'!$c$1"
     .SeriesCollection(2).Name = "='Données'!$m$1"
     .ChartTitle.Delete
End With
' affiche date et heurs sur graphique
    ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.ChartArea.Select
    derlin = Sheets("Données").Range("R1048576").End(xlUp).Row
    ActiveChart.SeriesCollection(1).XValues = "='Données'!$R$2:$R$" & derlin
    ActiveChart.Parent.Name = "Graphique1"
' réglage taille du graphique
With ActiveSheet.Shapes("Graphique1")
    .Left = 0
    .Top = 0
    .Width = 1260
    .Height = 750
End With

' couleur des courbes du graphique
    Sheets("graph.mini-maxi").Select
    ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 0
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .ColorIndex = 20
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    ActiveChart.ChartArea.Select

End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
204
clausen
C
U
  • Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
389
un internaute
U
U
  • Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
370
un internaute
U
pmfontaine
  • Question
Microsoft 365 Erreur d'exécution 5 argument ou appel de procédure incorrect avec ActiveSheet.ChartObjects.Add()
Réponses
12
Affichages
388
pmfontaine
pmfontaine
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
372
un internaute
U
Lu76Fer
  • Question
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
4 K
TooFatBoy
TooFatBoy
M
  • Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
403
Mody200
M
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
932
pelerin65
P
T
  • Résolu(e)
Microsoft 365 filtre sur un tabstrip depuis un combobox
2
Réponses
27
Affichages
2 K
troki74
T
T
  • Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
332
troki74
T

Membres actuellement en ligne

4 membres et 49 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 810
dernier inscrit
mohammedaminelahbali