XL 2016 1er Mardi de chaque mois

[kingfadhel]

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))

 

[pierrejean]

Re
Oui il suffit en effet de modifier le 3
Toujours pour le fun

 

[kingfadhel]

Re,
@pierrejean, grace à votre fonction, voila pour tous les jours de la semaine.

 

[zebanx]

Bonjour à tous
Pour le fun
une fonction personnalisée

Bonjour Pierre-Jean, Staples1600, Kingfadhel, Victor 21 et le forum

Le "fun" fonctionne parfaitement pour cette UDF. Merci Pierre-Jean
Et si l'on préfère saisir une date en A1, pas besoin de modifier la formule
= first_mardi(MOIS(A1);ANNEE(A1))

++

 

[Staple1600]

Re, Bonjour pierrejean😉, zebanx😉

@kingfadhel
Pour répondre à la question du message #12

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]

Re, Bonjour pierrejean😉, zebanx😉

@kingfadhel
Pour répondre à la question du message #12

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]

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

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]

Re,
pma = premier mardi
pja = premier jour de l'année

Dataseries 2,3,1,14??????

 

[job75]

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 :

=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+

 

[kingfadhel]

@Staple1600,
L'enigme est-elle en relation avec ça???

Le 14 c'est (le saut), la différence en jour entre les mardis????

 

[Staple1600]

Bonjour job75

@job75
Et la mienne de formule, combien d'octets ? 😉

@kingfadhel
Tu m'as demandé de réduire alors j'ai réduis 😉
Ce n'est point une énigme, simplement une syntaxe simplifiée.
Utilises l'enregistreur de macro en utilisant la fonctionnalité Remplissage/Série
Et observes le code VBA obtenu

 

[job75]

Re JM,

Et la mienne de formule, combien d'octets ? 😉

Ta formule du post #10 :

=(A1-JOUR(A1)+1)+CHOISIR(JOURSEM(A1-JOUR(A1)+1);2;1;0;6;5;4;3)

"pèse" 115 octets, 114 en enlevant les 2 parenthèses inutiles.

A+

 

[brunosc]

Bonsoir, je me demandais si la fonction MOD pourrais faire l'affaire ?
@+
"=A2-MOD(A2-4;7)+7*1-1"