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

F

Franco

Guest
bonjour tous,
je débute sur excel et j'ai un problème avec un calendrier.
à la place du jour (lundi mardi etc..) il y a ###### qui s'affiche
merci de votre aide, que dois-je faire?
 
Salut Franco

Rien de plus facile, clique sur ta cellule ensuite va dans le menu

Format / colonne / ajustement automatique

cela devrait agrandir ta cellule afin de voir tous le texte

au-lieu de ####

Bonne journée Myta
 
Bonjour,

Je recherche une formule qui me permettrait d'afficher dans un classeur les dates des jours fériés des années à venir et plus particulièrement Pâques, l'Ascension et la Pentecôte.

Merci pour votre aide.
 
Bonjour,

essai ce code

Sub Paques()
' retourne paques d'une année
Dim DPaques As Date, Y1 As Long, Y2 As Long, _
Y3 As Long, Y4 As Long, Y5 As Long, Y6 As Long _
, Yj As Long, Ym, Ya
Dim Yannee As Long
'*************
Yannee = Year(Range("A1")) ' la cellule "A1" avec une date valide
'**************
Y1 = Modulo(Yannee, 19)
Y2 = Modulo(Yannee, 4)
Y3 = Modulo(Yannee, 7)
Y4 = Modulo((19 * Y1 + 24), 30)
Y5 = Modulo(((2 * Y2) + (4 * Y3) + (6 * Y4) + 5), 7)
Y6 = 22 + Y4 + Y5
If Y6 > 31 Then
Yj = Y6 - 31
Ym = 4
Else
Yj = Y6
Ym = 3
End If
DPaques = CDate(Str(Yj) & "/" & Str(Ym) & "/" & Yannee)
Range("A2") = DPaques 'la cellule "A2" avec une date valide


End Sub
Function Modulo(nombre As Long, diviseur As Long) As Long
' donne le reste d'une division sous une forme plus académique
Modulo = nombre Mod diviseur
End Function

les autres dates
Pâques- 42 = Carême
-7 = Rameaux
+39 = Ascension
+49 = Pentecôte


XLcalement eh Amicalement Pascal Liberty
 
Bonsoir,

Inscrire les 4 chiffres de l'année dans une cellule.
Nommer cette cellule " An ".

Date de Pâques avec formules aux choix :

=ARRONDI(DATE(An;4;MOD(234-11*MOD(An;19);30))/7😉*7-6
faux en 2049 et 2076
Sensible au calendrier du classeur (1 jour de différence entre les deux)
auteur inconnu

=PLANCHER(JOUR(MINUTE(An/38)/2+56)&"/5/"&An;7)-34
faux en 2079
Sensible au calendrier du classeur (1 jour de différence entre les deux)
auteur inconnu

=FRANC((JOUR(MINUTE(An/38)/2+55)&"/4/"&An)/7😉*7-6
faux en 2079
Sensible au calendrier du classeur (1 jour de différence entre les deux)
Auteur : Norbert Hetterich

=DATE(An;SI((25-MOD((11*MOD(An-1900;19)+4-ENT((7*MOD(An-1900;19)+1)/19));29)-MOD(An-1900+ENT((An-1900)/4)+31-MOD((11*MOD(An-1900;19)+4-ENT((7*MOD(An-1900;19)+1)/19));29);7))>0;4;3);SI((25-MOD((11*MOD(An-1900;19)+4-ENT((7*MOD(An-1900;19)+1)/19));29)-MOD(An-1900+ENT((An-1900)/4)+31-MOD((11*MOD(An-1900;19)+4-ENT((7*MOD(An-1900;19)+1)/19));29);7))>0;(25-MOD((11*MOD(An-1900;19)+4-ENT((7*MOD(An-1900;19)+1)/19));29)-MOD(An-1900+ENT((An-1900)/4)+31-MOD((11*MOD(An-1900;19)+4-ENT((7*MOD(An-1900;19)+1)/19));29);7));31+(25-MOD((11*MOD(An-1900;19)+4-ENT((7*MOD(An-1900;19)+1)/19));29)-MOD(An-1900+ENT((An-1900)/4)+31-MOD((11*MOD(An-1900;19)+4-ENT((7*MOD(An-1900;19)+1)/19));29);7))))
Testé jusqu'en 2099 : bon
Insensible au calendrier du classeur (1900 ou 1904)
Auteur : Jean-Paul Mesters

Source : <http://disciplus.simplex.free.fr/xl/calendriers.htm#joursfériés>
 
bonjour,

j'aimerai savoir s'il existe un moyen de créer un calendrier sur excel, autre qu'a la main. Existe-t-il un classeur préconçu à cet effet ? et si oui où ? Je pensais qu'en faisant fichier nouveau et solutions excel il y aurait plus de propositions que ca mais il n'y a que facture, bon de commande, etc...
Y a til une autre solution????
MERCI
 
Bonjour, Fleur

Il y aura 390 postes, qui parlent de calendrier,

Si tu veux regarde ce lien Lien supprimé, tu auras un calendrier en feuille de calcul, en boîte de dialogue, ou avec le contrôle activeX calendar de VBA.

Regarde le fichier joint, il créé un nouveau fichier avec une feuille avec un calendrier.

@+Jean-Marie
 

Pièces jointes

- 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
14
Affichages
597
Réponses
7
Affichages
345
Réponses
18
Affichages
421
Réponses
16
Affichages
406
Réponses
17
Affichages
963
Réponses
6
Affichages
267
Retour