Calendrier vba disposition des mois

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'utilise depuis le milieu 2017 ce calendrier pour saisir des dates dans les cellules, tout fonctionne à merveille, mais il y a une chose agaçante depuis cette année, c'est que le mois en cours est tout en bas à droite, alors qu'il devrait être logiquement tout en haut à gauche pour sélectionner les dates dans le futur ...

Que faut il changer ?

Merci de votre aide et bonne soirée
Philippe

Pièce jointe 377885
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Option Explicit Private Sub UserForm_Initialize() If Not IsDate(ActiveCell.Value) Then Me.MonthView1.Value = Date 'Si cellule vide ouvre le calendrier à la date du jour Else Me.MonthView1.Value = ActiveCell.Value 'Si cellule avec date ouvre le calendrier à la date de la cellule End If End Sub Private Sub CommandButton1_Click() 'Bouton (cacher) avec Cancel à True pour fermer avec la touche ESC Unload Me End Sub Private Sub MonthView1_DateClick(ByVal DateClicked As Date) On Error Resume Next ActiveCell.Value = DateClicked Unload Me End Sub

Salut,

ne sachant pas comment est géré ton MonthView, je tenterai un truc du style

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
        If Not IsDate(ActiveCell.Value) Then
            Me.MonthView1.Value = Date + 360 '(pour faire se déplacer dans le futur les dates) puis revenir
            Me.MonthView1.Value = Date 'Si cellule vide ouvre le calendrier à la date du jour
    Else
            Me.MonthView1.Value = ActiveCell.Value+ 360 '(pour faire se déplacer dans le futur les dates) puis revenir
            Me.MonthView1.Value = ActiveCell.Value 'Si cellule avec date ouvre le calendrier à la date de la cellule
        End If
End Sub

07/05/2018, 19h59
patricktoulon

re

c'est quoi se monthview un userform je supose c'est pas un control
tu es sur de pas le rater celui la ;)
je pense que pour t'aider il nous faut ce userform et je suis casiment certain le module classe qui va avec
edit autant pour moi c'est bien un control
ben dis donc
je pense que quand tu fait monthview1.value=activecell.value je suis pas sur que ca match essaie cdate(activecell.value)
07/05/2018, 20h14
Jean-Philippe André

Hello Patrick,

je ne vois pas en quoi le code déjà utilisé à un impact sur l'emplacement de la date dans la série de mois, et on a déjà discuté du CDate() dans d'autres sujets. Cela n'a pas de lien direct avec le problème, ni ne solutionnera une erreur :)
07/05/2018, 21h56
patricktoulon

re

re
oui je viens de tester
il faut dire que sur 2007 il m'a tellement causer de probleme (il me faisait planter excel sans explication et juste en affichage)que je l'ai bani des controls que j'utilise

c'est pour ca que je m'en etais fait un (imitation du calendar)

bon a part mettre le row a 3 et les colonnes a 4 ce qui permet de voir l'année entiere

en haut a gauche janvier en bas a droite decembre

je vais suivre ca m'interesse

a part ca mettre un mois precis en top gauche je sais pas si c'est possible

Citation:

Envoyé par Jean-Philippe André

Salut,

ne sachant pas comment est géré ton MonthView, je tenterai un truc du style

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
        If Not IsDate(ActiveCell.Value) Then
            Me.MonthView1.Value = Date + 360 '(pour faire se déplacer dans le futur les dates) puis revenir
            Me.MonthView1.Value = Date 'Si cellule vide ouvre le calendrier à la date du jour
    Else
            Me.MonthView1.Value = ActiveCell.Value+ 360 '(pour faire se déplacer dans le futur les dates) puis revenir
            Me.MonthView1.Value = ActiveCell.Value 'Si cellule avec date ouvre le calendrier à la date de la cellule
        End If
End Sub

Merci Jean-Philippe André,

C'est la solution, encore mille merci

Excellente journée
Philippe

08/05/2018, 09h22
patricktoulon

re

bien vu Jean-Philippe André;)
le fait de revenir ne rameme pas a janvier a gauche mais au mois de la date en parametre