Mfc

[francis15]

Bonjour le forum
Grâce a vous j'ai pu me faire un planning annuel,
Merci
Mais je n'arrive pas a mettre les samedis et dimanche en gris, malgrès vos fichiers mis en exemples ici même
Et le nec serait de pouvoir mettre les joures feriés en couleur,
Je n'arrive pas a mettre mon fichier ici et donc il est à: Cijoint.fr - Service gratuit de dépôt de fichiers
je suis sous exel 2007.
Merci
bonne soirée
francis

 

[mromain]

Re : Mfc

bonjour tout le monde,

une autre méthode pour le calcul de jour férié avec une formule VBA (c'est sur, c'est une macro, mais ça évite de rentrer manuellement les jours fériés dans une autre feuille).

ci-joint, le fichier.


A+

 

[JCGL]

Re : Mfc

Bonjour à tous,

Un peu plus court et valable de 1900 à 9999 (XLD et mDFXLPages jouent sur la pérennité...)

De notre ami mDF 🙂 :

Private Sub ComboBox1_Change()
  a = ComboBox1.Value 'calcul du lundi de paques
  If Len(a) < 4 Then Exit Sub
  t = (((255 - 11 * (a Mod 19)) - 21) Mod 30) + 21
  lp = DateSerial(a, 3, 2) + t + (t > 48) _
+ 6 - ((a + a \ 4 + t + (t > 48) + 1) Mod 7)
Range("B4").Value = lp
End Sub

Private Sub Worksheet_Activate()
  mavar = Year(Now())
  For d = 1900 To 9999
  ComboBox1.AddItem d
  Next
  ComboBox1.Value = mavar
End Sub

L'initialisation de la Combo est sur l'activation de la feuille 'Ferié'
A+