Besoin d'aide sur un calendrier avec un récapitulatif

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

K

kikoue

Guest
Bonjour , j'ai creer un fichier sur excel c 'est un calendrier annuel autaumatique avec un récapitulatif , sur le calendrier j'ai mit par mois deux colonnes jour et nuit , la c'est bon sa marche , mais je voudrais que sur le récapitulatif , cela me met les heures ou jour ou nuit et que si on change l'année cela reste noter quand memes , le calendrier est actuellement sur année 2011 , donc je cherche la formule simple sur excel , merci
 

Pièces jointes

Re : Besoin d'aide sur un calendrier avec un récapitulatif

Bonjour à tous,

Excel 2003 affiche, à l'ouverture, que ton fichier est corrompu...
Pas de problème sous Excel 2010 pour l'ouvrir.

Tu ne pourras pas avoir la sauvegarde de tes données par formules, il faut du code.
Sur ta feuille "Récapitulatif", il manque des colonnes pour la récap mensuelle.

A + à tous
 
Dernière édition:
Re : Besoin d'aide sur un calendrier avec un récapitulatif

le voici modifier mais juste colonne annuel , pour mensuel j'ai peur qui soit trop lourd
 

Pièces jointes

Re : Besoin d'aide sur un calendrier avec un récapitulatif

Bonjour à tous,

Un essai en pièce jointe

  • Simplification des formules
  • Choix de l'année, pour la feuille "Calendrier", par liste de validation
  • Ajout de deux codes pour l'effacement des données du calendrier et l'archivage des données
  • Corrections des fautes d'orthographe
Testé sous XL 2003 et XL 2010

A + à tous
 

Pièces jointes

Re : Besoin d'aide sur un calendrier avec un récapitulatif

bonjour trés tot merci ,j'ai modifier les codes , mais ce que je veut c'est que cela se note sur le récapitulatif et que sa reste memes quand on change d'année
 
Dernière modification par un modérateur:
Re : Besoin d'aide sur un calendrier avec un récapitulatif

Bonjour à tous,

Modifie la Sub Archivage comme ceci :

VB:
Sub Archivage()
Dim DerL_Heures As Byte
Dim DerL_Jours As Byte
Dim Question As String
DerL_Heures = Sheets("Récapitulatif").Range("C14").End(xlUp).Row + 1
DerL_Jours = Sheets("Récapitulatif").Range("C27").End(xlUp).Row + 1
 
Question = MsgBox("Vous allez archiver les données de l'année " & Range("An") & ". Voulez-vous continuer ?", vbYesNo, "Effacement des données")
If Question = vbNo Then Exit Sub
With Sheets("Récapitulatif")
Range("C" & DerL_Heures).Formula = "=Calendrier!R84C1"
Range("K" & DerL_Heures).Formula = "=Calendrier!R86C1"
Range("C" & DerL_Jours).Formula = "=Calendrier!R98C1"
Range("K" & DerL_Jours).Formula = "=Calendrier!R100C1"
Range("C2:R27").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1:R1").Select
End With
End Sub

A+ à tous
 
Re : Besoin d'aide sur un calendrier avec un récapitulatif

bon je suis nul et j'y arrive pas , sa me met erreur au niveau de la phrase :Question = MsgBox("Vous allez archiver les données de l'année " & Range("An") & ". Voulez-vous continuer ?", vbYesNo, "Effacement des données") elle se colore en jaune
 
Re : Besoin d'aide sur un calendrier avec un récapitulatif

Bonjour à tous,

As-tu testé mon fichier ?
Fonctionne t'il ?
As-tu nommé la cellule G4 "An" dans le Gestionnaire de Noms ?

Merci de commencer tes messages par un "Bonjour" comme le veut l'usage et la Charte d'XLD.

a+ à tous
 
Re : Besoin d'aide sur un calendrier avec un récapitulatif

bonjour , pardon , mais je n'y arrive pas , la de se coté c'est pas génial e , ton fichier je les essayer , mais sa ne marche pas , il y a pas un moyen de faire plus simple , , ou alors il va me falloir des année pour bien maitriser le sujet
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
233
Réponses
3
Affichages
219
Réponses
14
Affichages
766
Réponses
17
Affichages
1 K
Réponses
2
Affichages
557
W
Retour