MonthView Affichage du mois suivant

[olivepao]

Bonjour le forum : )

J'ai un petit soucis avec un MontView dans un UserForm.

Je désire que mon calendrier affiche le mois suivant, autrement dit en novembre, le mois de décembre doit être affiché. J'ai créé un code qui tient compte du passage à l'année suivante.

Private Sub UserForm_Initialize()

Dim Jour As String, Mois As String, Annee As String, m As Date

m = Month(Date)
Jour = 1

If m = 12 Then
    Mois = (Month(Now) - 11)
    Annee = (Year(Now) + 1)
Else
    Mois = (Month(Now) + 1)
    Annee = (Year(Now))
End If

Jour = Format(Jour, "00")
Mois = Format(Mois, "00")

Format(MonthView1.Value, "Jour/Mois/Annee") = MonthView1

....

End Sub

J'ai testé avec un MsgBox les valeurs Jour Mois Annee. Les valeurs sont sont bien 01 12 et 2008.

J'ai beau retourner la dernière instruction dans tous les sens, malheureusement c'est toujours le calendrier du mois en cours qui s'affiche.

Merci d'avance à ceux qui auront le temps de se pencher sur mon problème.

A++

 

[Guest]

Re : MonthView Affichage du mois suivant

bonjour OlivePAo

Le contrôle Monthview attend une valeur date et non une chaine de caractère.

MonthView = DateValue("01/" & Mois & "/" & Annee)

A+

 

[ftho]

Re : MonthView Affichage du mois suivant

Bonjour,

Essaie comme ceci

Private Sub UserForm_Initialize()
    Dim jour As Byte, mois As Byte, annee As Integer
    
    jour = 1
    
    If Month(Now) = 12 Then
        mois = 1
        annee = Year(Now) + 1
    Else
        mois = Month(Now) + 1
        annee = Year(Now)
    End If
    
    Me.MonthView1.Value = jour & "/" & mois & "/" & annee
End Sub

oups... sorry Hasco, je n'avais pas rafraîchi l'écran

 

[olivepao]

Re : MonthView Affichage du mois suivant

Hello Hasco Hello ftho Re le forum

Je ne pensais pas que MonthView attendait uniquement une valeur Date

avec l'instruction (une combinaison de vos propositions)

Me.MonthView1 = DateValue(Jour & "/" & Mois & "/" & Annee)

Mon MOnthView est sur le mois de décembre.

Merci et A++