Calendrier excel et user forme

[sthiteng]

Bonjour à tous, C'est un plaisir de rejoindre le forum.

Bref suis buter sur deux problème:
j'aimerai avoir une cellule date qui par défaut affiche la date du jour mais que lorsqu'on Click dessus affiche un calendrier et nous permet de choisir date souhaité.
J'aimerais créer, permettre que le userform s'affiche en permanence lorsqu'on lance mon application excel mais je ne sais pas par ou commencer. En fait c'est une application de gestion de fabrication contreplaqué j'aimerai faire donc si vous avez d'autres idées, je serais joyeux. Merci
Votre aide me sera vraiment précieuse.

 

[gilbert_RGI]

Re : Calendrier excel et user forme

Bonjour

voir ici

 

[Roland_M]

Re : Calendrier excel et user forme

bonjour à tous,

voir avec ceci !?

 

[sthiteng]

Re : Calendrier excel et user forme

merci Roland mais j'ai un autre soucis: Seul certaines cellules doivent pouvoir faire afficher se calendrier, et juste un clic dans la cellule doit faire s'afficher le calendrier ou encore un petit bouton (en lien) doit le faire apparaître.

 

[cibleo]

Re : Calendrier excel et user forme

Bonsoir à tous,

Voilà, j'ai voulu reprendre le calendrier de Roland_M au post #3, or je m'aperçois qu'au bout d'un certain nombre d'insertion de dates (Double-Click), Excel plante, je suis sous 2003.

Croyant que cela venait de mon fichier, j'en ai créé un autre puis repris celui de Roland_M.
3 fichiers ---> 3 plantages
Au final excel finit toujours par planter.

Cela ce produit-il chez vous ?
D'où peut venir le problème avez vous une idée ?

Edit : j'ai choisi ce modèle de calendrier parceque je voulais éviter les datepicker et compagnies qui sont souvent une source de problèmes.

Cibleo

 

[cibleo]

Re : Calendrier excel et user forme

Re le forum,

Bon j'ai trouvé, en fait excel ne plantait pas.
C'est l'userform qui disparaissait de l'écran.
Dans la procédure Activate de l'Userform, j'ai placé cette instruction en commentaire et tout rentre dans l'ordre.

' place l'userform
'Me.Top = ActiveCell.Top: Me.Left = ActiveCell.Left

Mes excuses à Roland_M
Cibleo

 

[Roland_M]

Re : Calendrier excel et user forme

bonjour,

je crois comprendre qu'il ne disparait pas mais plutôt qu'il est sortie hors de l'écran !?
j'ai apportée une petite modification pour corriger cela.

VOIR MON POST#3

 

[cibleo]

Re : Calendrier excel et user forme

Bonjour Roland,

Précisions :
Oui, je voulais dire qu'il sortait de l'écran et se retrouvait en dessous de la barre de tâches et donc impossible à atteindre avec la souris.
En tous cas, merci pour ce calendrier très pratique

Cibleo

 

[cibleo]

Re : Calendrier excel et user forme

Re Rolland,

Je viens de tester ton nouveau fichier du post #7 et je m'aperçois qu'il y a un bug au niveau des évènements des spinbutton. ----> incompatibilité de type.
Je dois partir travailler.

A+ Cibleo

 

[Roland_M]

Re : Calendrier excel et user forme

re

bien vu ! effectivement un bug sur le no du mois pris avec .ListIndex
M = CbMois.ListIndex + 1
mais .ListIndex peut être = -1 et donc +1 ne fais toujours que 0 ! j'ai omis le test !
M = CbMois.ListIndex + 1: If M < 1 Then M = 1

merci pour cette info ! j'ai remis le fichier
VOIR MON POST#3