Autres automatiser un fichier

[un internaute]

Bonjour le forum
Dans le fichier joint je voudrais si c'est possible "tenter" d'alléger les modifs manuelles
Mais je crois que ça va râler dur....
Pour faire des modifs par exemple....
1 - Aller dans module Posologie mettre 180 = 6 mois
Dans tous les cas il faut modifier le Nb de jour dans la feuille par remplacer 367 par 182
2 - Dans la cellule D3 mettre 182 à la place de 367 et faire glisser pour MAJ
3 - Peut-être faire masquer lignes à partir de 183
4 - Mais ensuite il faut les ré-ouvrir pour le prochain fichier s'il est plus important ou mois important
Pour résumer pourrait-on l'alléger un peu par des macros en tenant compte par exemple de la posologie
Sinon on laisse comme ça car c'est déjà l'usine à gaz

 

[Bernard_XLD]

et pour ceux qui voudraient modifier la liste des jours fériés, voici une liste non exhaustive :

fêriés fixes

Abolition de l'esclavage :
Guadeloupe & Saint-Martin : 2705
Guyane : 1006
La Réunion : 2012
Martinique : 2205
Mayotte : 2704
Saint-Barthélemy : 910

Nouvelle-Calédonie, Fête de la citoyenneté : 2409
Polynésie française, Arrivée de l'Évangile : 503
Polynésie française, Fête de l’autonomie : 2906
Wallis et Futuna, Saint Pierre Chanel : 2804
Wallis et Futuna, Fête du territoire : 2907

Epiphanie : 601
Saint_Joseph : 1903
Immaculee_Conception : 812
Saint_Etienne : 2612

spécifique Belgique selon les communautés
Communauté Flamande : 1107
Fête nationale : 2107
Communauté Française : 2709
Saint Éloi, sidérurgie : 112 (remplace le 11 novembre)

spécifique Suisse selon les cantons
Saint Berchtold : 201
Instauration de la République : 103
Saint_Joseph : 1903
Commémoration du plébiscite : 2306
Saint-Pierre et Paul : 2906
Fête nationale : 108
Fête de Saint-Nicolas-de-Flüe : 2509
Restauration de la République : 3112

spécifique Luxembourg
Journée de l'Europe : 905
Anniversaire du Grand Duc : 2306

Spécifique Monaco
Sainte Dévote : 2701
Fête du Prince Monégasque : 1911

fêriés mobiles

Dim Mar_Gras%, Jeu_Saint%, Fete_Dieu%, Fahrtsfest%, Jeune_Genevois%, Lundi_du_Jeune_Federal%
Dim Date_Ref As Date, Num_Cible As Byte, Jour_Sem As Byte, Decal_Jour%, Mois_Ref As Byte  'valeurs

Mar_Gras = CInt(Format(Date_Dim_Paques - 47, "ddmm")) 'Calcul Mardi Gras, 47 jours avant le Dimanche de Pâques, début de la semaine grasse avant les 40 jours du Carème
Jeu_Saint = CInt(Format(Date_Dim_Paques - 3, "ddmm")) 'Calcul Jeudi Saint, jeudi précédant le Dimanche de Pâques
Fete_Dieu = CInt(Format(Date_Dim_Paques + 60, "ddmm")) 'Calcul Fête Dieu, 60 jours après le Dimanche de Pâques
'Calcul Fahrtsfest, Premier jeudi d'avril
Jour_Sem = 4: Mois_Ref = 4: Num_Cible = 1 'premier jeudi d'avril
Date_Ref = DateSerial(Year:=Annee, Month:=Mois_Ref, Day:=1)
Decal_Jour = Jour_Sem - Weekday(Date_Ref, 2): If Decal_Jour >= 0 Then Decal_Jour = Decal_Jour - 7
Fahrtsfest = CInt(Format(Date_Ref + Decal_Jour + (Num_Cible * 7), "ddmm")) 'Calcul Fahrtsfest, Premier jeudi d'avril
'Calcul Jeûne genevois, jeudi suivant le 1er dimanche de septembre
Jour_Sem = 7: Mois_Ref = 9: Num_Cible = 1 'premier dimanche de septembre
Date_Ref = DateSerial(Year:=Annee, Month:=Mois_Ref, Day:=1)
Decal_Jour = Jour_Sem - Weekday(Date_Ref, 2): If Decal_Jour >= 0 Then Decal_Jour = Decal_Jour - 7
Jeune_Genevois = CInt(Format(Date_Ref + Decal_Jour + (Num_Cible * 7) + 4, "ddmm")) 'Calcul Jeûne genevois, premier dimanche de septembre + 4 jours pour le jeudi
'Calcul Lundi du Jeûne fédéral, lundi suivant le 3e dimanche de septembre
Jour_Sem = 7: Mois_Ref = 9: Num_Cible = 3 'troisième dimanche de septembre
Date_Ref = DateSerial(Year:=Annee, Month:=Mois_Ref, Day:=1)
Decal_Jour = Jour_Sem - Weekday(Date_Ref, 2): If Decal_Jour >= 0 Then Decal_Jour = Decal_Jour - 7
Lundi_du_Jeune_Federal = CInt(Format(Date_Ref + Decal_Jour + (Num_Cible * 7) + 1, "ddmm")) 'Calcul Lundi du Jeûne fédéral, troisième dimanche de septembre + 1 jour pour le lundi