Bonjour,

je vous explique mon problème.

Je souhaiterai afficher dans une listebox le contenu d'une base de donnée access temperature exprimé par jour de relever soit 365 jours
Néanmoins lorsque j'exécute mon select case pour faire une division par mois...

Ma listbox assigne les 365 valeurs alors que je souhaite afficher pour un mois considéré.


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
Private Sub Btn_Afficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAfficher.Click
        Dim ville As String
        Dim i As Integer
 
        ville = combobox_V.Text 'ville considéré
        mois = ComboBox_M.Text 'mois considéré
        n = temperature.Items.Count
 
        ReDim tabtemp(nbtemp)
 
        Call RecupererTemperaturesVille(ville, nbtemp, tabtemp) 'récupération de 365 temperature
        If nbtemp = -1 Then
            MsgBox("Problème de connexion à la base de données")
        Else
            temperature.Items.Clear()
 
            Select Case mois
                Case 1 To 31
                    mois = "Janvier"
                Case 32 To 60
                    mois = "Fevrier"
                Case 61 To 91
                    mois = "Mars"
                Case 92 To 121
                    mois = "Avril"
                Case 122 To 152
                    mois = "Mai"
                Case 153 To 182
                    mois = "juin"
                Case 183 To 213
                    mois = "juillet"
                Case 214 To 244
                    mois = "Août"
                Case 245 To 274
                    mois = "Septembre"
                Case 275 To 305
                    mois = "Octobre"
                Case 306 To 335
                    mois = "Novembre"
                Case 336 To 365
                    mois = "Decembre"
            End Select
            For i = 0 To nbtemp - 1
                temperature.Items.Add(tabtemp(i))
            Next i
        End If
    End Sub
Merci d'avance pour vos réponses