Une petite aide sur une procedure

[rchristian]

Bonjour à tous,

je cherche à faire un une feuille mensuelle où l'on peux selectionner les jour pour une importation vers une feuille , on selectione les jours.

j'ai créer un userforme avec des ToggleButton, la valeur : Caption doit etre remplis avec une procedure appelé lors du changement par un combobox
mais l'a j'ai un message d'erreur.

voila les procedure :

Dans l'userforme

Private Sub CBMoi_Click()

Select Case CBMoi.Value
Case 0
LMois.Value = "01"
LMois1.Caption = "01"
Case 1
LMois.Value = "02"
LMois1.Caption = "02"
Case 2
LMois.Value = "03"
LMois1.Caption = "03"
Case 3
LMois.Value = "04"
LMois1.Caption = "04"
Case 4
LMois.Value = "05"
LMois1.Caption = "05"
Case 5
LMois.Value = "06"
LMois1.Caption = "06"
Case 6
LMois.Value = "07"
LMois1.Caption = "07"
Case 7
LMois.Value = "08"
LMois1.Caption = "08"
Case 8
LMois.Value = "09"
LMois1.Caption = "09"
Case 9
LMois.Value = "10"
LMois1.Caption = "10"
Case 10
LMois.Value = "11"
LMois1.Caption = "11"
Case 11
LMois.Value = "12"
LMois1.Caption = "10"
End Select
Call creecalendrier
End Sub


Dans un module

Public Sub creecalendrier()

Dim ladate, CaseTB, NJourMois, Ijour, JourduMois
Dim DateMois As Date
Dim CaseTB2

DateMois = JourTravail.LJour.Value
ladate = Weekday(DateMois)
JourduMois = 1

'recherche du jour de la semaine
If ladate = 2 Then
CaseTB = 1
ElseIf ladate = 3 Then
CaseTB = 2
ElseIf ladate = 4 Then
CaseTB = 3
ElseIf ladate = 5 Then
CaseTB = 4
ElseIf ladate = 6 Then
CaseTB = 5
ElseIf ladate = 7 Then
CaseTB = 6
ElseIf ladate = 1 Then
CaseTB = 7
End If


If JourTravail.LMois.Value = "01" Or "03" Or "05" Or "07" Or "08" Or "10" Or "12" Then
NJourMois = 31
ElseIf JourTravail.LMois.Value = "04" Or "06" Or "09" Or "11" Then
NJourMois = 30
ElseIf JourTravail.LMois.Value = "02" Then
NJourMois = 28
End If

For Ijour = 1 To NJourMois
CaseTB2 = "TB" & CaseTB
JourTravail.Controls(CaseTB2).Caption = JourduMois

CaseTB = CaseTB + 1
JourduMois = JourduMois + 1
Next Ijour

End Sub

J'ai le message d'erreur suivant :

Incompatibilité de type

dans la procédure : creecalendrier sur

DateMois = JourTravail.LJour.Value

la valeur est "01/01/"

merci de votre aide

 

[PascalXLD]

Re : Une petite aide sur une procedure

Bonjour

essaies

DateMois = CDate(JourTravail.LJour.Value)

Bonne journée