Trouver la saison en VBA Résolu/Fermé

Question

Bonjour à toutes et à tous,

Je suis actuelement sur mon travail de fin de formation sur access mais voilà le problème moi et le VBA on est pas deux très bon amis.. 

Alors voilà mon problème en vba a partir d'une date je dois trouver la saison a la quelle elle correspond. 

Queulqu'un aurait il un debut de solution voir même la solution?

Merci d'avance.
 
--

castours · Answer

Faire une table sur 2 champs:  Champ date et un champ saison pour avoir une reference de recherche

g4br13l · Answer

Merci pour ta réponse mais jai trouver une solution plus au moin jardinage ahah mais qui fonctionne plus tot bien :D 
 
--

g4br13l · Answer

Comme dit plus haut c'est un peu bricolage mais je pense met quand même la réponse sachant que en connaissance de cause on ne la trouve pas facilement vu que j'ai du la créé. J'espère qu'elle pourra aider qqn :) 



    Dim Jour As String
    Dim Mois As String
    Dim dateP As Date
    dateP = 13.07.1994
    If dateP <> "" Then
        Jour = DatePart("d", dateP)
        Mois = DatePart("m", dateP)
        If Mois = 1 Or Mois = 2 Then
            Me.tbxSaison = "Hiver"
        ElseIf Mois = 3 Then
            If Jour < 21 Then
                Me.tbxSaison = "Hiver"
            Else
                Me.tbxSaison = "Printemps"
            End If
        ElseIf Mois = 4 Or Mois = 5 Then
            Me.tbxSaison = "Printemps"
        ElseIf Mois = 6 Then
            If Jour < 21 Then
                Me.tbxSaison = "Printemps"
            Else
                Me.tbxSaison = "Été"
            End If
        ElseIf Mois = 7 Or Mois = 8 Then
            Me.tbxSaison = "Été"
        ElseIf Mois = 9 Then
            If Jour < 21 Then
                Me.tbxSaison = "Été"
            Else
                Me.tbxSaison = "Automne"
            End If
        ElseIf Mois = 10 Or Mois = 11 Then
            Me.tbxSaison = "Automne"
        ElseIf Mois = 12 Then
            If Jour < 21 Then
                Me.tbxSaison = "Automne"
            Else
                Me.tbxSaison = "Hiver"
            End If
        End If
    Else
        Me.tbxSaison = "Entrer Date"
    End If 
 
--

Trouver la saison en VBA

3 réponses

Discussions similaires