probleme sur macro qui gener un graphique

[gege21]

bonsoir a tous,

j'ai une macro qui me crée un graphique en plein écran "pour moi 22pouce"
le problème et que de temps a autre je me retrouve avec un petite graphique au
centre de l'écran et je ne c pas pourquoi

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Gorfael]

Re : probleme sur macro qui gener un graphique

Salut gege21 et le forum
Un fichier d'exemple c'est bien... si on a de quoi le lire !
Tu aurais mis ta macro dans le poste, j'aurais pu y jeter un oeil, mais là, tu vas être obligé d'attendre le passage d'un dépanneur possédant une version récente.
A+

 

[gege21]

Re : probleme sur macro qui gener un graphique

la voila mais elle long

Private Sub temperatureminimaxi_Click()
'Sheets("graph.mini-maxi").Visible = True
Sheets("graph.mini-maxi").Select
'ActiveSheet.Unprotect ' deprotege la feuille
'Sheets("menu").Visible = False
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Worksheets(Feuil4.Name)
Set F2 = Worksheets(Feuil6.Name)
Application.ScreenUpdating = False
On Error Resume Next
F2.Shapes("Graphique1").Delete
Charts.Add
With ActiveChart
    .ChartType = xlLine
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = F1.Range("A2", F1.[A2].End(xlDown))
    .SeriesCollection(1).Values = F1.Range("G2", F1.[G2].End(xlDown))
    .SeriesCollection(1).Name = F1.Range("G1")
    .SeriesCollection.NewSeries
    .SeriesCollection(2).Values = F1.Range("E2", F1.[E2].End(xlDown))
    .SeriesCollection(2).Name = F1.Range("E1")
    .Location Where:=xlLocationAsObject, Name:="graph.mini-maxi"
    End With
'image de fond graphique
Sheets("graph.mini-maxi").Select
ActiveSheet.ChartObjects("Graphique1").Activate
Sheets("graph.mini-maxi").DrawingObjects("Graphique1").RoundedCorners = False
    Sheets("graph.mini-maxi").DrawingObjects("Graphique1").Shadow = False
    Selection.Fill.UserPicture picturefile:=ThisWorkbook.Path & "\" & "img2.jpg"
    Selection.Fill.Visible = True
'réglage axe x du graphique
With ActiveChart
    .PlotArea.Select
    .Axes(xlValue).CrossesAt = -30 'Worksheets("config").Range("K3").Value
    .ChartTitle.Delete
    .ChartObjects("Graphique1").Activate
    .Axes(xlCategory).TickLabelSpacing = 8 'Worksheets("config").Range("K4").Value
    .Axes(xlCategory).TickMarkSpacing = 100 'Worksheets("config").Range("K5").Value
    .ChartArea.Select
    .Parent.Name = "Graphique1"
    End With
' réglage taille du graphique
With ActiveSheet.Shapes("Graphique1")
    .Left = 0 'Worksheets("config").Range("K6").Value
    .Top = 0 'Worksheets("config").Range("K7").Value
    .Width = 1260 ' Worksheets("config").Range("K8").Value
    .Height = 750 'Worksheets("config").Range("K9").Value
End With
' image de fond 2 du graphique
ActiveChart.PlotArea.Select
    Selection.Fill.UserPicture picturefile:=ThisWorkbook.Path & "\" & "IMG1.png"
    Selection.Fill.Visible = True
' couleur des curbes du graphique
     Sheets("graph.mini-maxi").Select
    ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 6 'Worksheets("config").Range("O20").Value
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .ColorIndex = 10 'Worksheets("config").Range("O21").Value
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    ActiveChart.ChartArea.Select
' intituler du graphique
    ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 550, 10, 100#, 100#).Select
Selection.Characters.Text = "Les Températures"
Selection.AutoScaleFont = True
    With Selection.Font
        .Size = 14
        .Name = "Albertus Medium"
        End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        End With
    Selection.ShapeRange.Height = 30
    Selection.ShapeRange.Width = 150
' déplace légende au centre
ActiveChart.Legend.Select
Selection.Left = 565
Selection.Top = 40
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.ChartArea.Select
ActiveChart.PlotArea.Select
Selection.Width = 1240
[A1].Select
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' reprotege la feuille
End Sub

 

[gege21]

Re : probleme sur macro qui gener un graphique

personne n'aurai d'ide pour moi ??

 

[gege21]

Re : probleme sur macro qui gener un graphique

bonjour,
je croi que j'ai trouve le problème cela provient du bouton pour retourner au menu
j'ai donc fait un 2eme bouton qui lui ne crée plus le problème
mais quelle et la différence entre sec deux bouton
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[gilbert_RGI]

Re : probleme sur macro qui gener un graphique

Bonjour GéGé21

bonjour,
je croi que j'ai trouve le problème cela provient du bouton pour retourner au menu
j'ai donc fait un 2eme bouton qui lui ne crée plus le problème
mais quelle et la différence entre sec deux bouton
Cijoint.fr - Service gratuit de dépôt de fichiers

un bouton est un active X
et l'autre un bouton de formulaire

le fichier fonctionne correctement chez moi.

 

[gege21]

Re : probleme sur macro qui gener un graphique

bonjours Gilbert
le bouton active x pour retournée au menu marche
mais quand je re-clic pour faire un nouveau graph
la je me retrouve avec u tout petit graph ??

 

[gilbert_RGI]

Re : probleme sur macro qui gener un graphique

bonjours Gilbert
le bouton active x pour retournée au menu marche
mais quand je re-clic pour faire un nouveau graph
la je me retrouve avec u tout petit graph ??

en effet c'est surprenant

mais il semblerait que les graphs générés en passant par l'active X ne se nommeraient pas "Grapique1" mais "GraphiqueX" X étant le nombre de graphs parus depuis l'ouverture du fichier
d'où le changement dans le code
c'est peut-être une piste

 

[gilbert_RGI]

Re : probleme sur macro qui gener un graphique

je viens de modifier quelques peu le prog et il semblerait qu'il fonctionne ainsi

le fichier

si le fichier prend une extension zip le renommer avec une extension xlsm j'ai ce problème avec le votre 🙄

ou téléchargez le avec FireFox

 

[gilbert_RGI]

Re : probleme sur macro qui gener un graphique

Pas de retour !!!

sans doute pas d'importance d'avoir cherché une solution........