Sélection année jours fériés selon liste

Bonjour a tous

Actuellement dans ma feuille "Mai" les jours fériés se placent automatiquement quelque soit le

mois choisi en A1 si l'année est 2013.

Les jf de l'année 2013 sont dans un nom qui provient de la feuille données.

Les jf sont crées jusque 2025

j'ai bien pensé a créer autant de noms que d'années, mais je ne sais comment

faire pour sélectionner ce nom en fonction de l'année qui est en B1 sur ma feuille "Mai".

D'avance merci

Bonjour

Pas besoin de faire un tableau jusqu'en 2025.

Sur le tableau, puisque tu choisis l'année en B1 de Mai, j'ai nommé cette cellule An et les formules de la feuille donnée font le reste.

Cordialement

Bonsoir

Pour la zone nomée "JF"

remplace la formule de cette zone par :

=DECALER(Données!$N$2:$N$11;;EQUIV(Mai!$B$1;Données!$O$1:$AA$1;0))

ça devrais te permùettre de pouvoir changer l'année sans soucis

Merci a vous deux

Je teste les 2 solutions et je vous donne réponse (peut-être pas ce soir).

Bonjour

Les solutions fonctionnent toute les deux.

L'avantage de celle d'Amadeus est de ne pas créer autant de listes que d'années, mais je n'arrive

pas a retirer les dates qui ne m'interressent pas sans créer de problèmes dans les autres dates.

Sans vouloir abuser, serait-il possible de modifier la macro (située dans données) de création des

autres mois pour que les feuilles "récapitulatif,données,info" se retrouvent a la fin, mais ne perdez

pas trop de temps la-dessus, ce n'est pas primordial.

D'avance merci et bon Dimanche a tous

Bonjour

mais je n'arrive pas a retirer les dates qui ne m'interressent pas sans créer de problèmes dans les autres dates.

C'est fait sur ce fichier

Pour ce qui est de conserver les onglets Données et autres à la fin, ajout à ton code d'un tri de feueilles en alpha.

Dans le tri, pour mettre les feuilles à la fin, il faut insérer un caractère 160 avant le nom (Touche Alt+0160 avec le pavé numérique)

Exemple sur le fichier joint.

Cordialement

Bonjour

Dans la feuille "données" et le calcul des JF je ne veux pas de:

Dimanche de paques

Lundi de paques

Ascension

Dimanche de pentecote

Cordialemen

Bonjour

Nous nous sommes croisés.

J'avais vu ta remarque et j'ai modifié le fichier de mon dernier message.

Cordialement

Exact, j'ais vu

je test la macro modifiée.

Bonjour,

Ci-joint fichier avec :

La modification du champ nommé JF

L'ajout de quelques feuilles "mois"

Le calcul de la feuille "récapitulatif" avec la fonction Indirect() et la fonction ESTREF()

Cdlt.

Bonjour Jean-Eric

merci de ton aide

Euh! je ne vois pas ton fichier

Oups

Etait > à 300ko

Cdlt

Jean-Eric

encore merci pour la formule pour le remplissage de la feuille récapitulatif, en fait c'était l'objet d'une prochaine question.

Ce qui est bien c'est que même si les mois ne sont pas encore créés pas de valeur défaut.

Amadéus

pour les JF c'est Ok.

la macro fait le tri, seulement cela met le "bazar" dans l'ordre des mois, mais bon il faut pas se focaliser la-dessus (je peux faire glisser les 3 feuilles a la main, 1 fois par an ca va).

Encore merci a tous deux.

Désolé Jean-Eric mais ca ne va pas.

En effet quand par exemple j'entre des horaires dans un mois ca ne se reporte pas sur la feuille récapitulatif.

Ou alors je rate quelque chose.

a te relire

Re,

En B3 de la feuille "Récapitulatif". A adapter car tu as des colonnes avec "v" dans tes feuilles mensuelles

INDIRECT($A3&"!"&ADRESSE(LIGNES(1:35);COLONNE()+4))

Toutes le feuilles "mois" doivent exister sous peine de résultat #REF!

Cdlt.

Bonjour

la macro fait le tri, seulement cela met le "bazar" dans l'ordre des mois, mais bon il faut pas se focaliser la-dessus (je peux faire glisser les 3 feuilles a la main, 1 fois par an ca va

Il suffit de déplacer les 3 feuilles en fin de macro.

Option Explicit

Sub AjouteFeuilles()
Dim J As Long
Dim Ws As Worksheet

  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 20 To Ws.Range("H" & Rows.Count).End(xlUp).Row
    If Not FeuilleExiste(Ws.Range("H" & J).Value) Then
      Sheets("Mai").Copy After:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("H" & J)
    End If
  Next J
  Ws.Select
  Call Déplace
End Sub

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function
Sub Déplace()
  Sheets("Récapitulatif").Move After:=Worksheets(Sheets.Count)
  Sheets("Infos").Move After:=Worksheets(Sheets.Count)
  Sheets("Données").Move After:=Worksheets(Sheets.Count)
ActiveSheet.Select
End Sub

Fichier Test joint

Cordialement

Ok

peux-tu m'expliquer ta formule pour que je l'adapte

a partir de ADRESSE(LIGNES(1:35);COLONNE()+4))

cdlt

Amadéus

C'est OK

Merci beaucoup

Bon dimanche

Bonjour

Pour la formule de Jean-Eric, je pense que la formule de départ est

=INDIRECT($A3&"!"&ADRESSE(LIGNES(1:35);COLONNE()+5))

Cordialement

Si je comprend bien pour remplir toute ma feuille "recapitulatif"

je dois juste changer le"COLONNE()+5" pour changer de colonne.

Merci de me confirmer

cdlt

Re,

Oui, en fonction des colonnes "v" de tes feuilles "mois" qui ne se trouvent pas dans la feuille "Récapitulatif".

Cdlt.