Bonjour,
dans mon prog j'utilise un graph,pour l'axe X je vais chercher dans ma base,mais est ce possible de les mettre manuellement c'est à dire
RowLabel = 3 ans ; 4 ans ; 5ans ;................. ; 16 ans

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
34
35
36
37
38
39
40
41
42
43
Private Sub Command1_Click() 'filles
On Error Resume Next
    Dim MaBD As String
 
    MaBD = App.Path & "\BD\centre_aéré.mdb"
    With Adodc2
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBD & ";Persist Security Info=False"
        .RecordSource = "SELECT * FROM present"
        End With
    Adodc2.Refresh
    Adodc2.Recordset.MoveFirst
    With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBD & ";Persist Security Info=False"
        .RecordSource = "SELECT * FROM centre_aéré"
        End With
    Adodc1.Refresh
    Adodc1.Recordset.MoveFirst
 
    MoveOk = False
    With MSChart1
        .ChartType = VtChChartType2dBar   ' type de graphe
        .ColumnCount = 1                   ' nombre de barre
        .RowCount = 14                     ' nombre de mois
 
 
        ' lecture du nom des mois
        For i = 1 To 14
            .Row = i
            .Column = 1
            .RowLabel = Adodc2.Recordset.Fields(0) & " ans"   ' l'age
 
           If IsNull(Adodc2.Recordset.Fields(2).Value) Then
            .Data = 0
            Else
            .Data = Adodc2.Recordset.Fields(2).Value
          End If
            Adodc2.Recordset.MoveNext    ' le mois suivant
 
        Next i
 
    End With
 
End Sub
merci
bonne journée