Question sur les nombres - Integer négatifs

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

Bonjour,
Utilisez plutôt DateSerial pour ce type de calcul, l'incrémentation se fera toute seule.

Référence Microsoft : Fonction DateSerial (Visual Basic pour les applications) | Microsoft Learn

Salut,

Pourquoi réinventer la roue (en moins bien) ?
DateSerial, DateAdd, DateDiff, c'est fait pour ca.

Citation:

---

Envoyé par Valtrase

Bonjour,
Utilisez plutôt DateSerial pour ce type de calcul, l'incrémentation se fera toute seule.

Référence Microsoft : Fonction DateSerial (Visual Basic pour les applications) | Microsoft Learn

---

Merci beaucoup pour vos retours. Je vais regarder ça :-)
Très bonne fin de journée,
Hugues.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Aujourdhui as date,an As Integer,AnUn As Integer, AnDeux As Integer, AnTrois As Integer Aujourdhui = Date an = Year(Aujourdhui) AnUn = an + 1 AnDeux = AnUn + 1 AnTrois = AnDeux + 1   Dim Mois As Integer,MoisUn As Integer, MoisDeux As Integer, MoisTrois As Integer Mois = Month(Aujourdhui) MoisUn = Month(DateSerial(an, mois - 1, 1)) MoisDeux = Month(DateSerial(an, MoisUn - 1, 1)) MoisTrois = Month(DateSerial(an, MoisDeux - 1, 1))   MsgBox "MoisUn " & MoisUn & " - MoisDeux " & MoisDeux & " - MoisTrois " & MoisTrois

---

Code:

---

MoisUn = Month(DateSerial(an, mois - 1, 1))

---

Il y a peut être un peut plus lisible:

Code:

---

MoisUn = Month(DateAdd("m", -1, an))

---

Merci beaucoup :-)