Bonjour bonjour,

Actuellement je dispose d'un graphique fait avec une macro : C'est une bête xlLine qui se base sur une colonne de chiffre et une autre de string pour la xValues

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
26
27
28
29
30
31
 
 
Set Sh = Sheets("Feuil4")
derLig2 = Sh.Cells(Rows.count, "ZB").End(xlUp).Row
derLig3 = Sh.Cells(Rows.count, "ZA").End(xlUp).Row
 
Set Grf = Sh.ChartObjects.Add(400, 600, 1000, 500)
With Grf.Chart
    .ChartType = xlLine
    .SeriesCollection.NewSeries
    With .SeriesCollection(1)
        .Name = "MonGraphique"
        .Values = Sh.Range("ZB" & derLig2 - 90 & ":ZB" & derLig2)
        .XValues = Sh.Range("ZA" & derLig3 - 90 & ":ZA" & derLig3)
        .Trendlines.Add Type:=xlLinear, Name:="Courbe de Tendance"
 
    End With
 
    '''''Affichage des Etiquettes
    nbpoints = .SeriesCollection(1).Points.count
        For Counter = 1 To nbpoints
            .SeriesCollection(1).Points(Counter).HasDataLabel = _
                True
        Next Counter
 
        ''''' tentative de troncage de valeur (mais je ne sais pas du tout comment m'y prendre )
        For Counter = 1 To nbpoints
            .XValues(Counter) = Mid(.SeriesCollection(1).XValues(Counter), 32)
        Next Counter
 
End With
Le problème est que je veux tronquer .XValues qui est beaucoup trop long ( + de 60 caractères) qui rend la lecture du graphique illisible. J'aimerai savoir comment procéder pour commencer chaque Xvalues au 32ieme caractere.
Je sais comment tronquer un String avec Mid mais une Range entière qui n'est pas appelé comme un tableau je ne sais pas du tout

Si quelqu'un peut m'expliquer comment procéder ca serait super !