problème de fonction right
Bonjour,
je dois réaliser plusieurs graph sur une même feuille par conséquent il faut que je trouve une manière générique d'obtenir le nom du graph. Pour ceci j'ai réalisé le programme suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Sheets("Récap_3ème tri_V_élo1").Activate
Range("F" & j + 17&).Select
Dim Graph As Chart
Set Graph = Charts.Add
With Graph
.ChartType = xlPie
.SetSourceData Source:=Sheets("Récap_3ème tri_V_élo1").Range( _
"F82:F83"), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:= _
"Récap_3ème tri_V_élo1"
End With
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Absence"
End With
ActiveChart.HasLegend = False
graph_abscence = ActiveChart.Name
nom = ActiveSheet.Name
nom2 = Len(graph_abscence) - Len(nom)
graph_abscence2 = Right(graph_abscence, Len(nom2)) |
Je ne comprends pas car le résultat de la ligne en vert est les 2 premiers caractères depuis la droite alors que normalement il doit m'en donner le nombre nom2.
Est ce que quelqu'un peut m'aider?
Merci d'avance.
