Discussion :

[DonKnacki]

comment expliquer ?

sur la ligne 2, j'ai le nom de plusieurs opérations;
De la case 2 à 17 mes opérations prennent 2 cases (fusionnées) et le nom est présent uniquement sur la case pair (sur la case impair il n'y a rien)
en dessous (sur ligne 3) ces opérations ont besoins de deux nombres correspondants au traités et aux recus

puis à partir de la case 18 les opération ne sont plus que sur une case


je vais tenté d'être plus clair grace à cette image
http://img73.imageshack.us/my.php?im...ebitmap3ue.jpg


De plus j'ai fais quelque rectification notament pour le probleme de la case 17, ligne 2 et aussi pour avoir ma derniere opération qui sur la case 22, ligne 2


ca donne ca

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
32
33
Sub Macro3()
    'recupération de la valeur de NbColonne
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
    NbColonne = Range("A1").Value
    Sheets("Feuil2").Visible = False
    Sheets("Feuil1").Select
    MsgBox (NbColonne)
    'Ajout du Graphique
    Charts.Add
    ActiveChart.ChartType = xlLineStacked
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy:=xlColumn
 
    'Nom des différentes courbes du graphique
    For i = 1 To NbColonne
        If i <= NbColonne - 6 Then
            If i Mod 2 = 0 Then
                With ActiveChart.SeriesCollection(i)
                  .Name = Worksheets(1).Cells(2, i).Value & "(Traité)"
                End With
            ElseIf i Mod 2 <> 0 Then
                With ActiveChart.SeriesCollection(i)
                    .Name = Worksheets(1).Cells(2, i + 1).Value & "(Reçu)"
                End With
            End If
        ElseIf i >= NbColonne - 5 Then
            MsgBox (i)
                With ActiveChart.SeriesCollection(i)
                  .Name = Worksheets(1).Cells(2, i + 1).Value
                End With
        End If
    Next i
End Sub

toujours pareil ca me fais bien ce que je veux mais avec des Series non nommé en plus

[DonKnacki]

un coup de main?