Compteur Mois été ou hiver

[Erplast]

Bonjour à tous,

Je souhaite creer une feuille EXCEL me permettant de compter des mois d'hiver et des mois d'été.

Je souhaiterais qu'un utilisateur indique une date de départ (par exemple 01/06/12) puis une durée (par exemple 26 mois).
Dans une cellule je voudrais qu'EXCEL indique le nombre de mois d'hiver qui couvre la période et le nombre de mois d'été qui couvre la période.

Les mois d'hiver sont (de octobre inclus a mars inclus).

Par avance merci,

PS : en PJ mon fichier.

 

[JCGL]

Re : Compteur Mois été ou hiver

Bonjour à tous,

Un essai avec deux colonnes supplémentaires.

A + à tous

 

[david84]

Re : Compteur Mois été ou hiver

Bonjour, salut Jean-Claude,
Ci-joint 2 fonctions personnalisées bruts de décoffrage à tester et à peaufiner (testées vite fait) :

Function Mois_hiver(d As Date, n As Long)
Dim p As Byte, i As Long, Nb As Long, Mois, Saison
Mois = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
Saison = Array("", "hiver", "hiver", "hiver", "été", "été", "été", "été", "été", "été", "hiver", "hiver", "hiver")
p = Application.Match(Month(d), Mois, 0)
For i = 1 To n
    If Saison(p) = "hiver" Then Nb = Nb + 1
    p = p + 1
    If p = 13 Then p = 1
Next i
Mois_hiver = Nb
End Function

Function Mois_été(d As Date, n As Long)
Dim p As Byte, i As Long, Nb As Long, Mois, Saison
Mois = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
Saison = Array("", "hiver", "hiver", "hiver", "été", "été", "été", "été", "été", "été", "hiver", "hiver", "hiver")
p = Application.Match(Month(d), Mois, 0)
For i = 1 To n
    If Saison(p) = "été" Then Nb = Nb + 1
    p = p + 1
    If p = 13 Then p = 1
Next i
Mois_été = Nb
End Function

=Mois_hiver(C5;C6)

=Mois_été(C5;C6)

la date en C5 et la durée en C6.
A+
Edit : pas besoin du tableau de correspondance

 

[chris]

Re : Compteur Mois été ou hiver

Bonjour
Bise à JCGL

Un essai sans colonnes intermédiaires.

EDit : bonjour David84

Edit2: formules corrigées. Je n'avais pas bien vérifié.

 

[JCGL]

Re : Compteur Mois été ou hiver

Bonjour à tous,
Salut Chris,
Salut David,

J'ai omis de préciser que la table de correspondance pouvait être effacé dans mon essai.

Bises à Chris
A+++ David

A + à tous

 

[chris]

Re : Compteur Mois été ou hiver

Re

Fichier modifié sur mon post de 18h07. Celui-ci devrait être bon !

 

[Erplast]

Re : Compteur Mois été ou hiver

Merci à tous de votre aide !

A bientôt !