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

 

[sylvanu]

J'espère qu'il n'y a pas d'autres pièges du genre.
En Pj j'ai fait :

En G3 :  =A3
En G4 :  =INDEX(A3:A400;NB.SI(B3:B400;1))

Il suffit de compter les 1 dans la colonne B pour avoir la date de fin en colonne A.

 

[sylvanu]

Re,
Sans réponse, je suppose que çà marche.
Dans le cas contraire, persévérons, on trouvera bien une solution.

 

[un internaute]

Re,
Sans réponse, je suppose que çà marche.
Dans le cas contraire, persévérons, on trouvera bien une solution.

Bonjour sylvanu
Je n'osais tout simplement pas t’embêter avec ça
Plus compliqué que ça
Quand je double click sur cellule A3 et que je clique sur durée du traitement exemple 6 mois ça affiche bien 179 cellule D3 MAIS Ça MET toujours durée du traitement 1an
Avant de faire le double click sur cellule A3 il faut aller dans module Posologie et mettre le NB de jours
Après on peut faire ce que tu as fait pour masquer les lignes
Très très compliqué
Merci pour ton implication

 

[sylvanu]

Re,
Vraiment désolé.
C'est vrai que c'est devenu vraiment complexe. D'autant que je n'avais pas vu la partie droite du tableau ( colonnes I:M)

Très très compliqué

Oui j'ai bien peur qu'il n'y ait pas de solution, sauf à out reprendre pour avoir un ensemble homogène, ce qui n'est guère raisonnable.
Sorry.

 

[un internaute]

Bonjour à tous
Dans la PJ je voudrais remplacer 2 par 3 dans toutes les formules pour ajouter une ou plusieurs années de jours fériés
FMerci pour vos éventuels retoursaire un double click pour afficher les jours féries sur cellule A2
Pour l'instant 2026 est fait.
Je recopie à partir de janvier jusqu'à décembre et met à jour toutes les formules une par une
En occurrence je remplace

=DATE(An+1;1;1)

par

=DATE(An+2;1;1)

An+1 par An+2
C'est fastidieux lorsqu'on à 72 fichiers
On ne peut pas le faire avec Edition Remplacer?
Merci pour vos éventuels retours

 

[sylvanu]

Bonjour,
Au vu du fichier, il suffit de remplacer K1 de 2025 avec 2026, les formules sont toutes à jour automatiquement puisqu'elles partent sur 2026 dans les formules. ( appelé An )

 

[un internaute]

Nous sommes bien d'accord mais moi je veux garder mon 2025 jusqu'à 2030 par exemple
Changer la date en K je connais mais je n'aurais plus 2025 2026 2027 2028 2029 2030 en mémoire
J'ai des traitements de 3 ans voire plus ça peut comme tu dis mais moi j'oublie de modifier alors
Donc je suis obligé de changer les formules une par une ou remplacer => options
Mais je ne sais pas aller plus loin

 

[un internaute]

Fait jusqu'à 2028. C'est pas insurmontable mais chiant

 

[un internaute]

Paques3 est mieux placé!!!

 

[un internaute]

Paques3 mal placé et certains pas mis à jour
Quand je dis que c'est fastidieux

 

[sylvanu]

Re,
Vous ne pouvez par faire Remplacer 1 par 2, car il remplace tout. Il ne remplace pas qu'un seul.
Par ex pour le 11 novembre :

=DATE(An+1;11;11)
devient
=DATE(An+2;22;22)

Vous pourriez utiliser un calendrier sur 5 ans comme en PJ.

 

[Bernard_XLD]

Bonjour Un internaute, sylvanu, le forum

@un internaute , vous utilisez des xls et votre profil indique Excel 2003, c'est bien le cas ?
Une solution serait d'adopter ma fonction jours fériés automatiques mais je ne pense pas qu'elle fonctionnera directement sous Excel 2003 et je n'ai plus cette version pour la tester.

Cordialement,
Bernard_XLD

 

[Bernard_XLD]

Re,

J'ai fait une version light, uniquement France métropolitaine et sans paramètres optionnels, qui devrait passer sans problème sur 2003, mais pas testé sur 2003.
Elle renvoie true si le jour passé en paramètre est férié, quelle que soit l'année
Exemple en fichier joint

Cordialement,
Bernard_XLD

Function TJFL(ByVal DateX) As Boolean
'********************************************************************************************************************
'                                    Fonction TJFLight pour Excel 2003, jours fériés automatiques
'                                    Auteur: Bernard_XLD sur Exceldownloads
'                                    détermine si une date donnée est fériée et renvoie un boolean.
'********************************************************************************************************************
On Error Resume Next
DateX = CDate(DateX)
On Error GoTo 0
If Not IsDate(DateX) Then Exit Function

Dim Annee%, Cale_Paques&, Date_Dim_Paques As Date
Dim Lun_Paques%, Ascension%, Pentecote%   'fêtes mobiles

Annee = Year(DateX)
Cale_Paques = (((255 - 11 * (Annee Mod 19)) - 21) Mod 30) + 21
Date_Dim_Paques = DateSerial(Annee, 3, 1) + Cale_Paques + (Cale_Paques > 48) + 6 - ((Annee + (Annee \ 4) + Cale_Paques + (Cale_Paques > 48) + 1) Mod 7)
Lun_Paques = CInt(Format(Date_Dim_Paques + 1, "ddmm")) 'Calcul Lundi de Pâques, lundi suivant le Dimanche de Pâques
Ascension = CInt(Format(Date_Dim_Paques + 39, "ddmm")) 'Calcul Ascension, 39 jours après le Dimanche de Pâques
Pentecote = CInt(Format(Date_Dim_Paques + 50, "ddmm")) 'Calcul Pentecôte, 50 jours après le Dimanche de Pâques

Select Case CInt(Format(DateX, "ddmm"))
    Case 101, Lun_Paques, 105, 805, Ascension, Pentecote, 1407, 1508, 111, 1111, 2512
        TJFL = True
End Select
End Function

 

[Bernard_XLD]

Superbe fonction avec un petit bémol pour Noël

🤣 🤣 🤣 🤣
je corrige !

 

[Bernard_XLD]

Voila ! c'est corrigé dans le post et dans le fichier !