Bonjour à tous je sais pas ce qui se passe mais je crois que je beug...
je souhaite changer la taille de la police de plusieurs graph que je crée en VBA dans une feuille.
Je me suis aidé de l'enregistreur de macro et je suis arrivé à cela
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
        'Création graphique
    Dim gGraphique As ChartObject
    Application.ScreenUpdating = False
    Set gGraphique = Worksheets(sNomFeuille).ChartObjects.Add(100, 100, 100, 100)
 
    gGraphique.Chart.ChartType = xlColumnClustered
    gGraphique.Chart.SetSourceData source:=Sheets(sNomFeuille).range(sDebutRange & ":" & sFinRange), PlotBy:= _
        xlRows
    gGraphique.Chart.Location Where:=xlLocationAsObject, Name:=sNomFeuille
    gGraphique.Left = Worksheets(sNomFeuille).Columns(iColDebutPlage).Left
    gGraphique.Top = Worksheets(sNomFeuille).Rows(iLigneFinPlage + 2).Top
    gGraphique.Width = range(sDebutRange & ":" & sFinRange).Width
    gGraphique.Height = 130
 
    gGraphique.Chart.Axes(xlCategory).TickLabels.Font.Name = "Arial"
    gGraphique.Chart.Axes(xlCategory).TickLabels.Font.Size = 8
    DoEvents
 
    gGraphique.Chart.Axes(xlValue).TickLabels.Font.Name = "Arial"
    gGraphique.Chart.Axes(xlValue).TickLabels.Font.Size = 8
    DoEvents
    gGraphique.Chart.Legend.Font.Name = "Arial"
    gGraphique.Chart.Legend.Font.Size = 8
    DoEvents
ce code est dans une boucle j'ai environ 5 graphiques produit et ben figuré vous que les polices ne sont pas changées ! elles sont à 10.5 au lieu de 8 je comprends absolument rien, si quelqu'un a déja rencontré ce problème je suis preneur, merci de votre aide

petite remarque quand je me position en mode debug sur les lignes de codes qui changent les polices et quej e fais F8 a chaque fois ça marche