Discussion :

[Virgile59]

Bonjour, voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim PERIODE01 As String
Dim PERIODE02 As String
PERIODE01 = "& ANNEE &" & "0" & "& TRIMESTRE &"
PERIODE02 = IIf("& TRIMESTRE &" = 1, "& ANNEE &" & "0" & "& TRIMESTRE &" + 1, 0)

Il me dit erreur sur la ligne PERIODE02 ?? Pourquoi ?

[Virgile59]

L'erreur est la suivante :

Incompabilité de type erreur n°13

Pour quoi donc cette erreur?? Merci d'avance

[Virgile59]

Mes variables sont déclarées comme cela si ça peut vous aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim PERIODE01 As String
Dim PERIODE02 As String
Dim TRIMESTRE As String
Dim ANNEE As String
ANNEE = Year(Date)
TRIMESTRE = IIf(Month(Date) <= 3, 1, IIf(Month(Date) <= 6, 2, IIf(Month(Date) <= 9, 3, IIf(Month(Date) <= 12, 4,0))))
PERIODE01 = "& ANNEE &" & "0" & "& TRIMESTRE &"
PERIODE02 = IIf("& TRIMESTRE &" = 1, "& ANNEE &" & "0" & "& TRIMESTRE &" + 1, IIf("& TRIMESTRE &" = 2, "& ANNEE &" & "0" & "& TRIMESTRE &" + 1, IIf("& TRIMESTRE &" = 3, "& ANNEE &" & "0" & "& TRIMESTRE &" + 1, IIf("& TRIMESTRE &" = 4, "& ANNEE &" + 1 & "0" & "& TRIMESTRE &" - 3))))

[Tofalu]

PERIODE02 = IIf("& TRIMESTRE &" = 1, "& ANNEE &" & "0" & "& TRIMESTRE &" + 1, 0)

Que viennent faire tous ces " " ?

[Dolphy35]

Salut,

Je verais plus un truc comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
PERIODE01 = ANNEE & "0" & TRIMESTRE
PERIODE02 = IIf(TRIMESTRE = 1, annee & "0" & TRIMESTRE + 1, _
IIf(TRIMESTRE = 2, annee & "0" & TRIMESTRE + 1, _
IIf(TRIMESTRE = 3, annee & "0" & TRIMESTRE + 1, _
IIf(TRIMESTRE = 4, annee + 1 & "0" & TRIMESTRE - 3, 0))))

Et dans ton imbrication de IIf il te manque la clause si pas égale.

[pgz]

Bonjour,

A 4 IIf imbriqués, on peut préférer la fonction SWITCH.

Bon courage,

pgz

[Papy Turbo]

Dolphy35, bonjour,

Du coup, on pourrait pas simplifier ça avec un Choose ?
Genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
PERIODE01 = ANNEE & "0" & TRIMESTRE
PERIODE02 = Choose(TRIMESTRE, annee & "0" & TRIMESTRE + 1, _
                              annee & "0" & TRIMESTRE + 1, _
                              annee & "0" & TRIMESTRE + 1, _
                              annee + 1 & "0" & TRIMESTRE - 3, _
                              0)

[Dolphy35]

Dolphy35, bonjour,

Du coup, on pourrait pas simplifier ça avec un Choose ?
Genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
PERIODE01 = ANNEE & "0" & TRIMESTRE
PERIODE02 = Choose(TRIMESTRE, annee & "0" & TRIMESTRE + 1, _
                              annee & "0" & TRIMESTRE + 1, _
                              annee & "0" & TRIMESTRE + 1, _
                              annee + 1 & "0" & TRIMESTRE - 3, _
                              0)

Merci Papy Turbo je ne connaissait pas Choose.

[Tofalu]

Encore plus simple puisque apparement seul le trimestre 4 pose problème

IIf(TRIMESTRE = 4, annee + 1 & "0" & TRIMESTRE - 3, annee & "0" & TRIMESTRE + 1)

[random]

pas certain d'avoir compris

mais year(année)-base où base est la premiere année me donne année

et mod(month(date),3)+ 1 me donne le trimestre

[Virgile59]

Merci à tous pour vos réponse et l'utilisation du choose et devenu normale pour moi grâce à vous merci encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim TRIMESTRE As String
Dim ANNEE As String
Dim PERIODE01 As String
Dim PERIODE02 As String
ANNEE = Year(Date)
TRIMESTRE = IIf(Month(Date) <= 3, 1, IIf(Month(Date) <= 6, 2, IIf(Month(Date) <= 9, 3, IIf(Month(Date) <= 12, 4, 0))))
PERIODE01 = ANNEE & "0" & TRIMESTRE
PERIODE02 = Choose(TRIMESTRE, ANNEE & "0" & TRIMESTRE + 1, ANNEE & "0" & TRIMESTRE + 1, ANNEE & "0" & TRIMESTRE + 1, ANNEE + 1 & "0" & TRIMESTRE - 3)

en fait ce code me renvois pour PERIODE01 200602 car aujourd'hui nous somme l'an 2006 et 2nd trimestre
la PERIODE02 me renvois 200603 car c'est le trimestre suivant et ainsi de suite pour avoir les 4 prochains trimestres.

Voilà salut à tous le monde des developpeurs !!!

[Papy Turbo]

Tu crois pas t'en sortir comme ça, quand même ?

Tofalu a fait remarquer + haut qu'il n'y avait que le 4ème trimestre qui diffère des autres.

Quant au calcul du trimestre, tu peux peut être essayer ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim TRIMESTRE As String
Dim ANNEE As String
Dim PERIODE01 As String
Dim PERIODE02 As String
ANNEE = Year(Date)
   'division entière "\" pour renvoyer un entier de 1 à 4
   TRIMESTRE = ((Month(Date)-1)\3)+1
   PERIODE01 = ANNEE & "0" & TRIMESTRE
   If TRIMESTRE < 4 Then
       PERIODE02 = ANNEE & "0" & (TRIMESTRE + 1)
   Else
       PERIODE02 = (ANNEE - 1) & "01"
   End If

Ca devrait être plus lisible pour toi, quand tu reliras ton code dans 6 mois, non ?

[Tofalu]

Pour le calcul du trimestre il y a aussi la fonction DatePart, avec interval = "q"