Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Retourner le numéro de trimestre d'une date

Toug

XLDnaute Junior
Bonsoir,
J'essaie de coder une sous fonction qui retourne le numéro du trimestre de la date qui lui est passée en paramètre. Cela ne fonctionne pas mais je ne comprend pas pourquoi. J'ai une erreur qui dit que un tableau est attendu lors de l'appel de la fonction

Voici mon code:
Code:
Function trimestre(dates)

mois = CInt(Format(dates, "mm"))

If mois = 1 Or mois = 2 Or mois = 3 Then trimestre = 1
If mois = 4 Or mois = 5 Or mois = 6 Then trimestre = 2
If mois = 7 Or mois = 8 Or mois = 9 Then trimestre = 3
If mois = 10 Or mois = 11 Or mois = 12 Then trimestre = 4

End Function

Sub test()
Dim debut As Date
Dim trimestre As Integer

debut = InputBox("Date?")
trimestre = trimestre(debut)
MsgBox trimestre
End Sub
 

Pièces jointes

  • Classeur1.xlsm
    13.4 KB · Affichages: 83
  • Classeur1.xlsm
    13.4 KB · Affichages: 87
  • Classeur1.xlsm
    13.4 KB · Affichages: 90

Tibo

XLDnaute Barbatruc
Re : Retourner le numéro de trimestre d'une date

Bonjour,

Pour le fun, le trimestre peut se calculer ainsi :

Code:
=ENT((MOIS(date)-1)/3)+1

Formule que je te laisse adapter en VBA

@+
 

Discussions similaires

Réponses
5
Affichages
271
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…