OVH Cloud OVH Cloud

Insérer Calendrier dans InputBox ?

28 réponses
Avatar
Caroline L.
Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline

10 réponses

1 2 3
Avatar
anonymousA
re,Caroline

Pourquoi chercher à faire un calendrier alors qu'il existe un controle
Calendar qu'on peut placer sur un UF et disposant de toutes les
fonctions nécessaires pour gerer des dates ?

A+

Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline




Avatar
LSteph
ReReBonsoir Caroline,
outre le controlcalendar disponible pour excel dans
certaines versions d'office car en réalité il appartient à Access.

Va sur le site Frédéric Sigonneau à calendriers tu trouvera plein de choses
:
http://frederic.sigonneau.free.fr/Calendriers.htm

'lSteph

"Caroline L." a écrit dans le message de news:
QkX4e.158932$
Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline




Avatar
Caroline L.
Bonjour anonymousA,

je ne veux pas "faire" un calendrier, je veux afficher le calendrier (celui
que j'ai trouvé dans les outils, contrôles supplémentaires des userform)...
justement je ne sais pas comment arriver à afficher le calendrier dans un
inputbox (ou à partir d'un userform)... ce calendrier serait là que pour
consultation (aucun clique pour gérer les dates)... l'utilisateur entre la
date lui-même dans l'espace de saisi du inputbox.
Je sais que l'utilisateur pourrait cliquer sur la date et celle-ci pourrait
s'inscrire dans la case de saisie mais je ne suis pas rendu là ! Je veux
juste que le calendrier soit là pour le consulter (prendre la bonne date et
ne pas courir chercher un calendrier).
moi et les userform... je ne m'y connais pas vraiment...

Donc, est-ce que c'est simple d'arriver à mon résultat ? Si oui, peux-tu me
donner un coup de pouce ?

'renommer la feuille (avec la nouvelle date)
nouveaunom = InputBox("Indiquez le nouveau nom de la feuille", "Renommer la
feuille")


Caroline


"anonymousA" a écrit dans le message de news:
42544353$0$1225$
re,Caroline

Pourquoi chercher à faire un calendrier alors qu'il existe un controle
Calendar qu'on peut placer sur un UF et disposant de toutes les
fonctions nécessaires pour gerer des dates ?

A+

Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline






Avatar
LSteph
Re re re re...bonsoir,
Avec calendrier si tu veux cf . réponses si c'est la bonne date (du jour)
alors sans calendrier:

[b1]=format(Now,"dd-mmm-yyyy")

Tu peux faire idem avec l controlcalendar selon choisx ou sur boutton ok
et à adapter à réponse à un de tes posts précédents

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub


'lSteph

"Caroline L." a écrit dans le message de news:
DIX4e.159732$
Bonjour anonymousA,

je ne veux pas "faire" un calendrier, je veux afficher le calendrier
(celui
que j'ai trouvé dans les outils, contrôles supplémentaires des
userform)...
justement je ne sais pas comment arriver à afficher le calendrier dans un
inputbox (ou à partir d'un userform)... ce calendrier serait là que pour
consultation (aucun clique pour gérer les dates)... l'utilisateur entre la
date lui-même dans l'espace de saisi du inputbox.
Je sais que l'utilisateur pourrait cliquer sur la date et celle-ci
pourrait
s'inscrire dans la case de saisie mais je ne suis pas rendu là ! Je veux
juste que le calendrier soit là pour le consulter (prendre la bonne date
et
ne pas courir chercher un calendrier).
moi et les userform... je ne m'y connais pas vraiment...

Donc, est-ce que c'est simple d'arriver à mon résultat ? Si oui, peux-tu
me
donner un coup de pouce ?

'renommer la feuille (avec la nouvelle date)
nouveaunom = InputBox("Indiquez le nouveau nom de la feuille", "Renommer
la
feuille")


Caroline


"anonymousA" a écrit dans le message de news:
42544353$0$1225$
re,Caroline

Pourquoi chercher à faire un calendrier alors qu'il existe un controle
Calendar qu'on peut placer sur un UF et disposant de toutes les
fonctions nécessaires pour gerer des dates ?

A+

Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline










Avatar
Caroline L.
Re-bonjour LSteph,

oui merci, j'ai regardé le lien. Le problème c'est que je ne peux pas ouvrir
des fichiers zip.
Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA), je disais que je ne veux pas gérer des dates, je veux
seulement le calendrier qui s'affiche lorsque l'usager entre lui-même la
date.

As-tu une idée comment faire appaître le calendrier dans la boîte dialogue
du inputbox ?
Sinon, est-il possible d'ouvrir 2 boîtes dialogues (le calendrier en haut à
droite et le inputbox au centre un peu plus bas et tout se ferme lorsque
l'usager saisi sa date dans l'endroit prévu ?)

'renommer la feuille en entrant la date appropriée
nouveaunom = InputBox("Indiquez le nouveau nom de la feuille", "Renommer la
feuille")


Caroline


"LSteph" a écrit dans le message de news:

ReReBonsoir Caroline,
outre le controlcalendar disponible pour excel dans
certaines versions d'office car en réalité il appartient à Access.

Va sur le site Frédéric Sigonneau à calendriers tu trouvera plein de
choses

:
http://frederic.sigonneau.free.fr/Calendriers.htm

'lSteph

"Caroline L." a écrit dans le message de news:
QkX4e.158932$
Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline








Avatar
LSteph
As-tu une idée
...oui mais pas dans inputbox , dans un userform

Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA)
regardes mon autre réponse à celui là précisément.

...
alors sans calendrier:

[b1]=format(Now,"dd-mmm-yyyy")

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub


"Caroline L." a écrit dans le message de news:
ueY4e.160067$
Re-bonjour LSteph,

oui merci, j'ai regardé le lien. Le problème c'est que je ne peux pas
ouvrir
des fichiers zip.
Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA), je disais que je ne veux pas gérer des dates, je
veux
seulement le calendrier qui s'affiche lorsque l'usager entre lui-même la
date.

As-tu une idée comment faire appaître le calendrier dans la boîte dialogue
du inputbox ?
Sinon, est-il possible d'ouvrir 2 boîtes dialogues (le calendrier en haut
à
droite et le inputbox au centre un peu plus bas et tout se ferme lorsque
l'usager saisi sa date dans l'endroit prévu ?)

'renommer la feuille en entrant la date appropriée
nouveaunom = InputBox("Indiquez le nouveau nom de la feuille", "Renommer
la
feuille")


Caroline


"LSteph" a écrit dans le message de news:

ReReBonsoir Caroline,
outre le controlcalendar disponible pour excel dans
certaines versions d'office car en réalité il appartient à Access.

Va sur le site Frédéric Sigonneau à calendriers tu trouvera plein de
choses

:
http://frederic.sigonneau.free.fr/Calendriers.htm

'lSteph

"Caroline L." a écrit dans le message de news:
QkX4e.158932$
Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline












Avatar
Caroline L.
Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA)
regardes mon autre réponse à celui là précisément.

je ne vois pas... ?


[b1]=format(Now,"dd-mmm-yyyy")
est-ce que cela répond à un autre post qui oblige l'usager à saisir en B1

une date ? Si oui, ma question du calendrier n'a rien à voir avec la
question d'obliger la saisie en B1.
Bref, je ne comprends pas ce que tu veux dire.

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub
J'ai insérer un calendrier dans le userform1. Ensuite il faut insérer la

procédure où ? Et qu'est-ce que cela fait au juste ? Excuse-moi mais je
suis un peu perdu (peut-être pcq je ne connait pas le Calendar1_DblClick.

merci de m'aider
Caroline







"LSteph" a écrit dans le message de news:

As-tu une idée
...oui mais pas dans inputbox , dans un userform

Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA)
regardes mon autre réponse à celui là précisément.

...
alors sans calendrier:

[b1]=format(Now,"dd-mmm-yyyy")

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub


"Caroline L." a écrit dans le message de news:
ueY4e.160067$
Re-bonjour LSteph,

oui merci, j'ai regardé le lien. Le problème c'est que je ne peux pas
ouvrir
des fichiers zip.
Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA), je disais que je ne veux pas gérer des dates, je
veux
seulement le calendrier qui s'affiche lorsque l'usager entre lui-même la
date.

As-tu une idée comment faire appaître le calendrier dans la boîte
dialogue


du inputbox ?
Sinon, est-il possible d'ouvrir 2 boîtes dialogues (le calendrier en
haut


à
droite et le inputbox au centre un peu plus bas et tout se ferme lorsque
l'usager saisi sa date dans l'endroit prévu ?)

'renommer la feuille en entrant la date appropriée
nouveaunom = InputBox("Indiquez le nouveau nom de la feuille", "Renommer
la
feuille")


Caroline


"LSteph" a écrit dans le message de news:

ReReBonsoir Caroline,
outre le controlcalendar disponible pour excel dans
certaines versions d'office car en réalité il appartient à Access.

Va sur le site Frédéric Sigonneau à calendriers tu trouvera plein de
choses

:
http://frederic.sigonneau.free.fr/Calendriers.htm

'lSteph

"Caroline L." a écrit dans le message de news:
QkX4e.158932$
Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans
le




InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline
















Avatar
jps
bonjour caroline
si denis était dans le coin (mais il avait un apéro ce soir qui a dû duré un
peu plus que prévu) il te dirait de t'intéresser à un petit truc du nom de
Data and Time Picker (DT Picker pour les rapides) ; ah! tu vas me demander
où il se trouve, bien sûr : tu cliques sur l'icône avec les outils (tu vois
le marteau, oui? bon mais ne cherche pas la faucille, ce n'est pas biloff
qui a pondu mais bilou) et dans la liste, tu vas découvrir ce contrôle (dans
la série des Microsoft...), tu vas le mettre dans ta feuille et tu vas avoir
un joli calendrier...et si tu veux le faire parler, tu vas voir dans ses
propriétés
jps

"Caroline L." a écrit dans le message de
news:_PY4e.160414$
Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA)
regardes mon autre réponse à celui là précisément.

je ne vois pas... ?


[b1]=format(Now,"dd-mmm-yyyy")
est-ce que cela répond à un autre post qui oblige l'usager à saisir en B1

une date ? Si oui, ma question du calendrier n'a rien à voir avec la
question d'obliger la saisie en B1.
Bref, je ne comprends pas ce que tu veux dire.

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub
J'ai insérer un calendrier dans le userform1. Ensuite il faut insérer la

procédure où ? Et qu'est-ce que cela fait au juste ? Excuse-moi mais je
suis un peu perdu (peut-être pcq je ne connait pas le Calendar1_DblClick.

merci de m'aider
Caroline







"LSteph" a écrit dans le message de news:

As-tu une idée
...oui mais pas dans inputbox , dans un userform

Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA)
regardes mon autre réponse à celui là précisément.

...
alors sans calendrier:

[b1]=format(Now,"dd-mmm-yyyy")

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub


"Caroline L." a écrit dans le message de news:
ueY4e.160067$
Re-bonjour LSteph,

oui merci, j'ai regardé le lien. Le problème c'est que je ne peux pas
ouvrir
des fichiers zip.
Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA), je disais que je ne veux pas gérer des dates, je
veux
seulement le calendrier qui s'affiche lorsque l'usager entre lui-même
la



date.

As-tu une idée comment faire appaître le calendrier dans la boîte
dialogue


du inputbox ?
Sinon, est-il possible d'ouvrir 2 boîtes dialogues (le calendrier en
haut


à
droite et le inputbox au centre un peu plus bas et tout se ferme
lorsque



l'usager saisi sa date dans l'endroit prévu ?)

'renommer la feuille en entrant la date appropriée
nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
"Renommer



la
feuille")


Caroline


"LSteph" a écrit dans le message de news:

ReReBonsoir Caroline,
outre le controlcalendar disponible pour excel dans
certaines versions d'office car en réalité il appartient à Access.

Va sur le site Frédéric Sigonneau à calendriers tu trouvera plein de
choses

:
http://frederic.sigonneau.free.fr/Calendriers.htm

'lSteph

"Caroline L." a écrit dans le message de
news:




QkX4e.158932$
Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier
dans





le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline




















Avatar
Caroline L.
Re-bonjour jps,

oui je vois l'icone du marteau (boîte à outils) mais il n'y a pas de liste
Dans les outils, contrôles supplémentaires ? non, je ne vois rien du nom de
Data and Time Picker. J'ai Excel 2000. Est-ce Data source controle 9.0 ?



"jps" a écrit dans le message de news:

bonjour caroline
si denis était dans le coin (mais il avait un apéro ce soir qui a dû duré
un

peu plus que prévu) il te dirait de t'intéresser à un petit truc du nom de
Data and Time Picker (DT Picker pour les rapides) ; ah! tu vas me demander
où il se trouve, bien sûr : tu cliques sur l'icône avec les outils (tu
vois

le marteau, oui? bon mais ne cherche pas la faucille, ce n'est pas biloff
qui a pondu mais bilou) et dans la liste, tu vas découvrir ce contrôle
(dans

la série des Microsoft...), tu vas le mettre dans ta feuille et tu vas
avoir

un joli calendrier...et si tu veux le faire parler, tu vas voir dans ses
propriétés
jps

"Caroline L." a écrit dans le message de
news:_PY4e.160414$
Mais de toute façon, si tu regardes ma réponse précédente (celle où
je




répond à anonymousA)
regardes mon autre réponse à celui là précisément.

je ne vois pas... ?


[b1]=format(Now,"dd-mmm-yyyy")
est-ce que cela répond à un autre post qui oblige l'usager à saisir en

B1


une date ? Si oui, ma question du calendrier n'a rien à voir avec la
question d'obliger la saisie en B1.
Bref, je ne comprends pas ce que tu veux dire.

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub
J'ai insérer un calendrier dans le userform1. Ensuite il faut insérer la

procédure où ? Et qu'est-ce que cela fait au juste ? Excuse-moi mais je
suis un peu perdu (peut-être pcq je ne connait pas le
Calendar1_DblClick.



merci de m'aider
Caroline







"LSteph" a écrit dans le message de news:

As-tu une idée
...oui mais pas dans inputbox , dans un userform

Mais de toute façon, si tu regardes ma réponse précédente (celle où
je




répond à anonymousA)
regardes mon autre réponse à celui là précisément.

...
alors sans calendrier:

[b1]=format(Now,"dd-mmm-yyyy")

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub


"Caroline L." a écrit dans le message de news:
ueY4e.160067$
Re-bonjour LSteph,

oui merci, j'ai regardé le lien. Le problème c'est que je ne peux
pas




ouvrir
des fichiers zip.
Mais de toute façon, si tu regardes ma réponse précédente (celle où
je




répond à anonymousA), je disais que je ne veux pas gérer des dates,
je




veux
seulement le calendrier qui s'affiche lorsque l'usager entre
lui-même




la
date.

As-tu une idée comment faire appaître le calendrier dans la boîte
dialogue


du inputbox ?
Sinon, est-il possible d'ouvrir 2 boîtes dialogues (le calendrier en
haut


à
droite et le inputbox au centre un peu plus bas et tout se ferme
lorsque



l'usager saisi sa date dans l'endroit prévu ?)

'renommer la feuille en entrant la date appropriée
nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
"Renommer



la
feuille")


Caroline


"LSteph" a écrit dans le message de news:

ReReBonsoir Caroline,
outre le controlcalendar disponible pour excel dans
certaines versions d'office car en réalité il appartient à Access.

Va sur le site Frédéric Sigonneau à calendriers tu trouvera plein
de





choses
:
http://frederic.sigonneau.free.fr/Calendriers.htm

'lSteph

"Caroline L." a écrit dans le message de
news:




QkX4e.158932$
Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier
dans





le
InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline























Avatar
MichDenis
Bonsoir Caroline,

Pour faire suite au message de JPS, le contrôle calandar est disponible seulement si tu as l'application ACCESS d'installer sur ton
ordi. Si non, tu peux le trouver sur Internet ou l'emprunter à un de tes amis !!!!!!! sinon tu devras utiliser DTpicker

Et voici quelques lignes de code sur le sujet :

'-------------------------------
Private Sub UserForm_Initialize()

'À l'ouverture du formulaire, le calandar
'affiche la date d'aujourd'hui
Me.Calendar1.Value = Date

End Sub
'-------------------------------


Private Sub Calendar1_Click()

'pour afficher la date sélectionnée par l'usager dans un textbox

Me.TextBox1 = Me.Calendar1.Value

'OU dans un format personnalisé

Me.TextBox1 = Format(Me.Calendar1.Value, "d mmmm yyyy")

End Sub
'----------------------------------


Salutations!






"Caroline L." a écrit dans le message de news: _PY4e.160414$
Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA)
regardes mon autre réponse à celui là précisément.

je ne vois pas... ?


[b1]=format(Now,"dd-mmm-yyyy")
est-ce que cela répond à un autre post qui oblige l'usager à saisir en B1

une date ? Si oui, ma question du calendrier n'a rien à voir avec la
question d'obliger la saisie en B1.
Bref, je ne comprends pas ce que tu veux dire.

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub
J'ai insérer un calendrier dans le userform1. Ensuite il faut insérer la

procédure où ? Et qu'est-ce que cela fait au juste ? Excuse-moi mais je
suis un peu perdu (peut-être pcq je ne connait pas le Calendar1_DblClick.

merci de m'aider
Caroline







"LSteph" a écrit dans le message de news:

As-tu une idée
...oui mais pas dans inputbox , dans un userform

Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA)
regardes mon autre réponse à celui là précisément.

...
alors sans calendrier:

[b1]=format(Now,"dd-mmm-yyyy")

Tu peux faire idem avec l controlcalendar ...dans userform

Private Sub Calendar1_DblClick()
[b1] = Me.Calendar1
UserForm1.Hide
End Sub


"Caroline L." a écrit dans le message de news:
ueY4e.160067$
Re-bonjour LSteph,

oui merci, j'ai regardé le lien. Le problème c'est que je ne peux pas
ouvrir
des fichiers zip.
Mais de toute façon, si tu regardes ma réponse précédente (celle où je
répond à anonymousA), je disais que je ne veux pas gérer des dates, je
veux
seulement le calendrier qui s'affiche lorsque l'usager entre lui-même la
date.

As-tu une idée comment faire appaître le calendrier dans la boîte
dialogue


du inputbox ?
Sinon, est-il possible d'ouvrir 2 boîtes dialogues (le calendrier en
haut


à
droite et le inputbox au centre un peu plus bas et tout se ferme lorsque
l'usager saisi sa date dans l'endroit prévu ?)

'renommer la feuille en entrant la date appropriée
nouveaunom = InputBox("Indiquez le nouveau nom de la feuille", "Renommer
la
feuille")


Caroline


"LSteph" a écrit dans le message de news:

ReReBonsoir Caroline,
outre le controlcalendar disponible pour excel dans
certaines versions d'office car en réalité il appartient à Access.

Va sur le site Frédéric Sigonneau à calendriers tu trouvera plein de
choses

:
http://frederic.sigonneau.free.fr/Calendriers.htm

'lSteph

"Caroline L." a écrit dans le message de news:
QkX4e.158932$
Re re-bonjour,

j'ai la tête pleine de questions. Comment insérer un calendrier dans
le




InputBox suivant
(voir au milieu de Calendrier.Show) :

nouveaunom = InputBox("Indiquez le nouveau nom de la feuille",
Calendrier.Show, "Renommer la feuille")

Tous mes remerciements,

Caroline
















1 2 3