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 Insérer Calendrier dans InputBox ?

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
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
jps
trois choses :
1) un apéro qui a dû dureR me semble plus judicieux...
2) mais, denis, j'ai bien parlé du DT picker moi aussi à caroline
3) beu travail que le fichier sur ci-joint.com concernant la cellule B1
bonne nuit
jps

"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,

Ce contrôle DTpicker n'existe pas dans la version Excel 2000 ... ce n'est qu'à partir de la version excel 2002.

Sauf que tu peux peut être le récupérer dans des classeurs à télécharger sur le site de Misange. Il est facilement récupérable sur
Internet.


Salutations!




"Caroline L." a écrit dans le message de news: bs_4e.161250$
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
! un apéro qui a dû dureR ...

Tu as vu l'heure, tu peux bien parler à propos d'apéro qui se prolonge !

;-)



Salutations!
Avatar
Clément Marcotte
Bonjour,

Si tu tiens mordicus à utiliser InputBox(), tu ne peux pas appeler un
calendrier dans une InputBox. Cela va te prendre un UserForm
"déguisé" en InputBox()


"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
Bonjour CarolineL,

Effectivement , je commençais à me dire que tu ne vois que la moitié des
messages:
(tu devrais essayer le serveur msnews.microsoft.com )

Bref, je ne comprends pas ce que tu veux dire.
Si le but de ton calendrier est de faire que l'utilisateur n'ait pas à se

prendre la tête pour trouver la date du jour,
alors pas besoin de calendrier d'où cette proposition de remplavcer tout ce
dispositif par cette instruction:
[b1]=format(Now,"dd-mmm-yyyy")
ici b1 est un exemple .

J'ai insérer un calendrier dans le userform1. Ensuite il faut insérer la
procédure où ?...
Private Sub Calendar1_DblClick()

[b1] = Me.Calendar1
UserForm1.Hide
End Sub
se met dans le code du Userform(clicdroit dessus, code )

... Et qu'est-ce que cela fait au juste ?
Cela met la date sur laquelle on a dblcliqué dans la cellule choisie

ici
[b1] = Me.Calendar1
en exemple pourraît être
activecell= Me.Calendar1

...
Je t'ai aussi donné l'adresse du site de FS ou il existe un Cal2.Fr tout
fait
et bien d'autres exemples qui t'intéresseront.

Quelle raison t'empêcherait donc d'ouvrir les fichiers Zip?

Si ton OS ne le permet pas.
Il y a même des logiciels gratuits sur le net ou sinon voir règlage de ton
parefeu ou autres paramêtres de sécurité .
A moins que le cas échéant plus embêtant devoir consulter ton
administrateur réseau.

A bientôt.

lSteph



"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
LSteph
..suite
juste au cas où....
ajouter qd même dans un module standard ou l'appeler dans ta macro

Sub afficheUf()

userform1.show

end sub


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

Bonjour CarolineL,

Effectivement , je commençais à me dire que tu ne vois que la moitié des
messages:
(tu devrais essayer le serveur msnews.microsoft.com )

Bref, je ne comprends pas ce que tu veux dire.
Si le but de ton calendrier est de faire que l'utilisateur n'ait pas à se

prendre la tête pour trouver la date du jour,
alors pas besoin de calendrier d'où cette proposition de remplavcer tout
ce dispositif par cette instruction:
[b1]=format(Now,"dd-mmm-yyyy")
ici b1 est un exemple .

J'ai insérer un calendrier dans le userform1. Ensuite il faut insérer la
procédure où ?...
Private Sub Calendar1_DblClick()

[b1] = Me.Calendar1
UserForm1.Hide
End Sub
se met dans le code du Userform(clicdroit dessus, code )

... Et qu'est-ce que cela fait au juste ?
Cela met la date sur laquelle on a dblcliqué dans la cellule choisie

ici
[b1] = Me.Calendar1
en exemple pourraît être
activecell= Me.Calendar1

...
Je t'ai aussi donné l'adresse du site de FS ou il existe un Cal2.Fr tout
fait
et bien d'autres exemples qui t'intéresseront.

Quelle raison t'empêcherait donc d'ouvrir les fichiers Zip?

Si ton OS ne le permet pas.
Il y a même des logiciels gratuits sur le net ou sinon voir règlage de ton
parefeu ou autres paramêtres de sécurité .
A moins que le cas échéant plus embêtant devoir consulter ton
administrateur réseau.

A bientôt.

lSteph



"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.
Bonjour LSteph,

oui hier (mercredi) il me manquait des messages que je reçois pour la
plupart ce matin mais pas tous les messages. Il y a même des miens que je ne
vois pas. Je vais réfléchir pour le serveur msnews.microsoft.com

Maintenant que je sais, j'ai inséré le code du contrôle calendar dans le
code du userform et ça fonctionne !
j'ai des petits bugs dû à mes autres macros (en relation avec le userform)
mais je vais faire un petit bout avec ça !

Merci beaucoup
Bonne journée

Caroline


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

Bonjour CarolineL,

Effectivement , je commençais à me dire que tu ne vois que la moitié des
messages:
(tu devrais essayer le serveur msnews.microsoft.com )

Bref, je ne comprends pas ce que tu veux dire.
Si le but de ton calendrier est de faire que l'utilisateur n'ait pas à se

prendre la tête pour trouver la date du jour,
alors pas besoin de calendrier d'où cette proposition de remplavcer tout
ce

dispositif par cette instruction:
[b1]=format(Now,"dd-mmm-yyyy")
ici b1 est un exemple .

J'ai insérer un calendrier dans le userform1. Ensuite il faut insérer la
procédure où ?...
Private Sub Calendar1_DblClick()

[b1] = Me.Calendar1
UserForm1.Hide
End Sub
se met dans le code du Userform(clicdroit dessus, code )

... Et qu'est-ce que cela fait au juste ?
Cela met la date sur laquelle on a dblcliqué dans la cellule choisie

ici
[b1] = Me.Calendar1
en exemple pourraît être
activecell= Me.Calendar1

...
Je t'ai aussi donné l'adresse du site de FS ou il existe un Cal2.Fr tout
fait
et bien d'autres exemples qui t'intéresseront.

Quelle raison t'empêcherait donc d'ouvrir les fichiers Zip?

Si ton OS ne le permet pas.
Il y a même des logiciels gratuits sur le net ou sinon voir règlage de ton
parefeu ou autres paramêtres de sécurité .
A moins que le cas échéant plus embêtant devoir consulter ton
administrateur réseau.

A bientôt.

lSteph



"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.
Bonjour MichDenis,

excuse-moi de te répondre si tard (j'ai eu des problèmes dans le réception
des posts de hier à aujourd'hui). Je me suis abonné à msnews de microsoft...
je vais voir si c'est mieux.

Finalement, c'est correct pour le calendrier en B1, j'ai utilisé ce que
LSteph m'a fourni. Mais j'ai un dernier petit problème. Peux-tu seulement me
dire pourquoi dans ce qui suit, le msgbox apparaît 2
fois (une après l'autre) ??

'vérifier si B1 est vide
If Range("B1").Value = "" Then
MsgBox "Veuillez entrer la date dans le champ 'Du__________'" & vbCrLf &
"Format jj-mm-aa", vbOKOnly, "Lundi le..."
Range("B1").Select
Exit Sub
End If


Merci pour ton aide.

Caroline



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


Bonsoir Caroline,

Ce contrôle DTpicker n'existe pas dans la version Excel 2000 ... ce n'est
qu'à partir de la version excel 2002.


Sauf que tu peux peut être le récupérer dans des classeurs à télécharger
sur le site de Misange. Il est facilement récupérable sur

Internet.


Salutations!




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

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
Caroline L.
Bonjour Clément,

oui, c'est que je confondais les termes InputBox et UserForm.
Finalement, j'ai utilisé un userform.

merci à toi

Caroline

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Si tu tiens mordicus à utiliser InputBox(), tu ne peux pas appeler un
calendrier dans une InputBox. Cela va te prendre un UserForm
"déguisé" en InputBox()


"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,

S.V.P donne tout le code de ta macro. Cette dernière est sûrement déclenché par un événement.. Lequel ?


Salutations!



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

excuse-moi de te répondre si tard (j'ai eu des problèmes dans le réception
des posts de hier à aujourd'hui). Je me suis abonné à msnews de microsoft...
je vais voir si c'est mieux.

Finalement, c'est correct pour le calendrier en B1, j'ai utilisé ce que
LSteph m'a fourni. Mais j'ai un dernier petit problème. Peux-tu seulement me
dire pourquoi dans ce qui suit, le msgbox apparaît 2
fois (une après l'autre) ??

'vérifier si B1 est vide
If Range("B1").Value = "" Then
MsgBox "Veuillez entrer la date dans le champ 'Du__________'" & vbCrLf &
"Format jj-mm-aa", vbOKOnly, "Lundi le..."
Range("B1").Select
Exit Sub
End If


Merci pour ton aide.

Caroline



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


Bonsoir Caroline,

Ce contrôle DTpicker n'existe pas dans la version Excel 2000 ... ce n'est
qu'à partir de la version excel 2002.


Sauf que tu peux peut être le récupérer dans des classeurs à télécharger
sur le site de Misange. Il est facilement récupérable sur

Internet.


Salutations!




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

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




























1 2 3