Microsoft 365 Formule année bissextile

Marvin57 · 29 Décembre 2023

Bonjour à tout le monde,

je suis à la recherche d'une formule pour mon planning.

Explications;

dans mon fichier réel je peux placer des jours de travail à des salariés avec mon planning. Jusqu'ici tout va bien.

Or, si je veux par exemple entrer que le salarié travaille le 28 Févier et le 01 Mars ( de cette année, même si ces dates sont passées) il me place le 28 et le 29 Février au lieu du 28 Février et le 01 Mars.
J'ai essayer en enlevant la formule qui se trouve dans la cellule du 29 Février et à ce moment il me marque bien le 28 Février et le 01 Mars.

Quelle formule pourrait on placer en cellule du 29 Février pour que cela fonctionne bien lors du changement d'année S'il vous plaît.

J'espère que j'ai bien expliqué mon problème, sinon je reste en ligne pour tout autres renseignements.

Je vous remercie d'avance.
Marvin57

danielco · 29 Décembre 2023

Regarde. Tu n'avais pas effacé la plage D5:AE5.

Phil69970 · 29 Décembre 2023

@Marvin57

Tu te trompes de cible car mauvaise analyse de ton besoin , c'est ce code qui ne va pas c'est pas ta formule !!!
Dans ton code il faut faire un test si 29 février ou pas et en fonction du résultat tu places tes CA .....
Et comme tu es sur un formulaire tu peux faire le test au chargement du formulaire si année bissextile ou pas alors un label ou autre (même masqué) = année bissextile ou pas année non bissextile par exemple.

danielco · 29 Décembre 2023

Bonjour,
En C5 (effacer la ligne 5) :

VB:

=MAKEARRAY(1;SI(MOD(B1;4)=0;29;28);LAMBDA(r;c;DATE(B1;2;c)))

Daniel

Marvin57 · 29 Décembre 2023

Phil69970 à dit:
@Marvin57

Tu te trompes de cible car mauvaise analyse de ton besoin , c'est ce code qui ne va pas c'est pas ta formule !!!
Dans ton code il faut faire un test si 29 février ou pas et en fonction du résultat tu places tes CA .....
Et comme tu es sur un formulaire tu peux faire le test au chargement du formulaire si année bissextile ou pas alors un label ou autre (même masqué) = année bissextile ou pas année non bissextile par exemple.

OK, pouvez vous m'indiquer ou cela cloche ?

sylvanu · 29 Décembre 2023

Re,
Je ne comprends pas. Avec la formule du post #4, cela semble respecter votre demande :

Marvin57 · 29 Décembre 2023

sylvanu à dit:
Re,
Je ne comprends pas. Avec la formule du post #4, cela semble respecter votre demande :
Regarde la pièce jointe 1187333

Re sylvanu,

oui oui, ne vous inquitez pas , cela fonctionne très bien. L'erreur doit venir de mon code VBA, donc j'attends un retour si possible.

A+

Marvin57 · 29 Décembre 2023

Re,

quelqu'un aurait une idée pour changer mon code afin que cela fonctionne SVP ?

Merci à vous

danielco · 29 Décembre 2023

Est-ce que tu as essayé ma formule (post #17) ? Il n'y a pas besoin de code. La cellule AE5 ne contient une formule que s'il y a 29 jours.

Daniel

Marvin57 · 29 Décembre 2023

danielco à dit:
Est-ce que tu as essayé ma formule (post #17) ? Il n'y a pas besoin de code. La cellule AE5 ne contient une formule que s'il y a 29 jours.

Daniel

Re,

oui mais cela ne fonctionne pas !

voici le fichier avec votre formule en C5. Ou alors j'ai fais une erreur quelque part !

danielco · 29 Décembre 2023

Regarde. Tu n'avais pas effacé la plage D5:AE5.

Efgé · 29 Décembre 2023

Bonjour
Sur la proposition de danielco qui utilise la propagation et avec de vrais mois (février et pas FEVRIER, mars et pas MARS)
Une proposition qui fonctionne quelque soit le mois et l'année:

VB:

=LET(
MonAn;$B$1;
LeMois;MOIS(DATEVAL("1/"&B4));
TRANSPOSE(LIGNE(INDIRECT(DATE(MonAn;LeMois;1)&":"&DATE(MonAn;LeMois+1;0))))
)

Cordialement

EDIT : La formule s'arrête au 31 octobre 4770, le nombre de lignes d'une feuille est atteint....

Marvin57 · 29 Décembre 2023

danielco à dit:
Regarde. Tu n'avais pas effacé la plage D5:AE5.

Re,
Oh la la ! on voit que c'est la fin de la semaine et de l'année ! on est fatigué!

Merci beaucoup à toi pour ton aide. J'ai placé la formule dans le fichier réel et après plusieurs tests, tout semble fonctionner. ENFIN !

Je et souhaite de bonnes fêtes de fin d'année et peut-être à une prochaine fois.

Marvin57

Marvin57 · 29 Décembre 2023

Efgé à dit:
Bonjour
Sur la proposition de danielco qui utilise la propagation et avec de vrais mois (février et pas FEVRIER, mars et pas MARS)
Une proposition qui fonctionne quelque soit le mois et l'année:

VB:

=LET( LeMois;MOIS(DATEVAL("1/"&B4&"/"&$B$1)); TRANSPOSE(LIGNE(INDIRECT(DATE($B$1;LeMois;1)&":"&DATE($B$1;LeMois+1;0)))) )

Cordialement

Bonjour

Merci à vous aussi pour la participation à mon problème.

Je vais tester cela.

Marvin57

Marvin57 · 29 Décembre 2023

Re au forum,

Merci à tous ceux qui ont participé à ma demande, certes, un peu mal expliquée, mais bon il y a eu une bonne solution . La prochaine fois je ferai un peu plus attention.

Bonnes fêtes de fin d'année à toutes et à tous et à une prochaine.

Cordialement Marvin57

Marvin57 · 29 Décembre 2023

Re à tout le monde,

est-ce juste mon impression ou les textes des messages changent après avoir fermé une discussion ?

J'ai l'impression que tout est mélangé !! Pourtant je carbure qu'a l'eau !!

Merci pour vos retours

Efgé · 29 Décembre 2023

Re
Le message d'ouverture de la discution apparait en tête de chaque page.
La solution apparait sous le message d'ouverture de la première page et tous les messages sont numérotés dans l'ordre.
Pas de problème chez moi.
Cordialement

Microsoft 365 Formule année bissextile

Marvin57

XLDnaute Occasionnel

Pièces jointes

danielco

Phil69970

XLDnaute Barbatruc

danielco

XLDnaute Accro

Marvin57

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Marvin57

XLDnaute Occasionnel

danielco

XLDnaute Accro

Marvin57

XLDnaute Occasionnel

Pièces jointes

danielco

XLDnaute Accro

Pièces jointes

Efgé

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Marvin57

XLDnaute Occasionnel

Marvin57

XLDnaute Occasionnel

Marvin57

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Discussions similaires