Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Calendrier mensuel

Calendrier mensuel

4 réponses
Avatar
Érico
Bonjour,

Est-ce possible de faire afficher dans une cellule pour choisir la date,
comme dans Outlook ou le pocket Pc, avec un menu déroulant à l'horizontal,
l'année, le mois et le jour?

Merci

Érico de montréal
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Je crois bien que Frédéric a concocté quelque chose de ce genre ;-)
Tu devrais pouvoir trouver ça chez lui dans les macros complémentaires à
télécharger :
http://perso.wanadoo.fr/frederic.sigonneau/accueil.htm

Cordialement
Pascal

"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible de faire afficher dans une cellule pour choisir la date,
comme dans Outlook ou le pocket Pc, avec un menu déroulant à l'horizontal,
l'année, le mois et le jour?

Merci

Érico de montréal




Avatar
Érico
J'ai ça et je fais quoi avec ça?
le (Attribute VB_Name = "CalendrierRapide"), je le met où?

Merci
Voici la macro;
____________________________________________
Attribute VB_Name = "CalendrierRapide"

Sub Calendrier()
'Alain Vallon, mpfe
varAn = Val(InputBox("Année ?", "CALENDRIER"))
If varAn = 0 Then Exit Sub 'clic sur touche Annuler ou la croix
X = DateSerial(varAn, 1, 1)
Y = DateValue("31 décembre " & varAn)
For i = 0 To Y - X
Range("A" & i + 1, "B" & i + 1) = X + i
Next
Columns("A:A").NumberFormat = "dddd"
Columns("A:B").EntireColumn.AutoFit 'pour fignoler
End Sub
_____________________________________________
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Je crois bien que Frédéric a concocté quelque chose de ce genre ;-)
Tu devrais pouvoir trouver ça chez lui dans les macros complémentaires à
télécharger :
http://perso.wanadoo.fr/frederic.sigonneau/accueil.htm

Cordialement
Pascal

"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible de faire afficher dans une cellule pour choisir la date,
comme dans Outlook ou le pocket Pc, avec un menu déroulant à
l'horizontal,


l'année, le mois et le jour?

Merci

Érico de montréal








Avatar
Clément Marcotte
Bonjour,

Tu peux l'effacer et faire un copie-coller dans un module

ou

Tu prends le fichier texte au complet, sans rien changer et tu
importes le fichier dans l'environnement de programmation (VBE pour
faire plaisir à JPS). Dans ce cas, tu vas voir arriver un module du
nom de CalendrierRapide.


"Érico" a écrit dans le message de
news:
J'ai ça et je fais quoi avec ça?
le (Attribute VB_Name = "CalendrierRapide"), je le met où?

Merci
Voici la macro;
____________________________________________
Attribute VB_Name = "CalendrierRapide"

Sub Calendrier()
'Alain Vallon, mpfe
varAn = Val(InputBox("Année ?", "CALENDRIER"))
If varAn = 0 Then Exit Sub 'clic sur touche Annuler ou la croix
X = DateSerial(varAn, 1, 1)
Y = DateValue("31 décembre " & varAn)
For i = 0 To Y - X
Range("A" & i + 1, "B" & i + 1) = X + i
Next
Columns("A:A").NumberFormat = "dddd"
Columns("A:B").EntireColumn.AutoFit 'pour fignoler
End Sub
_____________________________________________
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Je crois bien que Frédéric a concocté quelque chose de ce genre
;-)


Tu devrais pouvoir trouver ça chez lui dans les macros
complémentaires à


télécharger :
http://perso.wanadoo.fr/frederic.sigonneau/accueil.htm

Cordialement
Pascal

"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible de faire afficher dans une cellule pour choisir
la date,



comme dans Outlook ou le pocket Pc, avec un menu déroulant à
l'horizontal,


l'année, le mois et le jour?

Merci

Érico de montréal












Avatar
papou
Re
Je ne parlais pas précisément de cette macro d'Alain mais plutôt de
BOCalendrierSaisieDate.zip à télécharger ici :
http://perso.wanadoo.fr/frederic.sigonneau/Calendriers.htm
Après dézippage, il faudra installer la macro complémentaire du même nom (en
suffixe XLA)
Puis une fois chargée dans Excel, dans le clic droit tu auras l'option
"Saisir une date".
Cordialement
Pascal


"Érico" a écrit dans le message de news:

J'ai ça et je fais quoi avec ça?
le (Attribute VB_Name = "CalendrierRapide"), je le met où?

Merci
Voici la macro;
____________________________________________
Attribute VB_Name = "CalendrierRapide"

Sub Calendrier()
'Alain Vallon, mpfe
varAn = Val(InputBox("Année ?", "CALENDRIER"))
If varAn = 0 Then Exit Sub 'clic sur touche Annuler ou la croix
X = DateSerial(varAn, 1, 1)
Y = DateValue("31 décembre " & varAn)
For i = 0 To Y - X
Range("A" & i + 1, "B" & i + 1) = X + i
Next
Columns("A:A").NumberFormat = "dddd"
Columns("A:B").EntireColumn.AutoFit 'pour fignoler
End Sub
_____________________________________________
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Je crois bien que Frédéric a concocté quelque chose de ce genre ;-)
Tu devrais pouvoir trouver ça chez lui dans les macros complémentaires à
télécharger :
http://perso.wanadoo.fr/frederic.sigonneau/accueil.htm

Cordialement
Pascal

"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible de faire afficher dans une cellule pour choisir la
date,
comme dans Outlook ou le pocket Pc, avec un menu déroulant à
l'horizontal,


l'année, le mois et le jour?

Merci

Érico de montréal