Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Agenda Perpetuel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pika83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pika83

XLDnaute Occasionnel
bonjour, j'essaye de faire un agenda perpétuel avec week-end et jours fériés.
j'ai essayé plusieurs solutions, mais je n'arrive pas a faire coïncider la date (01, 02, 03... avec le jour Lu, Ma, Me....).
Est ce que quelqu’un aurait une idée de manière a faire avancer celui ci.
D'avance merci.
 

Pièces jointes

Trier par date Trier par votes
OK n’étant pas un expert en tableur, je comprend pourquoi je ne trouvais pas.
Si vous avez une idée, avec VBA ça donnerait quoi ?

Merci pour ton essai D.D. mais en essayant sur des années différente (ex avec ta méthode, en 2022 le 1er janvier 2022 tomberait le mercredi, alors que c'est un samedi), et les jours colorés en bleu devraient correspondre au week-end, alors qu'en changeant les années ils se déplacent.
 
Vote positif 0 Vote négatif
Re,

Ma formule est bonne, juste que je l'avais placé dans un petit calendrier à coté à titre d'exemple.
Ci-inclus avec la formule dans ton calendrier.
PAr contre pourquoi mettre les WE en MFC ? Pas bien compris.
Et concernant les jours feriés, il faut refaire un peu la formule, mais je te laisse la main.

(Oh, et tant que j'y suis: Pourquoi tu enlèves les quadrillages en "peignant" le fond et pas "Affichage / Quadrillage" ?
 

Pièces jointes

Vote positif 0 Vote négatif
re
sinon en vba

VB: 
'la plage des 12 mois
'J6:P11,R6:X11,Z6:AF11,AH6:AN11,J15:P20,R15:X20,Z15:AF20,AH15:AN20,J24:P29,R24:X29,Z24:AF29,AH24:AN29
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Firstday&, p As Range, r As Range, I&, NbJour&, J&
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Set p = Range("j6,r6,z6,ah6,j15,r15,z15,ah15,j24,r24,z24,ah24")
    If Target.Address = "$J$2" Then
        For I = 1 To 12
            Set r = p.Areas(I).Resize(6, 7)    'determine la plage du mois(i)avec sa cells(1)
            r.Value = "": r.NumberFormat = "dd"
            Firstday = Weekday(DateSerial([j2], I, 1), vbUseSystemDayOfWeek) - 1    'le jour de la semaine du premier du mois
            NbJour = Day(DateSerial([j2], I + 1, 0))    'le nombre de jour dans le mois
            For J = 1 To NbJour
                r.Cells(Firstday + (J)) = DateSerial([j2], I, J)
            Next
        Next
    End If
    Application.EnableEvents = True
End Sub

j'avais virer tout les MFC qui me piquaient les yeux ,il faudra les remettre
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif

bonjou @D.D.

ton fichier donne pour 2019
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.
2 3 4
Réponses
53
Affichages
684
TooFatBoy
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
879
dysorthographie
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
785
Dégé59
D
C
  • Résolu(e)
XL 2019 Formule applicable sauf week-end et jours fériés
Réponses
3
Affichages
649
ced91300
C
B
  • Question Question
XL 2016 VBA : Macro me permettant d'ajouter une tache ou un rdv sur mon GOOGLE AGENDA.
Réponses
2
Affichages
1 K
Bylka
B
  • Question Question
XL 2021 Création calendrier ( Agenda ) en VBA
2
Réponses
15
Affichages
2 K
Nicolas JACQUIN
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
L
  • Résolu(e)
Microsoft 365 Moyenne de taux d'occupation
Réponses
6
Affichages
789
R@chid
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
O
  • Résolu(e)
XL 2019 Gestion de métrage restant sur une bobine
2 3
Réponses
35
Affichages
2 K
OlivierS
O
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
556
AtTheOne
F
  • Question Question
XL pour MAC Envoi de rappel automatique de rdv adressé au client à partir d'une feuille excel
Réponses
2
Affichages
805
fred936
F
T
  • Question Question
Microsoft 365 Reporter le contenu d'une liste dans un tableau
Réponses
5
Affichages
712
Tibolelavabo
T
Y
  • Question Question
Microsoft 365 Calcule d'une date après le 1er janvier avec prix associé
Réponses
4
Affichages
596
Yoyo60
Y
L
  • Question Question
XL 2019 Problème formule SOMMEPROD & INDEX
Réponses
6
Affichages
804
Laliepomm
L
D
  • Question Question
XL 2016 Extraire plusieurs valeurs avec formule
Réponses
1
Affichages
783
njhub
N
P
  • Question Question
Microsoft 365 gestion de stock avec plusieurs date de production sur même produit
Réponses
12
Affichages
2 K
pouetpouetlagalette
P
R
  • Question Question
Microsoft 365 Aide formule complexe
Réponses
3
Affichages
520
sylvanu
L
  • Résolu(e)
XL 2019 Nombre de jours ouvrés mensuels entre deux dates
Réponses
12
Affichages
2 K
Deadpool_CC
H
  • Question Question
Microsoft 365 Comment calculer une date final selon un calendrier.
Réponses
7
Affichages
821
HugoM
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…