Discussion :

[frisou65]

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 :

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
    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.

[Godzestla]

Salut,

je pense que ton problème est ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    nom2 = Len(graph_abscence) - Len(nom)   
    graph_abscence2 = Right(graph_abscence, Len(nom2))

car tu utilises len(nom2) alors que nom2 est un résultat de soustraction de len.

ce ne serais pas plutot len(nom) à la place de len(nom2) ?

[frisou65]

Oui merci c'était ça mon problème.
Merci beaucoup.