Le calendrier fourni par Excel pose souvent des problèmes.
J'ai donc développé un calendrier comme celui qu'on a quand on clique sur la date ou l'heure du PC.
Voici le résultat .
Pour revenir à la date d'aujourd'hui, il suffit de cliquer sur la date en haut du Userform.
le 12/07/2015:
Voici la version 2 qui corrige le bug du mois de décembre avec ajout des jours fériés et de quelques raccourcis claviers:
alt+p: aller au mois suivant
alt+m: aller au mois précédent
Alt+d: aller à une date (ou cliquez sur le ?). Notons que vous pouvez entrer 5/5 pour aller au mois de mai 2005.
Alt+a: retourner au mois en cours
un petite modif pour te simplifier le code:
(voir toutefois si ok !?)
EDIT:
et j'aurais supprimé le module1 et mis ceci dans le code userform
Private MoisAct, YearAct, Debtxt, Derjour, Jourmois
Code:
...
...
Private Sub Label50_Click()
BoutonJour Label50
End Sub
Private Sub Label51_Click()
BoutonJour Label51
End Sub
Private Sub Label52_Click()
BoutonJour Label52
End Sub
Private Sub BoutonJour(Bouton As Control)
I = 0: If Bouton.ForeColor = RGB(185, 185, 185) Then I = 1
ActiveCell = CDate(Bouton.Caption & "/" & Month(Me.Tx_DateAct) - I & "/" & Year(Me.Tx_DateAct))
End Sub
voilà pourtant ce que j'ai quand je clique sur la date du PC ...
Nb : à partir de ton modèle, pour modifier l'heure, je n'arrive pas à animer les aiguilles (analogique)
alors que en digital (type LCD) ça marche très bien ...
Merci beaucoup pour cette émulation et vos calendriers avec l'horloge en flash .
Mais j'ai réussi à faire fonctionner celui de 00 en chargeant son horloge.swf que j'ai mis sur mon bureau avec le lien dans le USF. Hors avec la version de ExcFl, il est incorporé au fichier. Comment est-ce possible d'incorporer l'horloge directement?