Discussion :

[fclus]

Bonjour à tous
Sur un graphe, j'affiche le CA et les bénéfices sur une période donnée
Je voudrais pouvoir permettre à l'utilisateur de modifier l'axe des abscisses (Par jour, Par semaine, Par mois) via 3 cases à cocher
Est-ce que je peux modifier la valeur du contenu transformé (comme un me.recordset = "Select * ….") ?

Merci d'avance pour votre aide

[hyperion13]

Salut
Pas certain d'avoir compris ce que tu cherches à réaliser
Une façon de faire avec ce code

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
Private Sub btnValid_Click()
Dim strSql As String
Select Case Me.grpOptions
    Case 1
        strSql = "SELECT dateCmde, Sum(totCmde) AS totHT " & _
                "FROM tblCmde " & _
                "GROUP BY dateCmde"
    Case 2
        strSql = "SELECT DatePart('ww',[dateCmde],2,2) AS laSem, Sum(totCmde) AS totHT " & _
                "FROM tblCmde " & _
                "GROUP BY DatePart('ww',[dateCmde],2,2) " & _
                "ORDER BY DatePart('ww',[dateCmde],2,2)"
    Case 3
        strSql = "SELECT Format([dateCmde],'mmm') AS leMois, Sum(totCmde) AS totHT " & _
                "FROM tblCmde " & _
                "GROUP BY Format([dateCmde],'mmm'), Month([dateCmde]) " & _
                "ORDER BY Month([dateCmde])"
    Case Else
        MsgBox "Sélectionnez une option", vbInformation
        Exit Sub
End Select
    Me.MonGraph.RowSourceType = "Table/Query"
    Me.MonGraph.RowSource = strSql
    MonGraph.Requery
End Sub