Calendrier avec excel

[@ntario]

Salut tout le monde
Donc en fait , je suis un novice sur excel , je voudrais savoir si c'est possible de faire un calendrier sur excel🙂 , et qu'il y'est une feuille pour chaque jour , donc par exemple lorsque on clique sur le 14/07/07 sur le calendrier , cela ouvre une nouvelle feuille enregistré pour ce jour , et je voudrais que chaque feuille et un présentation commune donc la meme sur toutes les feuilles.
Donc voila j'espere avoir été assez clair.
Merci d'avance pour toutes les personnes qui essayeront de m'aider.
A+

 

[Staple1600]

Re : Calendrier avec excel

Bonjour

edit: j'avais oublié (encore)
https://www.excel-downloads.com/resources/calendriersetplannings2005.796/
(source: WIKI MichelXLD)

Des calendriers à la pelle
Ce site n'existe plus


Cette petite macro crée un onglet par jour de l'année en cours.
(ne doit pas fonctionner quand les années sont bissextiles)

Sub calendrier()
For i = 0 To 364
Application.ScreenUpdating = False
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(Year(Date), 1, i + 1), "ddd dd mmmm")
Next
End Sub

C'est bien ce qu'il me semblait

La macro ci-dessous elle permet de choisir l'année
(il ne manque plus qu'une fonction qui teste si l'année est bissextile)

Sub calendrier2()
'ne prend toujours pas en compte les années bissextiles
Dim an As String
an = InputBox("choix de l'année")
For i = 0 To 364
Application.ScreenUpdating = False
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(an, 1, i + 1), "ddd dd mmmm")
Next
End Sub

 

[Temjeh]

Re : Calendrier avec excel

Bonjour

Voici un départ:

Copy la feuille Model 365 fois


Sub Calendjourfeuille()

Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))

If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
Y = DateValue("31 décembre " & année)

For I = 0 To Y - x

Sheets("Model").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(x + I, "dd-mmm-yyyy")
Next

End Sub

A+

Temjeh

 

[Staple1600]

Re : Calendrier avec excel

Re

Voila théoriquement c'est bon

Merci à sovo pour la fonction Bissec

Sub calendrier3()
Dim Annee As Integer
Annee = InputBox("choix de l'année")
If Not Bissec(An) Then
For i = 0 To 364
Application.ScreenUpdating = False
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(Annee, 1, i + 1), "ddd dd mmmm")
Next
Else
For i = 0 To 365
Application.ScreenUpdating = False
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(Annee, 1, i + 1), "ddd dd mmmm")
Next
End If
End Sub
Function Bissec(ByVal An As Integer) As Boolean
'auteur: sovo
'source:http://www.developpez.net/forums/showthread.php?t=128121
     Bissec = Not CBool(InStr(Str(An / 4), "."))
End Function

edit: la solution de Temjeh correspond plus à ton souhait (copie de feuille)
et est plus jolie (enfin moi je trouve) que celle que je viens de saisir.

 

[@ntario]

Re : Calendrier avec excel

Ree
Merci à tous pour ces réponses , tres explicites pour des connaiseurs mais tres implicites pour moi malheuresement.
Donc es ce que peux m'expliquer svp ce que je dois faire avec ces c65odes , je dois les coller dans visual basic editor ? et comment copier les feuilles 365 fois ???
J'attend votre réponse et encore merci à ceux qui m'ont répondu.
A+

 

[Staple1600]

Re : Calendrier avec excel

Re


Ok je vais joindre un classeur exemple

J'ai mis les deux macros celle de Temjeh et la mienne.

Quand le classeur est ouvert

Tu fais Outils/Macros et tu choisis la macro à exécuter.

Celle de Temjeh copiera la feuille Modele

la mienne créera des feuilles journalières


Dis nous si cela a fonctionner chez toi.

 

[@ntario]

Re : Calendrier avec excel

Re Staple1600
Donc voila la premiere macro a bien marché , mais je n'ai pas compri la deuxieme macro , lorque que je l'execute , rien de nouveau n'apparait ?! 😕
Que devrait il se passait ? qu'apelle tu la feuille journalière ?
Merci

 

[Staple1600]

Re : Calendrier avec excel

Re


La macro nommée calendrier3

crée une feuille par jour (feuille journalière)

Mais avant de lancer cette macro , supprime les feuilles
crées par la macro de Temjeh

(autement tu vas te retrouver avec un classeur comportant 2*365 feuilles!)

 

[kiki29]

Re : Calendrier avec excel

Un détail dans la réponse Staple1600 pour le calcul éventuel des années bissextiles

Function Bissec(ByVal An As Integer) As Boolean
'auteur: sovo
'source:http://www.developpez.net/forums/showthread.php?t=128121
     Bissec = Not CBool(InStr(Str(An / 4), "."))
End Function

voir la suite de [VB6]Le 29 du mois 2 - Forum des développeurs
car la réponse de Sovo pour son calcul est fausse.

 

[@ntario]

Re : Calendrier avec excel

Daccord Staple1600
Tout a marché impec , mais maintenant il me faudrait le calendrier comme ca lorsque je clique sur le jour dans le calendrier , ca m'affiche la feuille qui correspond à ce jour ...
Es ce que c'est possible ?
Merci encore Staple1600
A+

 

[Staple1600]

Re : Calendrier avec excel

Re


Merci Kiki29

J'avais pas lu tout le post.
mea culpa

Il doit y avoir d'autres fonctions qui fonctionnent correctement.

Merci monsieur G..gle

 Function bissextile(annee As Integer) As Boolean
'source:http://users.skynet.be/micdub/vba4.htm#bissextile
Dim div4 As Boolean, div100 As Boolean, div400 As Boolean
        
' Vérifier la divisibilité
div4 = annee Mod 4 = 0
div100 = annee Mod 100 = 0
div400 = annee Mod 400 = 0
        
' Fixer la valeur de retour
If div4 And Not div100 Then ' 1er cas
           bissextile = True
Else
If div400 Then  ' 2ème cas
bissextile = True
Else
bissextile = False
End If
End If
End Function

 

[@ntario]

Re : Calendrier avec excel

Oki alors une idée pour le calendrier ?? ( dont je parlais dans mon dernier post ) ?

 

[Staple1600]

Re : Calendrier avec excel

Re



Oui c'est possible

donc tu veux

une feuille calendrier annuel
(ou l'on clique sur un jour)

et 365 ou 366 feuilles journalières

soit 367 feuilles!


Ton classeur risque d'etre volumineux

edit: patience...

 

[@ntario]

Re : Calendrier avec excel

Arg , oui c'est ce que je viens de constater , c'est trop volumineux car je viens d'essayer de sauvegarder et ca prends vraiment beaucoup de temps ...
En fait je vais vous expliquer ce que je veux faire , c'est un travail pour un médecin et sa secrétaire , donc je voudrais faire un fichier excel ou la secrétaire pourra prendre les rendez vous et comme c'est en réseau avec le médecin , il faudrait des sauvegardes rapides aprés chaque rendez vous prit...
Mais apparement la , ca prends un certain temps pour chaque rendez vous :-S
En tout cas Staple1600 je te remercie beaucoup ainsi que tous les autres qui ont essayé de m'aider
A+
Si quelqu'un aurait une petite idée pour mon projet , dites le moi 🙂

 

[kiki29]

Re : Calendrier avec excel

peut être qu'une recherche de Planning sur https://www.excel-downloads.com/index.php?option=com_remository&Itemid=49&func=search