OVH Cloud OVH Cloud

Calendrier double clic

2 réponses
Avatar
HA
Bonjour

Comment dans une zone texte ou un combo faire apparaître un calendrier soit
par 2x clic ou par déroulement

Merci

2 réponses

Avatar
Frédéric Sigonneau
Bonsoir,

Une idée qui peut peut-être t'intéresser (il s'agit d'une barre
d'outils/calendrier) :

http://perso.wanadoo.fr/frederic.sigonneau/code/Calendriers/BOCalendrierSaisieDate.zip

Après dézippage du fichier et installation de la macro complémentaire, une
commande 'Saisir une date' est ajoutée dans le menu contextuel (clic droit) des
cellules. Cette commande fait apparaître un calendrier mensuel (par défaut, il
affiche le mois en cours mais on peut changer de mois et/ou d'année). Un clic
sur une date du calendrier l'inscrit dans la cellule active.

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour

Comment dans une zone texte ou un combo faire apparaître un calendrier soit
par 2x clic ou par déroulement

Merci


Avatar
Clément Marcotte
Et tu penses qu'avec la quantité de virus qui se promènent, on va
ouvrir tes fichiers. Une chance que Zonealarm mets ton exécutable en
quarantaine et que ceux qui ont au moins la chance de décider s'ils
veulent prendre le risque avant...

"PhilZig" a écrit dans le
message de news:brv1vi$h6r$
Bonjour
Enregistrer les fichiers joints sur le disque dur.
Ouvrir Excel !
Dans VBA d'excel (menu Outils-Macro-Visual Basic Editor ou Alt+F11)
Inserer un module Auto_Open et y copier le code ci dessous

'*** Commande dans le menu contextuel
CommandBars("cell").Reset
'Ajouter Calendrier dans le menu contextuel
With
Application.CommandBars("cell").Controls.Add(Type:=msoControlButton)
.Caption = "Calendrier"
.OnAction = "Lancer.Lancer"
.FaceId = 2142
End With
Importer les fichiers joints FrmCalendrier.frm et Lancer.bas dans le
projet

Double cliquer sur FrmCalendrier.frm et dans la boite à outils, avec
le clic

droit ajouter
le contrôle supplémentaire 'Contrôle calendrier XX' (XX numéro de
version

d'excel)
Sauvegarder le classeur et à sa prochaine ouverture dans le menu
contextuel

(clic droit)
en cliquant sur calendrier tu peux insérer une date choisie...
Philzig
"HA" a écrit dans le message de
news:OX%
Bonjour

Comment dans une zone texte ou un combo faire apparaître un
calendrier


soit
par 2x clic ou par déroulement

Merci