Discussion :

[goninph]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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)

[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

[patricktoulon]

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

[goninph]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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