Graphique tronquer xvalues

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:

---

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 !

Bonjour,
Avec :

Code:

---

1 2 3 4 5 6

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

---

Tu fais un peu comme quand tu créés un graphique "à la main" dans Excel. Quand tu fais un graphique "à la main" dans Excel, tu lui donnes une plage de cellules comme valeurs des axes des abcisses. Tu ne peux pas lui donner une partie des valeurs de la plage de cellules. Ici, ça me paraît bien compliquer de dire "je veux seulement un certain nombre de caractère des cellules de la plage". A mon avis, tu ferais mieux de passer par une plage de cellules intermediaire sur laquelle tu fais ton traitement pour avoir le bon nombre de caractères.
Tu créés une méthode avec laquelle tu créés une plage de cellules à partir de la plage de cellules intiale en ne gardant que les caractères voulus. Pour cela, il faudra faire une boucle sur les cellules de la plage et récupérer les caractères voulus comme tu sembles savoir le faire avec Mid. Et tu utilises cette plage de cellules intermediaire comme source pour ton axe des abcisses.
Est-ce que tu comprends?

Oki,
J'essaye ca tout de suite, merci encore une fois de ton intervention rapide :)

Traiter point par point la source

Code:

---

.XValues = Formater(Sh.Range("A2:A10"))

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Function Formater(ByVal Rng As Range) Dim i As Long Dim Tb   Tb = Rng.Value For i = 1 To UBound(Tb, 1) Tb(i, 1) = Mid(Tb(i, 1), 32) Next i Formater = Tb End Function

---

Edit: En retard

Je viens d'appliquer la méthode de riaolle, sans surprise ca marche.

Code:

---

1 2 3 4 5 6

tronq = derLig4 - 90 For Each cell In Range("ZA" & derLig4 - 90 & ":ZA" & derLig4) Sheets("Feuil4").Range("ZC" & tronq) = Mid(cell, 22, 10) tronq = tronq + 1 Next cell

---

Mais question otpimisation je me demande si la méthode de mercatog ne serait pas mieux ?

+ edit : Je ne comprends pas le : "Formater = Tb" : ca sertcomme valeur de retour de la fonction ? et aussi le "Tb = Rng.Value" on ne prends qu'une valeur la nn? donc en quoi UBound(Tb, 1) peut marcher ? ( désolé si je pose des questions un peu bête , je débute ^^)

Citation:

---

Je ne comprends pas le : "Formater = Tb" : ca sertcomme valeur de retour de la fonction ?

---

Oui, La fonction Formater est un tableau contenant les données tronquées

Travailler en boucle sur une variable tableau en mémoire est plus rapide que de boucler sur les cellules. Plus les données sont grands plus la différence est notoire

Oki, merci :) .
Juste dernier petit truc : "Tb = Rng.Value" je n'arrive pas a comprendre la valeur de Tb apres cette affectation : la valeur d'une cellule ? la derniere cellule ? un tableau de cellule ?

Toute la plage de cellules

Tu peux essayer comme ceci à la volée pour comprendre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

sub Test() dim i as long dim Tb     Tb=feuil1.range("A1:A100") msgbox ubound(tb,1)   for i=1 to ubound(tb,1) tb(i,1)="c"&i next i feuil1.range("A1:A100")=tb end sub

---

Okey, c'est plus clair maintenant !

Je passe la discussion à Résolu
Merci pour toutes les réponses :)

Attention quand même au code du graphique:

- Si tu as une seule donnée, la variable Tb ne sera pas un tableau mais la valeur de la seule cellule. Tb(i) et Ubound(Tb,1) ne seront pas définis.
- Par .XValues=Tb, on supprimer la liaison entre l'axe des abscisses du graphique et la plage de données correspondante. Une modification sur cette dernière ne mettra pas les libellés des abscisses à jour. (Comme si on écrit en dur ces valeurs)