Récupération d'un total grâce à un requête SQL

**Eric_03** · 10/11/2019, 10h26

Bonjour,

Je souhaite récupérer le total d'un colonne (Ref) ayant pour valeur "60 REC" et "30 MEN" grâce à une requête sql. Celle cime permet d'enrichir un tableau de contrôle. Mais à je n'obtiens au final que le total pour une seule des valeurs. De plus cette requête ne fait pas la distinction sur le segment.

Pouvez vous SVP m'aiguiller sur la requête à concevoir?

Merci

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
Sub Cumul()
 
   Set Cnn = New ADODB.Connection
 
   Cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
      ThisWorkbook.Path & "\" & ThisWorkbook.Name
 
    For Each var_Partenaire In Range("TPARTENAIRE")
 
        For Each var_Op In Range("TOP")
 
            For Each var_Segment In Range("TSEGMENT")
 
                    Sql = "SELECT sum(Montant) as Mt,Partenaire, OP, Segment,Ref " & _
                        "From BD " & _
                            "WHERE Partenaire = '" _
                                    & var_Partenaire _
                                & "' AND Segment = '" _
                                    & var_Segment _
                                & "' AND OP = '" _
                                    & var_Op _
                                & "' AND Ref = '30 MEN' OR Ref = '60 REC'" _
                             & " GROUP BY Partenaire,OP,Segment,Ref"
 
                    Dim Rs As ADODB.Recordset
 
                    Set Rs = Cnn.Execute(Sql)
 
                    ligne = 2
 
                    Do While Not Rs.EOF
 
 
                    With Worksheets("Modele")
'******************************************************************************************************
'******************************************************************************************************
                        ' Créer des constantes
 
                        If var_Op = "41BC" And var_Segment = "2018" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 25
                            colonneC = "D"
                        End If
 
                        If var_Op = "41BC" And var_Segment = "2019" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 24
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41BG" And var_Segment = "2018" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 7
                            colonneC = "D"
                        End If
 
                        If var_Op = "41BG" And var_Segment = "2019" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 6
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41BH" And var_Segment = "2018" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 28
                            colonneC = "D"
                        End If
 
                        If var_Op = "41BH" And var_Segment = "2019" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 27
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41BS" And var_Segment = "2018" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 31
                            colonneC = "D"
                        End If
 
                        If var_Op = "41BS" And var_Segment = "2019" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 30
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41H1" And var_Segment = "2018" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 22
                            colonneC = "D"
                        End If
 
                        If var_Op = "41H1" And var_Segment = "2019" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 21
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41NS" And var_Segment = "2018" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 16
                            colonneC = "D"
                        End If
 
                        If var_Op = "41NS" And var_Segment = "2019" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 15
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41PE" And var_Segment = "2018" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 19
                            colonneC = "D"
                        End If
 
                        If var_Op = "41PE" And var_Segment = "2019" And Rs("Ref") = "30 MEN" Or Rs("Ref") = "60 REC" Then
                            ligneC = 18
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        'A revoir
 
                        On Error Resume Next
 
                        .Cells(ligneC, colonneC) = Rs("Mt")
 
                        Resume
 
                    End With
 
                        Rs.MoveNext
 
                    Loop
 
            Next var_Segment
 
        Next var_Op
 
    Next var_Partenaire
 
    Rs.Close
    Cnn.Close
 
    Set Rs = Nothing
    Set Cnn = Nothing
 
 
End Sub

**Eric_03** · 10/11/2019, 14h04

Voici la solution

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
 
Sub Cumul()
 
   Set Cnn = New ADODB.Connection
 
   Cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
      ThisWorkbook.Path & "\" & ThisWorkbook.Name
 
    For Each var_Partenaire In Range("TPARTENAIRE")
 
        For Each var_Op In Range("TOP")
 
            For Each var_Segment In Range("TSEGMENT")
 
                    Sql = "SELECT sum(Montant) as Mt " & _
                        "From BD " & _
                            "WHERE Partenaire = '" _
                                    & var_Partenaire _
                                & "' AND Segment = '" _
                                    & var_Segment _
                                & "' AND OP = '" _
                                    & var_Op _
                                & "' AND Ref IN ('30 MEN','60 REC')"
 
                    Dim Rs As ADODB.Recordset
 
                    Set Rs = Cnn.Execute(Sql)
 
                    ligne = 2
 
                    Do While Not Rs.EOF
 
 
                    With Worksheets("Modele")
'******************************************************************************************************
'******************************************************************************************************
                        ' Créer des constantes
 
                        If var_Op = "41BC" And var_Segment = "2018" Then
                            ligneC = 25
                            colonneC = "D"
                        End If
 
                        If var_Op = "41BC" And var_Segment = "2019" Then
                            ligneC = 24
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41BG" And var_Segment = "2018" Then
                            ligneC = 7
                            colonneC = "D"
                        End If
 
                        If var_Op = "41BG" And var_Segment = "2019" Then
                            ligneC = 6
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41BH" And var_Segment = "2018" Then
                            ligneC = 28
                            colonneC = "D"
                        End If
 
                        If var_Op = "41BH" And var_Segment = "2019" Then
                            ligneC = 27
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41BS" And var_Segment = "2018" Then
                            ligneC = 31
                            colonneC = "D"
                        End If
 
                        If var_Op = "41BS" And var_Segment = "2019" Then
                            ligneC = 30
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41H1" And var_Segment = "2018" Then
                            ligneC = 22
                            colonneC = "D"
                        End If
 
                        If var_Op = "41H1" And var_Segment = "2019" Then
                            ligneC = 21
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41NS" And var_Segment = "2018" Then
                            ligneC = 16
                            colonneC = "D"
                        End If
 
                        If var_Op = "41NS" And var_Segment = "2019" Then
                            ligneC = 15
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        If var_Op = "41PE" And var_Segment = "2018" Then
                            ligneC = 19
                            colonneC = "D"
                        End If
 
                        If var_Op = "41PE" And var_Segment = "2019" Then
                            ligneC = 18
                            colonneC = "D"
                        End If
 
'******************************************************************************************************
'******************************************************************************************************
 
                        'A revoir
 
                        On Error Resume Next
 
                        .Cells(ligneC, colonneC) = Rs("Mt")
 
                        Resume
 
                    End With
 
                        Rs.MoveNext
 
                    Loop
 
            Next var_Segment
 
        Next var_Op
 
    Next var_Partenaire
 
    Rs.Close
    Cnn.Close
 
    Set Rs = Nothing
    Set Cnn = Nothing
 
 
End Sub

Il y a d'autres erreurs mais je recherche avant

Cordialement
Eric

Récupération d'un total grâce à un requête SQL [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager