Lone-wolf
XLDnaute Barbatruc
Bonjour à tous,
j'ai recréé un calendrier d'après un exemple trouvé sur le Forum. Seule différence, le fichier original utilises des boutons de commandes pour afficher les jours, et moi j'utilise des étiquettes. Le fichier original permet d'afficher ou de masquer les jours de la semaine selon le mois choisi.
Là ou ça cloche dans mon fichier est sur cette ligne: Erreur 1004 incompatibilité de type.
le code complet est ceui-ci:
J'ai aussi essaié comme ceci: Set c = UserForm1.Controls("Label" & j) et ça ne vas pas non plus.
Le fichier original est Calendrier. J'ai mis les deux en PJ.
A+
j'ai recréé un calendrier d'après un exemple trouvé sur le Forum. Seule différence, le fichier original utilises des boutons de commandes pour afficher les jours, et moi j'utilise des étiquettes. Le fichier original permet d'afficher ou de masquer les jours de la semaine selon le mois choisi.
Là ou ça cloche dans mon fichier est sur cette ligne: Erreur 1004 incompatibilité de type.
Code:
If Len(c.Name) = 12 And CInt(Right(c.Name, 1)) <= joursem Then
le code complet est ceui-ci:
Code:
Sub maj()
date1 = CDate("01 " & Me.ComboBox1.Value & " " & Me.TextBox1.Value)
date2 = date1
joursem = Weekday(date1)
For j = 2 To 43
Set c = UserForm1.Controls(j)
c.Visible = True
If Len(c.Name) = 12 And CInt(Right(c.Name, 1)) <= joursem Then
c.Visible = False
Else
If Month(date1) = Month(date2) Then
c.Caption = Day(date1)
Else
c.Visible = False
End If
date1 = date1 + 1
End If
Next
End Sub
J'ai aussi essaié comme ceci: Set c = UserForm1.Controls("Label" & j) et ça ne vas pas non plus.
Le fichier original est Calendrier. J'ai mis les deux en PJ.
A+
Pièces jointes
Dernière édition: