Modif code générer cal 1904...

  • Initiateur de la discussion Initiateur de la discussion Christian
  • 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 !

C

Christian

Guest
Bonjour à tout le forum,

J'ai trouvé sur un site ce code qui permet de générer un calendrier de date à date. J'ai coché l'option (1904) afin de calculer plus facilement des hrs négat par ailleurs sur un plannning. Quelle commande faut-il rajouter à ce code pour que le calendrier ainsi générer (exlp 2004) n'affiche pas 2008...
(code ci-dessous)

Par avance merci
Bien Amicalement
Christian


Sub ConstruireUnCalendrier()
' construit un calendrier dans une colonne
' choix de la cellule de départ par l'utilisateur
' choix des dates de début et fin de calendrier
Dim deb#, fin#, NbJours&, i As Date
Dim Cell As Range, Li&, Col%

On Error Resume Next
deb = CDate(InputBox("Date début de période :"))
fin = CDate(InputBox("Date fin de période :"))

If Err <> 0 Then Exit Sub

Set Cell = Application.InputBox _
("Sélectionnez la cellule $B$4 en haut à gauche (sous la flèche) pour commencer le calendrier", Type:=8)

If Err <> 0 Then Exit Sub

Li = Cell.Row: Col = Cell.Column

For i = deb To fin
Cells(Li, Col).Value2 = i
' If Weekday(i, vbMonday) > 5 Then _
Cells(Li, Col).Interior.ColorIndex = 6
' pour surligner les samedis, dimanches et fériés
If TYPEJOUR(i) = 1 Or TYPEJOUR(i) = 2 Then _
Cells(Li, Col).Interior.ColorIndex = 4
Cells(Li, Col).NumberFormatLocal = "jj jjj aa"
Li = Li + 1
Next i
End Sub
 
- 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éponses
3
Affichages
672
Réponses
35
Affichages
2 K
Réponses
2
Affichages
520
Retour