Bonjour,
Je cherche à mettre une condition pour des nombres entiers, pour faire en sorte de prendre en compte les mois précédents du mois en cours. Avec une petite spécificité évidemment : si le mois est inférieur à 1, il faut lui ajouter 12.
Donc si le mois en cours est 1 (Janvier), le mois précédent 0, auquel j'ajoute 12 (Décembre), le précédent à celui-ci -1, auquel j'ajoute 12 (Soit 11 > Novembre).
Avec ce code, la première partie fonctionne et me renvoie bien 1, 0 , -1, mais quand je fais la suite, les nombres inférieurs à 1 sont mis à zéro.
Voici le code que j'utilise.
Avez-vous une idée de ce qui pourrait bloquer ? Le forma Integer intègre bien les nombres négatifs, non ?
Merci d'avance pour vos lumières :-)
Aujourdhui = Date
Mois = Month(Aujourdhui)
An = Year(Aujourdhui)
AnUn = Year(Aujourdhui)
AnDeux = Year(Aujourdhui)
AnTrois = Year(Aujourdhui)
Dim MoisUn, MoisDeux, MoisTrois As Integer
Mois = Mois - 1
MoisUn = Mois - 1
MoisDeux = Mois - 2
MoisTrois = Mois - 3
MsgBox "MoisUn " & MoisUn & " - MoisDeux " & MoisDeux & " - MoisTrois " & MoisTrois
If MoisUn < 1 Then MoisUn = MoisUn + 12 And AnUn = An - 1
If MoisDeux < 1 Then MoisDeux = MoisDeux + 12 And AnDeux = An - 1
If MoisTrois < 1 Then MoisTrois = MoisTrois + 12 And AnTrois = An - 1
MsgBox "MoisUn " & MoisUn & " - MoisDeux " & MoisDeux & " - MoisTrois " & MoisTrois
Partager