XL 2016 1er Mardi de chaque mois

kingfadhel

XLDnaute Impliqué
Bonjour,
Pour les pros qui programme à l'avance leurs rendez-vous.
une formule qui permet d'avoir le 1er mardi de chaque mois

=DATE(ANNEE(A1);MOIS(A1);CHOISIR(JOURSEM(A1;2);2;1;7;6;5;4;3))

1er mardi de chaque mois.PNG
 

Staple1600

XLDnaute Barbatruc
Re, Bonjour pierrejean;), zebanx;)

@kingfadhel
Pour répondre à la question du message #12
VB:
Sub FaireReduireAFeuDoux()
Dim an, pja As Date, pma As Date
an = InputBox("Saisir l'année,svp", "Choix de l'année", Year(Date))
pja = DateSerial(an, 1, 1): pma = (pja - Day(pja) + 1) + Choose(Weekday(pja), 2, 1, 0, 6, 5, 4, 3)
[A1] = pma + 7: [A1:A26].DataSeries 2, 3, 1, 14
End Sub
 

kingfadhel

XLDnaute Impliqué
Re, Bonjour pierrejean;), zebanx;)

@kingfadhel
Pour répondre à la question du message #12
VB:
Sub FaireReduireAFeuDoux()
Dim an, pja As Date, pma As Date
an = InputBox("Saisir l'année,svp", "Choix de l'année", Year(Date))
pja = DateSerial(an, 1, 1): pma = (pja - Day(pja) + 1) + Choose(Weekday(pja), 2, 1, 0, 6, 5, 4, 3)
[A1] = pma + 7: [A1:A26].DataSeries 2, 3, 1, 14
End Sub

@Staple1600, alors là chapeau bas.
 

kingfadhel

XLDnaute Impliqué
@Staple1600,
SVP, une explication de la #19: est-ce une énigme???

Code:
Sub FaireReduireAFeuDoux()
Dim an, pja As Date, pma As Date
an = InputBox("Saisir l'année,svp", "Choix de l'année", Year(Date))
pja = DateSerial(an, 1, 1): pma = (pja - Day(pja) + 1) + Choose(Weekday(pja), 2, 1, 0, 6, 5, 4, 3)
[A1] = pma + 7: [A1:A26].DataSeries 2, 3, 1, 14
End Sub
 

job75

XLDnaute Barbatruc
Bonjour les amis,

Juste pour faire remarquer que la formule de kingfadhel (post #1) prend 104 octets en mémoire.

Celle-ci trouvée sur le web n'en prend que 40 :
Code:
=A1-JOUR(A1)+8-JOURSEM(A1-JOUR(A1)-2)
Le 2 pour le 1er mardi, à remplacer par 1 pour le 1er lundi, par 3 pour le 1er mercredi...

A+
 

Discussions similaires

Réponses
14
Affichages
639

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou