Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
x

or

Comment créer un calendrier dans Excel?

Le calendrier dans Excel est un objet utile. Avec un calendrier dans Excel, vous pouvez enregistrer de nombreux messages dans le calendrier. Tels que: la date à laquelle un nouvel employé a rejoint l'entreprise, la date à laquelle les marchandises ont été livrées, etc. Avec le calendrier, ces messages seront visuels et simples. Comment créer un calendrier mensuel ou un calendrier annuel dans Excel?

Créez un calendrier annuel en téléchargeant des modèles de calendrier Excel

Créer un calendrier mensuel avec le code VBA

Créez rapidement un calendrier mensuel ou annuel avec Kutools for Excel

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Trier par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

flèche bleue bulle droiteCréez un calendrier annuel en téléchargeant des modèles de calendrier Excel


Avec cette méthode, vous devez vous assurer que votre ordinateur se connecte au réseau afin de pouvoir télécharger le Modèles de calendrier.

Cliquez sur Déposez lecliquez Nouveau dans le volet gauche, puis cliquez sur Calendrier à partir de Modèles Office.com. Voir la capture d'écran:

doc-créer-calendrier1

Ensuite, vous pouvez choisir un dossier de calendrier, et cliquez dessus, il y aura plusieurs styles de calendrier, sélectionnez celui que vous aimez, et cliquez sur Télécharger bouton dans le volet droit.

Après avoir téléchargé le modèle de calendrier, vous obtiendrez le calendrier dans un nouveau classeur.


flèche bleue bulle droite Créer un calendrier mensuel avec le code VBA

Avec le code VBA suivant, vous pouvez créer rapidement un calendrier mensuel. Veuillez procéder comme suit:

Cliquez Développeur > Visual Basic, Un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer > Moduleet saisissez le code suivant dans le Module:

VBA: créer un calendrier mensuel dans Excel

Sous CalendarMaker ()
ActiveSheet.Protect DrawingObjects: = False, Contenu: = False, _
Scénarios: = Faux
Application.ScreenUpdating = Faux
En cas d'erreur GoTo MyErrorTrap
Plage ("a1: g14"). Effacer
MyInput = InputBox ("Tapez le mois et l'année pour le calendrier")
Si MyInput = "" Alors quittez Sub
StartDay = DateValue (MyInput)
Si Jour (StartDay) <> 1 Alors
StartDay = DateValue (mois (StartDay) & "/ 1 /" & _
Année (StartDay))
Si fin
Plage ("a1"). NumberFormat = "mmmm aaaa"
Avec plage ("a1: g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCentre
.Taille.Font = 18
.Font.Bold = Vrai
.LigneHeight = 35
Terminer par
Avec plage ("a2: g2")
.ColumnWidth = 11
.VerticalAlignment = xlCentre
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCentre
.Orientation = xlHorizontale
.Taille.Font = 12
.Font.Bold = Vrai
.LigneHeight = 20
Terminer par
Range ("a2") = "dimanche"
Range ("b2") = "Lundi"
Range ("c2") = "Tuesday"
Range ("d2") = "Mercredi"
Range ("e2") = "jeudi"
Range ("f2") = "Vendredi"
Range ("g2") = "samedi"
Avec plage ("a3: g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlHaut
.Taille.Font = 18
.Font.Bold = Vrai
.LigneHeight = 21
Terminer par
Plage ("a1"). Valeur = Application.Text (MyInput, "mmmm yyyy")
DayofWeek = Jour de la semaine (StartDay)
CurYear = Année (StartDay)
CurMonth = Mois (StartDay)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
Sélectionnez le cas DayofWeek
Cas 1
Plage ("a3"). Valeur = 1
Cas 2
Plage ("b3"). Valeur = 1
Cas 3
Plage ("c3"). Valeur = 1
Cas 4
Plage ("d3"). Valeur = 1
Cas 5
Plage ("e3"). Valeur = 1
Cas 6
Plage ("f3"). Valeur = 1
Cas 7
Plage ("g3"). Valeur = 1
End Select
Pour chaque cellule de la plage ("a3: g8")
RowCell = cellule.Row
ColCell = cellule.Colonne
Si cell.Column = 1 Et cell.Row = 3 Alors
ElseIf cell.Column <> 1 Then
Si cell.Offset (0, -1) .Value> = 1 Alors
cell.Value = cell.Offset (0, -1) .Valeur + 1
Si cell.Value> (FinalDay - StartDay) Alors
cell.Value = ""
Sortie pour
Si fin
Si fin
ElseIf cell.Row> 3 Et cell.Column = 1 Puis
cell.Value = cell.Offset (-1, 6) .Value + 1
Si cell.Value> (FinalDay - StartDay) Alors
cell.Value = ""
Sortie pour
Si fin
Si fin
Suivant
Pour x = 0 à 5
Plage ("A4"). Décalage (x * 2, 0) .EntireRow.Insert
Avec plage ("A4: G4"). Décalage (x * 2, 0)
.LigneHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlHaut
.WrapText = Vrai
.Taille.Font = 10
.Font.Bold = Faux
.Locked = Faux
Terminer par
Avec plage ("A3"). Décalage (x * 2, 0). Redimensionner (2, _
7) .Borders (xlLeft)
.Poids = xlÉpais
.ColorIndex = xlAutomatic
Terminer par
Avec plage ("A3"). Décalage (x * 2, 0). Redimensionner (2, _
7) .Borders (xlRight)
.Poids = xlÉpais
.ColorIndex = xlAutomatic
Terminer par
Plage ("A3"). Décalage (x * 2, 0) .Resize (2, 7) .BorderAround _
Poids: = xlThick, ColorIndex: = xlAutomatic
Suivant
If Range ("A13"). Value = "" Then Range ("A13"). Offset (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = Faux
ActiveSheet.Protect DrawingObjects: = True, Contenu: = True, _
Scénarios: = Vrai
ActiveWindow.WindowState = xlMaximisé
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
MyErrorTrap :
MsgBox "Vous n'avez peut-être pas entré correctement votre mois et votre année." _
& Chr (13) & "Épelez le mois correctement" _
& "(ou utilisez une abréviation à 3 lettres)" _
& Chr (13) & "et 4 chiffres pour l'année"
MyInput = InputBox ("Tapez le mois et l'année pour le calendrier")
Si MyInput = "" Alors quittez Sub
Curriculum Vitae
End Sub

Puis clique doc-calendar-2pour exécuter le code, et une boîte de dialogue apparaîtra, vous pouvez saisir le mois et l'année dans la zone vide. Voir la capture d'écran:

doc-créer-calendrier2

Et puis cliquez OK. Et un nouveau calendrier mensuel a été créé dans la feuille de calcul actuelle. Voir la capture d'écran:

doc-créer-calendrier3

Le code VBA est difficile pour la plupart d'entre nous, et avec ce code VBA, vous ne pouvez créer qu'un calendrier mensuel, si vous souhaitez créer un calendrier annuel rapidement et facilement, existe-t-il une autre méthode simple pour le faire?


flèche bleue bulle droite Créez rapidement un calendrier mensuel ou annuel avec Kutools for Excel

Calendrier perpétuel outil de kutools pour Excel peut créer rapidement un calendrier mensuel personnalisé ou un calendrier annuel dans un nouveau classeur, et chaque calendrier mensuel sera contenu dans une nouvelle feuille de calcul.

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Obtenez-le maintenant

Si vous avez installé Kutools pour Excel, veuillez cliquer sur Entreprise > Outils de feuille de travail > Calendrier perpétuelEt un Calendrier perpétuel la boîte de dialogue s'affiche. Si vous souhaitez créer un calendrier mensuel actuel, entrez simplement 1 dans le champ Nombre de mois boîte et cliquez Créer bouton. Voir la capture d'écran:

doc-créer-calendrier4

Et puis un calendrier mensuel actuel a été généré dans un nouveau classeur.

doc-créer-calendrier5

Et si vous souhaitez créer un calendrier annuel de 2012, veuillez saisir le numéro 12 dans le champ Nombre de mois boîte, et spécifié le premier mois à Janvier, 2012 dans le volet gauche. Voir la capture d'écran:

doc-créer-calendrier6

Puis clique Créer bouton, il créera le calendrier de l'année 2012 dans un nouveau classeur.

doc-créer-calendrier7


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MrsKaur · 7 years ago
    Thanks guys for helping.

    Would like to be able to have a yearly Calendar in which I can enter items. If you can help that would be great.
  • To post as a guest, your comment is unpublished.
    Maria · 7 years ago
    Hi,

    How can I make it start on Monday instead?
    Thanks in advance
  • To post as a guest, your comment is unpublished.
    Annie Wong · 7 years ago
    Excellent job. Billions thanks for your great design of the Excel calendar template. :lol: