Valeur entre deux date, sans l'année

Bonjour,

Je vise à mettre une valeur particulière dans une cellule sélectionnée au curseur.

ActiveCell.Value = ("016922NM- & Variable &) <-- Cette syntaxe échoue

Si la date contenue dans B8 est entre le 15 Décembre et le 15 Avril la variable sera = H

si non la variable sera = E (pour Été, Hivers)

Pour cela je dois définir si la date dans B8 est dans la période été ou hivers.

Mon problème c'est que toute les solution de comparaison que j'ai trouvé inclue l'année.

Hors, cela doit fonctionner indépendamment de l'année.

Bonjour stillalive,

Peux-tu joindre un bout de fichier pour y voir plus clair ?

Edit : sinon, avec ce que j'ai compris :

Dim Variable As String
Variable = IIf(Day([b8]) <= 15 And Month([b8]) <= 4 Or Day([b8]) >= 15 And Month([b8]) = 12, "H", "E")
ActiveCell.Value = "016922NM-" & Variable

Parfait c'est exactement ce qu'il faut.

Merci

Rechercher des sujets similaires à "valeur entre deux date annee"