XL 2016 1er Mardi de chaque mois

pierrejean

XLDnaute Barbatruc

• 18 Novembre 2017

• #16

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

 

Pièces jointes

• mardi.xlsm

  16.6 KB · Affichages: 40

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 18 Novembre 2017

• #17

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

 

Pièces jointes

• mardi.xlsm

  16.2 KB · Affichages: 50

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 18 Novembre 2017

• #18

pierrejean à dit:

Bonjour à tous
Pour le fun
une fonction personnalisée

Cliquez pour agrandir...

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

++

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Novembre 2017

• #19

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

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 18 Novembre 2017

• #20

Staple1600 à dit:

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

Cliquez pour agrandir...

@Staple1600, alors là chapeau bas.

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 18 Novembre 2017

• #21

@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

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 18 Novembre 2017

• #22

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Novembre 2017

• #23

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+

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 18 Novembre 2017

• #24

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

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

 

Pièces jointes

• Sans titre.png

  34.2 KB · Affichages: 40

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Novembre 2017

• #25

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Novembre 2017

• #26

Re JM,

Staple1600 à dit:

Et la mienne de formule, combien d'octets ?

Cliquez pour agrandir...

Ta formule du post #10 :

Code:

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

 

Vote positif 0 Vote négatif

brunosc

XLDnaute Occasionnel

• 18 Novembre 2017

• #27

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

 

Pièces jointes

• mardi du mois.xlsx

  11.4 KB · Affichages: 40

Dernière édition: 18 Novembre 2017

Vote positif 0 Vote négatif